LEMONLDAP::NG : test bug fix in stable version

environments/ppa-mbqj77/deployments/1
Xavier Guimard 18 years ago
parent 3c690b839b
commit 84f77169f6
  1. 3
      modules/lemonldap-ng-portal/Changes
  2. 2
      modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
  3. 6
      modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t

@ -1,5 +1,8 @@
Revision history for Perl extension Lemonldap::NG::Portal. Revision history for Perl extension Lemonldap::NG::Portal.
0.73 Fri Apr 20 8:48:06 2007
- Bug fix in test (AuthCAS failed)
0.72 Sat Apr 14 22:35:45 2007 0.72 Sat Apr 14 22:35:45 2007
- Bug fix in authentication other than 'ldap' - Bug fix in authentication other than 'ldap'
- More tests - More tests

@ -2,7 +2,7 @@ package Lemonldap::NG::Portal;
print STDERR print STDERR
"See Lemonldap::NG::Portal(3) to know which Lemonldap::NG::Portal::* module to use."; "See Lemonldap::NG::Portal(3) to know which Lemonldap::NG::Portal::* module to use.";
our $VERSION = "0.72"; our $VERSION = "0.73";
1; 1;

@ -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('') );
} }

Loading…
Cancel
Save