@@ -13,13 +13,13 @@ all-basic({ $path });
13
13
# filename as IO tests
14
14
all-basic({ $ path . IO });
15
15
16
-
17
16
sub all-basic (Callable $ handle ) {
18
17
my Blob $ buf = " hello world" . encode(" utf-8" );
19
18
my $ txt = " 42" ;
20
19
21
20
# ?niecza 2 skip ":bin option for slurp fails"
22
21
spurt $ handle (), $ buf ;
22
+ # ?rakudo.jvm 11 skip 'RT #126495 - This type does not support positional operations'
23
23
is slurp ($ path , : bin), $ buf , " spurting Buf ok" ;
24
24
25
25
spurt $ handle (), $ txt ;
@@ -60,12 +60,14 @@ sub all-basic(Callable $handle) {
60
60
# ?niecza skip "Unable to resolve method open in type IO"
61
61
{
62
62
# Spurt on open file
63
+ # ?rakudo.jvm skip 'RT #126495 - This type does not support positional operations'
63
64
{
64
65
spurt $ path , " 42" ;
65
66
is slurp ($ path ), " 42" , ' can spurt into an open file' ;
66
67
}
67
68
68
69
# Buf into an open non binary file
70
+ # ?rakudo.jvm skip 'RT #126495 - This type does not support positional operations'
69
71
{
70
72
my Buf $ buf = Buf . new (0xC0 , 0x01 , 0xF0 , 0x0D );
71
73
spurt $ path , $ buf ;
@@ -99,6 +101,7 @@ sub all-basic(Callable $handle) {
99
101
my Blob $ buf = " meow" . encode(" ASCII" );
100
102
$ path . IO . spurt ($ buf );
101
103
# ?niecza skip "Excess arguments to slurp, unused named bin"
104
+ # ?rakudo.jvm skip 'RT #126495 - This type does not support positional operations'
102
105
is slurp ($ path , : bin), $ buf , " IO::Handle binary slurp" ;
103
106
104
107
dies-ok { $ path . IO . spurt (" nope" , : createonly) }, " IO::Handle :createonly dies" ;
0 commit comments