fix various deprecations as spotted by RAKUDO_DEPRECATIONS_FATAL=1

Raku · Jun 26, 2015 · a6f4e66 · a6f4e66
1 parent 72b85c3
commit a6f4e66
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/S16-io/getc.t b/S16-io/getc.t
@@ -23,7 +23,7 @@ my $tmpfile = "temp-test" ~ nonce();
 }
 
 {
-    dies_ok { open('t').getc }, 'getc on a directory fails';
+    dies-ok { open('t').getc }, 'getc on a directory fails';
 }
 
 END { unlink $tmpfile }

diff --git a/S32-io/IO-Socket-INET.t b/S32-io/IO-Socket-INET.t
@@ -66,8 +66,8 @@ if $*DISTRO.name eq any <linux Linux darwin solaris mswin32 macosx> { # please a
     my $is-win;
     $is-win = True if $*DISTRO.name eq 'mswin32';
     my $runner = $is-win
-        ?? "SET PERL6_BINARY={$*EXECUTABLE_NAME.path.absolute} &&"
-        !! "PERL6_BINARY={$*EXECUTABLE_NAME.path.absolute}";
+        ?? "SET PERL6_BINARY={$*EXECUTABLE-NAME.IO.absolute} &&"
+        !! "PERL6_BINARY={$*EXECUTABLE-NAME.IO.absolute}";
 
     # test 2 does echo protocol - Internet RFC 862
     if $is-win {

diff --git a/S32-io/io-spec-cygwin.t b/S32-io/io-spec-cygwin.t
@@ -164,7 +164,7 @@ is $cygwin.updir,   '..',  'updir is ".."';
 
 
 if $*DISTRO.name !~~ any(<cygwin>) {
-	skip_rest 'cygwin on-platform tests'
+	skip-rest 'cygwin on-platform tests'
 }
 else {
 	# double check a couple of things to see if IO::Spec loaded correctly

diff --git a/S32-io/io-spec-win.t b/S32-io/io-spec-win.t
@@ -292,7 +292,7 @@ is $win32.updir,   '..',  'updir is ".."';
 
 
 if $*DISTRO.name !~~ any(<mswin32 netware symbian os2 dos>) {
-	skip_rest 'Win32ish on-platform tests'
+	skip-rest 'Win32ish on-platform tests'
 }
 else {
 	# double check a couple of things to see if IO::Spec loaded correctly