From 038c3122003f951764cc9320852fb2f2ef74e62a Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Thu, 14 Oct 2010 10:25:50 +0000
Subject: [PATCH] Tests

---
 .../lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_i18n.pm   | 1 -
 .../lemonldap-ng-portal/t/10-Lemonldap-NG-Portal-i18n.t    | 7 +++++--
 .../t/27-Lemonldap-NG-Portal-IssuerDBOpenID.t              | 3 ++-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_i18n.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_i18n.pm
index 8e762e8d1..6be63022f 100644
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_i18n.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_i18n.pm
@@ -348,7 +348,6 @@ sub error_ro {
         'Problemă la încărcarea unui furnizor de servicii',
         'A apărut o eroare în timpul schimbului de SAML atribute',
         'Această pagină este proiectat pentru servere OpenID',
-'Când încercaţi să utilizaţi o identitate OpenID care nu este a ta',
 'Când încercaţi să utilizaţi o identitate OpenID care nu vă aparţine',
         'Un atribut solicitate nu sunt disponibile',
         'Federation forbidden by security policy',
diff --git a/modules/lemonldap-ng-portal/t/10-Lemonldap-NG-Portal-i18n.t b/modules/lemonldap-ng-portal/t/10-Lemonldap-NG-Portal-i18n.t
index 7444e3c9a..b07bb5ce8 100644
--- a/modules/lemonldap-ng-portal/t/10-Lemonldap-NG-Portal-i18n.t
+++ b/modules/lemonldap-ng-portal/t/10-Lemonldap-NG-Portal-i18n.t
@@ -8,6 +8,8 @@
 BEGIN {
     our %tr_err = (
         fr => 'French',
+
+        # Not yet maintained
         ro => 'Romanian',
     );
     our %tr_msg = ( fr => 'French', );
@@ -25,7 +27,7 @@ foreach ( keys %tr_err ) {
     my @tmp;
     ok( @tmp = @{ &{"Lemonldap::NG::Portal::_i18n::error_$_"} },
         "$tr_err{$_} translation" );
-    ok( $#tmp == $#en, "$tr_err{$_} translation count" );
+    ok( $#tmp == $#en, "$tr_err{$_} translation count (" . scalar(@tmp) . ')' );
 }
 
 my $p = bless {}, 'Lemonldap::NG::Portal::Simple';
@@ -43,5 +45,6 @@ foreach ( keys %tr_msg ) {
     my @tmp;
     ok( @tmp = @{ &{"Lemonldap::NG::Portal::_i18n::msg_$_"} },
         "$tr_msg{$_} messages translation" );
-    ok( $#tmp == $#en, "$tr_msg{$_} messages translation count" );
+    ok( $#tmp == $#en,
+        "$tr_msg{$_} messages translation count (" . scalar(@tmp) . ')' );
 }
diff --git a/modules/lemonldap-ng-portal/t/27-Lemonldap-NG-Portal-IssuerDBOpenID.t b/modules/lemonldap-ng-portal/t/27-Lemonldap-NG-Portal-IssuerDBOpenID.t
index c540263e1..5400947b6 100644
--- a/modules/lemonldap-ng-portal/t/27-Lemonldap-NG-Portal-IssuerDBOpenID.t
+++ b/modules/lemonldap-ng-portal/t/27-Lemonldap-NG-Portal-IssuerDBOpenID.t
@@ -1,6 +1,6 @@
 package My::Portal;
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 use strict;
 
 our @ISA = qw(Lemonldap::NG::Portal::IssuerDBOpenID
@@ -39,6 +39,7 @@ SKIP: {
             uid  => 'test',
             mail => 'x.x.org'
         },
+        whatToTrace => 'uid',
       },
       __PACKAGE__;