@@ -33,7 +33,6 @@ ok !('non_existing_dir'.IO ~~ :d ),
33
33
ok $ * PROGRAM_NAME . IO ~~ : f, " ~~:f returns true on files" ;
34
34
ok $ * PROGRAM_NAME . IO ~~ : e, " ~~:e returns true on files" ;
35
35
ok ' t' . IO ~~ : e, " ~~:e returns true on directories" ;
36
- # ?rakudo 2 skip ':r, :w'
37
36
ok $ * PROGRAM_NAME . IO ~~ : r, " ~~:r returns true on readable files" ;
38
37
ok $ * PROGRAM_NAME . IO ~~ : w, " ~~:w returns true on writable files" ;
39
38
@@ -52,24 +51,22 @@ if $*OS eq any <MSWin32 mingw msys cygwin> {
52
51
}
53
52
54
53
nok " t" . IO ~~ : f, " ~~:f returns false on directories" ;
55
- # ?rakudo skip ':r'
56
54
ok " t" . IO ~~ : r, " ~~:r returns true on a readable directory" ;
57
55
58
56
ok ' doesnotexist' . IO ! ~~ : d, " ~~:d returns false on non-existent directories" ;
59
- # ?rakudo 3 skip 'rwx'
60
57
ok ' doesnotexist' . IO ! ~~ : r, " ~~:r returns false on non-existent directories" ;
61
58
ok ' doesnotexist' . IO ! ~~ : w, " ~~:w returns false on non-existent directories" ;
62
59
ok ' doesnotexist' . IO ! ~~ : x , " ~~:x returns false on non-existent directories" ;
63
60
ok ' doesnotexist' . IO ! ~~ : f, " ~~:f returns false on non-existent directories" ;
64
61
65
62
ok not ' doesnotexist.t' . IO ~~ : f, " ~~:f returns false on non-existent files" ;
66
- # ?rakudo 3 skip 'rwx'
67
63
ok not ' doesnotexist.t' . IO ~~ : r, " ~~:r returns false on non-existent files" ;
68
64
ok not ' doesnotexist.t' . IO ~~ : w, " ~~:w returns false on non-existent files" ;
69
65
ok not ' doesnotexist.t' . IO ~~ : x , " ~~:x returns false on non-existent files" ;
70
66
ok not ' doesnotexist.t' . IO ~~ : f, " ~~:f returns false on non-existent files" ;
71
67
72
68
# ?niecza skip ".s NYI"
69
+ # ?rakudo todo ".s doesn't seem to work - maybe Win32 specific though?"
73
70
ok ($ * PROGRAM_NAME . IO . s > 42 , " ~~:s returns size on existent files" );
74
71
75
72
nok " doesnotexist.t" . IO ~~ : s, " ~~:s returns false on non-existent files" ;
0 commit comments