# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1312711813 -7200
# Node ID 3f80a97bea87b7ebc46b23e03f40df2eb50b10ae
# Parent  cdf3ca65d67786818293f4df7de9bba2f4ac7659
added diag()/note() message to the digest test

diff -r cdf3ca65d677 -r 3f80a97bea87 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");