This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a test for bug #60214
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 30 Oct 2008 11:34:05 +0000 (11:34 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 30 Oct 2008 11:34:05 +0000 (11:34 +0000)
p4raw-id: //depot/perl@34661

t/op/filetest.t

index 231242b..97ce3f9 100755 (executable)
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 use Config;
-plan(tests => 24);
+plan(tests => 28);
 
 ok( -d 'op' );
 ok( -f 'TEST' );
@@ -79,6 +79,15 @@ ok( -x -d -x 'op' );
 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';