--- t/fs.t	2007/07/10 00:22:00	27
+++ t/fs.t	2007/07/15 23:52:55	32
@@ -30,7 +30,7 @@
 	my $orig_size = -s "$to/$path";
 	ok( open( my $fh, $op, "$to/$path" ), "open( $op $path )");
 	if ( $op eq '>' ) {
-		cmp_ok( -s "$to/$path", '==', 0, "truncate $to/$path" );
+		cmp_ok( -s "$to/$path", '==', 0, "truncated $to/$path"  );
 		print $fh $content;
 	} elsif ( $op eq '>>' ) {
 		cmp_ok( -s "$to/$path", '==', $orig_size, "no truncate $to/$path" );
@@ -63,7 +63,7 @@
 		ok( -e "$tmp/$path" , "in tmp $tmp/$path" ) if ( $op eq '<' );
 		# check total size if not append
 		if ( $op ne '>>' ) {
-			cmp_ok( -s $pack, '==', $size, "$tmp/$path = $size bytes" );
+			cmp_ok( -s $pack, '<', $size, "$pack < $size bytes" );
 		}
 	} else {
 		ok( -e "$from/$path", "on disk $from/$path" );
@@ -143,7 +143,7 @@
 	cmp_ok( (stat("$to/m"))[3], '==', 1, 'no links' );
 
 	my @sizes;
-	my $size = 65536;
+	$size = 65536;
 	while ( $size > 1 ) {
 		push @sizes, $size;
 		$size /= 2;