From: Andrew Rodland <andrew@cleverdomain.org>
Date: Wed, 19 May 2010 10:29:25 +0000 (-0500)
Subject: Use b64digest() in the rescan test for more readable fail messages.
X-Git-Tag: 0.07000~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe8ba914bed56b05719edf4abe1882b5637a88b9;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Use b64digest() in the rescan test for more readable fail messages.
---

diff --git a/t/lib/dbixcsl_common_tests.pm b/t/lib/dbixcsl_common_tests.pm
index 62a4f68..26a14ad 100644
--- a/t/lib/dbixcsl_common_tests.pm
+++ b/t/lib/dbixcsl_common_tests.pm
@@ -899,7 +899,7 @@ sub test_schema {
 #        system "rm -f /tmp/before_rescan/* /tmp/after_rescan/*";
 #        system "cp t/_common_dump/DBIXCSL_Test/Schema/*.pm /tmp/before_rescan";
 
-        my $before_digest = $digest->digest;
+        my $before_digest = $digest->b64digest;
 
         $conn->storage->disconnect; # needed for Firebird and Informix
         my $dbh = $self->dbconnect(1);
@@ -929,7 +929,7 @@ sub test_schema {
 
         $digest = Digest::MD5->new;
         find $find_cb, $DUMP_DIR;
-        my $after_digest = $digest->digest;
+        my $after_digest = $digest->b64digest;
 
         is $before_digest, $after_digest,
             'dumped files are not rewritten when there is no modification';