Skip to content

Commit 3f1e455

Browse files
committed
Fudging; verification on a platform other than Windows would be helpful.
1 parent 4f77025 commit 3f1e455

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed

S16-filehandles/filetest.t

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,6 @@ ok !('non_existing_dir'.IO ~~ :d ),
3333
ok $*PROGRAM_NAME.IO ~~ :f, "~~:f returns true on files";
3434
ok $*PROGRAM_NAME.IO ~~ :e, "~~:e returns true on files";
3535
ok 't'.IO ~~ :e, "~~:e returns true on directories";
36-
#?rakudo 2 skip ':r, :w'
3736
ok $*PROGRAM_NAME.IO ~~ :r, "~~:r returns true on readable files";
3837
ok $*PROGRAM_NAME.IO ~~ :w, "~~:w returns true on writable files";
3938

@@ -52,24 +51,22 @@ if $*OS eq any <MSWin32 mingw msys cygwin> {
5251
}
5352

5453
nok "t".IO ~~ :f, "~~:f returns false on directories";
55-
#?rakudo skip ':r'
5654
ok "t".IO ~~ :r, "~~:r returns true on a readable directory";
5755

5856
ok 'doesnotexist'.IO !~~ :d, "~~:d returns false on non-existent directories";
59-
#?rakudo 3 skip 'rwx'
6057
ok 'doesnotexist'.IO !~~ :r, "~~:r returns false on non-existent directories";
6158
ok 'doesnotexist'.IO !~~ :w, "~~:w returns false on non-existent directories";
6259
ok 'doesnotexist'.IO !~~ :x, "~~:x returns false on non-existent directories";
6360
ok 'doesnotexist'.IO !~~ :f, "~~:f returns false on non-existent directories";
6461

6562
ok not 'doesnotexist.t'.IO ~~ :f, "~~:f returns false on non-existent files";
66-
#?rakudo 3 skip 'rwx'
6763
ok not 'doesnotexist.t'.IO ~~ :r, "~~:r returns false on non-existent files";
6864
ok not 'doesnotexist.t'.IO ~~ :w, "~~:w returns false on non-existent files";
6965
ok not 'doesnotexist.t'.IO ~~ :x, "~~:x returns false on non-existent files";
7066
ok not 'doesnotexist.t'.IO ~~ :f, "~~:f returns false on non-existent files";
7167

7268
#?niecza skip ".s NYI"
69+
#?rakudo todo ".s doesn't seem to work - maybe Win32 specific though?"
7370
ok($*PROGRAM_NAME.IO.s > 42, "~~:s returns size on existent files");
7471

7572
nok "doesnotexist.t".IO ~~ :s, "~~:s returns false on non-existent files";

0 commit comments

Comments
 (0)