Change copy(:createonly) test to check for X::IO::Copy

Raku · Aug 28, 2015 · c4385c4 · c4385c4
1 parent 5a81fde
commit c4385c4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/S32-io/copy.t b/S32-io/copy.t
@@ -46,7 +46,7 @@ nok $non-existent-file.IO.e, "It doesn't";
     ok $existing-file-mtgt.IO.e, 'It exists';
     nok $existing-file-mtgt.IO.s, 'It has no size';
 
-    dies-ok { $existing-file.IO.copy( $existing-file-mtgt, :createonly ) }, '.IO.copy normal file with :createonly';
+    throws-like { $existing-file.IO.copy( $existing-file-mtgt, :createonly ) }, X::IO::Copy, '.IO.copy normal file with :createonly';
     ok $existing-file-mtgt.IO.e, 'It exists';
     nok $existing-file-mtgt.IO.s, 'It has no size';
 
@@ -78,7 +78,7 @@ nok $non-existent-file.IO.e, "It doesn't";
     ok $existing-file-stgt.IO.e, 'It exists';
     nok $existing-file-stgt.IO.s, 'It has no size';
 
-    dies-ok { copy( $existing-file, $existing-file-stgt, :createonly ) }, '.copy() normal file with :createonly';
+    throws-like { copy( $existing-file, $existing-file-stgt, :createonly ) }, X::IO::Copy, '.copy() normal file with :createonly';
     ok $existing-file-stgt.IO.e, 'It exists';
     nok $existing-file-stgt.IO.s, 'It has no size';