78 lines
2.3 KiB
Perl
78 lines
2.3 KiB
Perl
|
# t/settings.t
|
||
|
|
#
|
||
|
|
# Test LJ::Setting::Gender and LJ::Setting::Name
|
||
|
|
#
|
||
|
|
# This code was forked from the LiveJournal project owned and operated
|
||
|
|
# by Live Journal, Inc. The code has been modified and expanded by
|
||
|
|
|
||
|
|
# Dreamwidth Studios, LLC. These files were originally licensed under
|
||
|
|
# the terms of the license supplied by Live Journal, Inc, which can
|
||
|
|
# currently be found at:
|
||
|
|
#
|
||
|
|
# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
|
||
|
|
#
|
||
|
|
# In accordance with the original license, this code and all its
|
||
|
|
# modifications are provided under the GNU General Public License.
|
||
|
|
# A copy of that license can be found in the LICENSE file included as
|
||
|
|
# part of this distribution.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 9;
|
||
|
|
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
use LJ::Lang;
|
||
|
|
use LJ::HTMLControls;
|
||
|
|
|
||
|
|
use LJ::Setting::Gender;
|
||
|
|
use LJ::Setting::Name;
|
||
|
|
|
||
|
|
my $genkey = LJ::Setting::Gender->pkgkey;
|
||
|
|
my $namekey = LJ::Setting::Name->pkgkey;
|
||
|
|
is( $genkey, "LJ__Setting__Gender_", "key check" );
|
||
|
|
|
||
|
|
my $u = LJ::load_user("system");
|
||
|
|
|
||
|
|
is( LJ::Setting->error_map( $u, {}, () ), undef, "no errors for no settings" );
|
||
|
|
is( LJ::Setting::Gender->error_map( $u, { "${genkey}gender" => "U" } ),
|
||
|
|
undef, "no errors for gender with 'U'" );
|
||
|
|
is( LJ::Setting::Gender->error_map( $u, { "${genkey}gender" => "M" } ),
|
||
|
|
undef, "no errors for gender with 'M'" );
|
||
|
|
isnt( LJ::Setting::Gender->error_map( $u, { "${genkey}gender" => "X" } ),
|
||
|
|
undef, "errors for gender with 'X'" );
|
||
|
|
|
||
|
|
{
|
||
|
|
my @settings = qw(LJ::Setting::Name LJ::Setting::Gender);
|
||
|
|
my $errmap;
|
||
|
|
local $LJ::T_FAKE_SETTINGS_RULES = 1;
|
||
|
|
my %post = (
|
||
|
|
"${namekey}txt" => "this is `bad",
|
||
|
|
"${genkey}gender" => "M",
|
||
|
|
);
|
||
|
|
$errmap = LJ::Setting->error_map( $u, \%post, @settings );
|
||
|
|
ok( $errmap, "got errors" );
|
||
|
|
|
||
|
|
my $html;
|
||
|
|
$html = LJ::Setting::Name->as_html( $u, $errmap, \%post );
|
||
|
|
like( $html, qr/this is .bad/, "got posted value back" );
|
||
|
|
like( $html, qr/T-FAKE-ERROR/, "got inline error" );
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
# and this time okay:
|
||
|
|
{
|
||
|
|
my @settings = qw(LJ::Setting::Name LJ::Setting::Gender);
|
||
|
|
my $errmap;
|
||
|
|
my %post = (
|
||
|
|
"${namekey}txt" => "the system user",
|
||
|
|
"${genkey}gender" => "M",
|
||
|
|
);
|
||
|
|
$errmap = LJ::Setting->error_map( $u, \%post, @settings );
|
||
|
|
ok( !$errmap, "no errors" );
|
||
|
|
}
|
||
|
|
|
||
|
|
# use Data::Dumper;
|
||
|
|
# print Dumper($errmap);
|
||
|
|
|