For non-existent file after spurting, .e says it exists

RT#126006
Raku · Jul 5, 2016 · 4afc0db · 4afc0db
1 parent 9be78ea
commit 4afc0db
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S32-io/spurt.t b/S32-io/spurt.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 35;
+plan 36;
 
 # L<S32::IO/Functions/spurt>
 
@@ -141,3 +141,14 @@ if $path.IO.e {
     say "Warn: '$path shouldn't exist";
     unlink $path;
 }
+
+# RT #126006
+{
+    given 'temp-file-RT-126006-test'.IO {
+        LEAVE .unlink;
+        when .e { flunk "ABORT: cannot run test while file `$_` exists"; }
+
+        .spurt: 'something';
+        is .e, True, 'for non-existent file after spurting, .e says it exists';
+    }
+}