|
|
@ -5,7 +5,7 @@ |
|
|
|
|
|
|
|
|
|
|
|
# change 'tests => 1' to 'tests => last_test_to_print'; |
|
|
|
# change 'tests => 1' to 'tests => last_test_to_print'; |
|
|
|
|
|
|
|
|
|
|
|
use Test::More tests => 31; |
|
|
|
use Test::More tests => 34; |
|
|
|
BEGIN { use_ok( 'Lemonldap::NG::Portal::Simple', ':all' ) } |
|
|
|
BEGIN { use_ok( 'Lemonldap::NG::Portal::Simple', ':all' ) } |
|
|
|
|
|
|
|
|
|
|
|
######################### |
|
|
|
######################### |
|
|
@ -15,9 +15,9 @@ BEGIN { use_ok( 'Lemonldap::NG::Portal::Simple', ':all' ) } |
|
|
|
|
|
|
|
|
|
|
|
my $p = bless {}, 'Lemonldap::NG::Portal::Simple'; |
|
|
|
my $p = bless {}, 'Lemonldap::NG::Portal::Simple'; |
|
|
|
|
|
|
|
|
|
|
|
foreach my $i ( 1 .. 10 ) { |
|
|
|
foreach my $i ( 0 .. 10 ) { |
|
|
|
$p->{error} = $i; |
|
|
|
$p->{error} = $i; |
|
|
|
ok( $p->error('fr;en') ); |
|
|
|
ok( $p->error('fr') ); |
|
|
|
ok( $p->error('en') ); |
|
|
|
ok( $p->error('en') ); |
|
|
|
ok( $p->error('') ); |
|
|
|
ok( $p->error('') ); |
|
|
|
} |
|
|
|
} |
|
|
|