File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -17,7 +17,7 @@ sub all-basic(Callable $handle) {
17
17
my Blob $ buf = " hello world" . encode(" utf-8" );
18
18
my $ txt = " 42" ;
19
19
20
- spurt $ handle (), $ buf ;
20
+ spurt $ handle (), $ buf ;
21
21
is slurp ($ path , : bin), $ buf , " spurting Buf ok" ;
22
22
23
23
spurt $ handle (), $ txt ;
@@ -33,7 +33,7 @@ sub all-basic(Callable $handle) {
33
33
spurt $ handle (), $ txt ;
34
34
spurt $ handle (), $ txt , : append;
35
35
is slurp ($ path ), ($ txt ~ $ txt ), " spurting txt with append" ;
36
-
36
+
37
37
unlink $ path ;
38
38
39
39
lives-ok { spurt $ handle (), $ buf , : createonly }, " createonly creates file with Buf" ;
@@ -89,12 +89,12 @@ sub all-basic(Callable $handle) {
89
89
my Blob $ buf = " meow" . encode(" ASCII" );
90
90
$ path . IO . spurt ($ buf );
91
91
is slurp ($ path , : bin), $ buf , " IO::Handle binary slurp" ;
92
-
92
+
93
93
dies-ok { $ path . IO . spurt (" nope" , : createonly) }, " IO::Handle :createonly dies" ;
94
94
unlink $ path ;
95
95
lives-ok { $ path . IO . spurt (" yes" , : createonly) }, " IO::Handle :createonly lives" ;
96
96
ok $ path . IO . e , " IO::Handle :createonly created a file" ;
97
-
97
+
98
98
# Append
99
99
{
100
100
my $ io = $ path . IO ;
You can’t perform that action at this time.
0 commit comments