This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In t/op/filetest.t, test -s -f 'TEST' against the size from stat 'TEST'.
authorNicholas Clark <nick@ccl4.org>
Thu, 24 May 2012 13:49:08 +0000 (15:49 +0200)
committerNicholas Clark <nick@ccl4.org>
Thu, 31 May 2012 16:09:46 +0000 (18:09 +0200)
Previously the test was "is it greater than 1?"

t/op/filetest.t

index 63c9181..f95d786 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan(tests => 47 + 27*14);
+plan(tests => 48 + 27*14);
 
 ok( -d 'op' );
 ok( -f 'TEST' );
@@ -68,7 +68,9 @@ ok( defined(-d -e 'TEST') );
 ok( defined(-e -d 'TEST') );
 ok( ! -f -d 'op' );
 ok( -x -d -x 'op' );
-ok( (-s -f 'TEST' > 1), "-s returns real size" );
+my ($size) = (stat 'TEST')[7];
+cmp_ok($size, '>', 1, 'TEST is longer than 1 byte');
+is( (-s -f 'TEST'), $size, "-s returns real size" );
 ok( -f -s 'TEST' == 1 );
 
 # now with an empty file