From 84f77169f6190f1f5fb77b77ed6db2578d307e88 Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Fri, 20 Apr 2007 07:04:29 +0000
Subject: [PATCH] LEMONLDAP::NG : test bug fix in stable version

---
 modules/lemonldap-ng-portal/Changes                      | 3 +++
 modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm   | 2 +-
 modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t | 6 +++---
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/modules/lemonldap-ng-portal/Changes b/modules/lemonldap-ng-portal/Changes
index f909c9551..356612c12 100644
--- a/modules/lemonldap-ng-portal/Changes
+++ b/modules/lemonldap-ng-portal/Changes
@@ -1,5 +1,8 @@
 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
 	- Bug fix in authentication other than 'ldap'
 	- More tests
diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
index d95747734..da031ab74 100644
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
@@ -2,7 +2,7 @@ package Lemonldap::NG::Portal;
 
 print STDERR
 "See Lemonldap::NG::Portal(3) to know which Lemonldap::NG::Portal::* module to use.";
-our $VERSION = "0.72";
+our $VERSION = "0.73";
 
 1;
 
diff --git a/modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t b/modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t
index cfae09c1a..de6ce0cab 100644
--- a/modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t
+++ b/modules/lemonldap-ng-portal/t/Lemonldap-NG-Portal-i18n.t
@@ -5,7 +5,7 @@
 
 # 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' ) }
 
 #########################
@@ -15,9 +15,9 @@ BEGIN { use_ok( 'Lemonldap::NG::Portal::Simple', ':all' ) }
 
 my $p = bless {}, 'Lemonldap::NG::Portal::Simple';
 
-foreach my $i ( 1 .. 10 ) {
+foreach my $i ( 0 .. 10 ) {
     $p->{error} = $i;
-    ok( $p->error('fr;en') );
+    ok( $p->error('fr') );
     ok( $p->error('en') );
     ok( $p->error('') );
 }