[Bast-commits] r9270 - trunk/DBIx-Class-DigestColumns/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-04-29 03:36:51 +0100 (Thu, 29 Apr 2010)
New Revision: 9270

Modified:
   trunk/DBIx-Class-DigestColumns/t/12whirlpool.t
Log:
RT25974: Digest::Whirlpool base64 test fails; fixed

Modified: trunk/DBIx-Class-DigestColumns/t/12whirlpool.t
===================================================================
--- trunk/DBIx-Class-DigestColumns/t/12whirlpool.t	2010-04-28 21:51:47 UTC (rev 9269)
+++ trunk/DBIx-Class-DigestColumns/t/12whirlpool.t	2010-04-29 02:36:51 UTC (rev 9270)
@@ -3,14 +3,14 @@
 use Test::More;
 
 BEGIN {
-	if ( !eval "require Digest" ) {
-		plan skip_all => 'needs Digest for testing';
-	
-	} elsif ( !eval "require Digest::Whirlpool" ) {
-		plan skip_all => 'needs Digest::Whirlpool for testing';
-	} else {
-		plan tests => 2;
-	};
+   if ( !eval "require Digest" ) {
+      plan skip_all => 'needs Digest for testing';
+
+   } elsif ( !eval "require Digest::Whirlpool" ) {
+      plan skip_all => 'needs Digest::Whirlpool for testing';
+   } else {
+      plan tests => 2;
+   };
 }
 
 use lib qw(t/lib);
@@ -30,7 +30,7 @@
 DigestTest::Schema::Test->digest_encoding('base64');
 Class::C3->reinitialize();
 $row = $schema->resultset('Test')->create({ password => 'testvalue' });
-is $row->password, 'ZVElmK91CEZqCHRKbtCKU+GskXPZzYZY5MqiReANNukrX1iALnA/I+ASOB1ioWYbrQ7mAcHKloT5iyNpslkmPg==', 'got base64 Whirlpool from Digest';
+is $row->password, 'ZVElmK91CEZqCHRKbtCKU+GskXPZzYZY5MqiReANNukrX1iALnA/I+ASOB1ioWYbrQ7mAcHKloT5iyNpslkmPg', 'got base64 Whirlpool from Digest';
 
 
-1;
\ No newline at end of file
+1;