[Catalyst-commits] r12163 - trunk/Catalyst-Model-LDAP/t

dwc at dev.catalyst.perl.org dwc at dev.catalyst.perl.org
Thu Dec 3 16:58:27 GMT 2009


Author: dwc
Date: 2009-12-03 16:58:26 +0000 (Thu, 03 Dec 2009)
New Revision: 12163

Modified:
   trunk/Catalyst-Model-LDAP/t/unit_Connection_search.t
   trunk/Catalyst-Model-LDAP/t/unit_Connection_search_limit.t
Log:
Make tests insensitive to case, since the LDAP server changed recently

Modified: trunk/Catalyst-Model-LDAP/t/unit_Connection_search.t
===================================================================
--- trunk/Catalyst-Model-LDAP/t/unit_Connection_search.t	2009-12-03 13:10:13 UTC (rev 12162)
+++ trunk/Catalyst-Model-LDAP/t/unit_Connection_search.t	2009-12-03 16:58:26 UTC (rev 12163)
@@ -23,5 +23,5 @@
 
 my $entry = $mesg->entry(0);
 isa_ok($entry, 'Catalyst::Model::LDAP::Entry');
-is($entry->get_value('sn'), $SN, 'first entry sn matches');
-is($entry->sn, $SN, 'first entry sn via AUTOLOAD matches');
+is(uc($entry->get_value('sn')), $SN, 'first entry sn matches');
+is(uc($entry->sn), $SN, 'first entry sn via AUTOLOAD matches');

Modified: trunk/Catalyst-Model-LDAP/t/unit_Connection_search_limit.t
===================================================================
--- trunk/Catalyst-Model-LDAP/t/unit_Connection_search_limit.t	2009-12-03 13:10:13 UTC (rev 12162)
+++ trunk/Catalyst-Model-LDAP/t/unit_Connection_search_limit.t	2009-12-03 16:58:26 UTC (rev 12163)
@@ -28,5 +28,5 @@
 
 my $entry = $mesg->entry(0);
 isa_ok($entry, 'Catalyst::Model::LDAP::Entry');
-is($entry->get_value('sn'), $SN, 'entry sn matches');
-is($entry->sn, $SN, 'entry sn via AUTOLOAD matches');
+is(uc($entry->get_value('sn')), $SN, 'entry sn matches');
+is(uc($entry->sn), $SN, 'entry sn via AUTOLOAD matches');




More information about the Catalyst-commits mailing list