--- 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");