added diag()/note() message to the digest test
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Sun, 07 Aug 2011 12:10:13 +0200
changeset 5 3f80a97bea87
parent 4 cdf3ca65d677
child 6 ca889d39ebd4
added diag()/note() message to the digest test
t/001-root.t
--- a/t/001-root.t	Sun Aug 07 11:07:35 2011 +0200
+++ b/t/001-root.t	Sun Aug 07 12:10:13 2011 +0200
@@ -42,6 +42,7 @@
 
 # now md5sum test for the smallest device
 my $smallest = (sort { $size{$a} <=> $size{$b} } grep {$size{$_}} keys %size)[0];
+$smallest =~ s/^\///;
 
 
 my %digest = (
@@ -49,6 +50,7 @@
     file => Digest::MD5->new(),
 );
 
+note "checking digests of $smallest";
 {
     local $/ = \4096;
     open(my $dev, "/dev/$smallest") or die "/dev/$smallest: $!";
@@ -58,7 +60,7 @@
     $digest{file}->add($_) while defined($_ = <$file>);
 }
 
-is($digest{file}->hexdigest(), $digest{dev}->hexdigest(), "digests are equal");
+is($digest{file}->hexdigest(), $digest{dev}->hexdigest(), "digests of $smallest are equal");