Get chdir() test up to (newio) spec

S32-io/chdir.t

@@ -10,9 +10,6 @@ eval_dies_ok ' chdir() ', 'Cannot call chdir without an argument';
 ### Although you can use Unix style folder separator / to set folders, what's returned
 ### is in the native style, such as \ for windows
 my $sep = '/';
-if $*DISTRO.is-win {
-    $sep = '\\';
-}
 
 # change to t subfolder and see if cwd is updated
 my $subdir = 't';
@@ -21,18 +18,18 @@ if $subdir.IO !~~ :d {
 }
 else {
     my $cwd = $*CWD;
-    ok chdir("$*CWD/$subdir"), 'chdir gave a true value';
+    ok chdir("$*CWD$subdir"), 'chdir gave a true value';
     isnt $*CWD, $cwd, 'Directory has changed';
-    is $*CWD, "$cwd$sep$subdir",
+    is $*CWD, "$cwd$subdir/",
        "Current directory is '$subdir' subfolder (absolute)";
 
     # relative change back up.
     ok chdir( ".." ), 'chdir gave a true value';
     is $*CWD, $cwd, 'Change back up to .. worked';
 
     # relative change to t
-    ok chdir( "$subdir" ), 'chdir gave a true value';
-    is $*CWD, "$cwd$sep$subdir",
+    ok chdir( $subdir ), 'chdir gave a true value';
+    is $*CWD, "$cwd$subdir/",
        "Current directory is '$subdir' subfolder (relative)";
 }
 
@@ -41,8 +38,7 @@ if $no_subdir.IO ~~ :d {
     skip "subdir '$no_subdir' does exist, actually.", 2;
 }
 else {
-    #?rakudo 2 skip 'spec non-conformance due to missing sink context'
-    lives_ok { chdir("$no_subdir") },
+    lives_ok { chdir("$no_subdir") // 1 },
              'chdir to a non-existent does not by default throw an exception';
     ok !chdir("$no_subdir"),
        'change to non-existent directory gives a false value';