Skip to content

Commit

Permalink
Reword .IO.z test for directories
Browse files Browse the repository at this point in the history
To have it pass on systems that return zero for directory sizes.

Part of addressing #320
  • Loading branch information
zoffixznet committed Dec 12, 2017
1 parent d315f50 commit 5a3f3c6
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion S16-filehandles/filetest.t
Expand Up @@ -64,7 +64,8 @@ nok "doesnotexist.t".IO ~~ :s, "~~:s returns false on non-existent files";

nok $*PROGRAM.IO ~~ :z, "~~:z returns false on existent files";
nok "doesnotexist.t".IO ~~ :z, "~~:z returns false on non-existent files";
nok "t".IO ~~ :z, "~~:z returns false on directories";
is "t".IO ~~ :z, "t".IO.s.not,
"~~:z returns inverse boolified size on directories";

my $fh = open("empty_file", :w);
close $fh;
Expand Down

0 comments on commit 5a3f3c6

Please sign in to comment.