throws_like changed to throws-like

Raku · Jun 30, 2015 · d81f538 · d81f538
1 parent 8dd0ebb
commit d81f538
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/S17-promise/start.t b/S17-promise/start.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 17;
 
-throws_like { await }, X::AdHoc, "a bare await should not work";
+throws-like { await }, X::AdHoc, "a bare await should not work";
 
 {
     my $p = Promise.start({

diff --git a/S32-io/io-path-cygwin.t b/S32-io/io-path-cygwin.t
@@ -39,8 +39,8 @@ is $uncpath2.Str, "//server/share/a", '"//server/share/a" restringifies to itsel
 
 is IO::Path::Cygwin.new(".").Str,        ".",        "current directory";
 is IO::Path::Cygwin.new("..").Str,        "..",        "parent directory";
-throws_like { IO::Path::Cygwin.new },     X::AdHoc, "no path not allowed";
-throws_like { IO::Path::Cygwin.new('') }, X::AdHoc, "empty not allowed";
+throws-like { IO::Path::Cygwin.new },     X::AdHoc, "no path not allowed";
+throws-like { IO::Path::Cygwin.new('') }, X::AdHoc, "empty not allowed";
 
 is IO::Path::Cygwin.new("/usr/////local/./bin/.\\./perl/").cleanup, "/usr/local/bin/perl",
     "cleanup '/usr/////local/./bin/.\\./perl/' -> '/usr/local/bin/perl'";

diff --git a/S32-io/io-path-unix.t b/S32-io/io-path-unix.t
@@ -24,8 +24,8 @@ is $path.perl.EVAL, $path, ".perl loopback";
 
 is IO::Path::Unix.new(".").Str,  ".",  "current directory";
 is IO::Path::Unix.new("..").Str, "..", "parent directory";
-throws_like { IO::Path::Unix.new },     X::AdHoc, "no path not allowed";
-throws_like { IO::Path::Unix.new('') }, X::AdHoc, "empty not allowed";
+throws-like { IO::Path::Unix.new },     X::AdHoc, "no path not allowed";
+throws-like { IO::Path::Unix.new('') }, X::AdHoc, "empty not allowed";
 
 is IO::Path::Unix.new("/usr/////local/./bin/././perl/").cleanup,
   "/usr/local/bin/perl",

diff --git a/S32-io/io-path-win.t b/S32-io/io-path-win.t
@@ -39,8 +39,8 @@ is $uncpath2.Str, "//server/share/a", '"//server/share/a" restringifies to itsel
 
 is IO::Path::Win32.new(".").Str,  ".",  "current directory";
 is IO::Path::Win32.new("..").Str, "..", "parent directory";
-throws_like { IO::Path::Win32.new },     X::AdHoc, "no path not allowed";
-throws_like { IO::Path::Win32.new('') }, X::AdHoc, "empty not allowed";
+throws-like { IO::Path::Win32.new },     X::AdHoc, "no path not allowed";
+throws-like { IO::Path::Win32.new('') }, X::AdHoc, "empty not allowed";
 
 is IO::Path::Win32.new("/usr/////local/./bin/././perl/").cleanup,
   "\\usr\\local\\bin\\perl",