Change 34661 by [EMAIL PROTECTED] on 2008/10/30 11:34:05
Add a test for bug #60214
Affected files ...
... //depot/perl/t/op/filetest.t#15 edit
Differences ...
==== //depot/perl/t/op/filetest.t#15 (xtext) ====
Index: perl/t/op/filetest.t
--- perl/t/op/filetest.t#14~25799~ 2005-10-18 13:57:43.000000000 -0700
+++ perl/t/op/filetest.t 2008-10-30 04:34:05.000000000 -0700
@@ -10,7 +10,7 @@
}
use Config;
-plan(tests => 24);
+plan(tests => 28);
ok( -d 'op' );
ok( -f 'TEST' );
@@ -79,6 +79,15 @@
ok( (-s -f 'TEST' > 1), "-s returns real size" );
ok( -f -s 'TEST' == 1 );
+# now with an empty file
+open my $fh, ">", "foo";
+close $fh;
+ok( -f "foo" );
+is( -s "foo", 0 );
+is( -f -s "foo", 0 );
+is( -s -f "foo", 0 );
+unlink "foo";
+
# test that _ is a bareword after filetest operators
-f 'TEST';
End of Patch.
