filetests shouldn't die on non-existant files.

Also added tests to t/spectest.data.
rakudo · Feb 7, 2009 · 6211ae2 · 6211ae2
1 parent a26b223
commit 6211ae2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/builtins/any-str.pir b/src/builtins/any-str.pir
@@ -221,8 +221,10 @@ directory.
     .local string filename
     filename = self
 
+    push_eh not_a_dir
     $I0 = stat filename, 2
     if $I0 goto file_is_a_dir
+  not_a_dir:
     $P0 = get_hll_global ['Bool'], 'False'
     .return ($P0)
   file_is_a_dir:
@@ -270,6 +272,7 @@ file.
     .local string filename
     filename = self
 
+    push_eh file_isnt_plain
     $I0 = stat filename, 2
     if $I0 goto file_isnt_plain
     $P0 = get_hll_global ['Bool'], 'True'

diff --git a/t/spectest.data b/t/spectest.data
@@ -244,6 +244,7 @@ S12-role/parameterized-mixin.t
 S12-role/parameterized-type.t
 S12-subset/multi-dispatch.t
 S12-subset/subtypes.t
+S16-filehandles/filetest.t
 S16-filehandles/io.t
 S16-filehandles/io_in_for_loops.t
 S16-filehandles/io_in_while_loops.t