Permalink
Browse files

make $*CWD stringy, since it's now already a path

  • Loading branch information...
labster committed Jun 11, 2013
1 parent d9c98ad commit bc1a8f1db147f319ae337dfcff3a84ada3b2980c
Showing with 9 additions and 9 deletions.
  1. +2 −2 S32-io/io-path-cygwin.t
  2. +2 −2 S32-io/io-path-unix.t
  3. +2 −2 S32-io/io-path-win.t
  4. +3 −3 S32-io/io-path.t
View
@@ -69,8 +69,8 @@ is IO::Path::Cygwin.new("/").child('foo'), "/foo", "append to root";
is IO::Path::Cygwin.new(".").child('foo'), "foo", "append to cwd";
if IO::Spec.FSTYPE eq 'Win32' {
ok IO::Path::Cygwin.new($*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Cygwin.new($*CWD).d, "cwd is a directory";
ok IO::Path::Cygwin.new(~$*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Cygwin.new(~$*CWD).d, "cwd is a directory";
}
else {
skip "On-system tests for filetest inheritance", 2;
View
@@ -48,8 +48,8 @@ is IO::Path::Unix.new("/").child('foo'), "/foo", "append to root";
is IO::Path::Unix.new(".").child('foo'), "foo", "append to cwd";
if IO::Spec.FSTYPE eq 'Unix' {
ok IO::Path::Unix.new($*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Unix.new($*CWD).d, "cwd is a directory";
ok IO::Path::Unix.new(~$*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Unix.new(~$*CWD).d, "cwd is a directory";
}
else {
skip "On-system tests for filetest inheritance", 2;
View
@@ -67,8 +67,8 @@ is IO::Path::Win32.new("\\").child('foo'), "\\foo", "append to root";
is IO::Path::Win32.new(".").child('foo'), "foo", "append to cwd";
if IO::Spec.FSTYPE eq 'Win32' {
ok IO::Path::Win32.new($*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Win32.new($*CWD).d, "cwd is a directory";
ok IO::Path::Win32.new(~$*CWD).e, "cwd exists, filetest inheritance ok";
ok IO::Path::Win32.new(~$*CWD).d, "cwd is a directory";
}
else {
skip "On-system tests for filetest inheritance", 2;
View
@@ -1,7 +1,7 @@
use v6;
use Test;
plan 11;
plan 10;
# L<S32::IO/IO::Path>
@@ -24,5 +24,5 @@ isa_ok $path.path, IO::Path, 'IO::Path.path returns IO::Path';
# These tests aren't particularly platform independent
# is '/'.path.Str, '/', '.path.Str roundtrips';
# is '///.'.path.Str, '///.', '... even for weird cases';
is 'foo/bar'.path.Str, 'foo/bar', 'roundtrips entire path';
# nor is this one
#is 'foo/bar'.path.Str, 'foo/bar', 'roundtrips entire path';

0 comments on commit bc1a8f1

Please sign in to comment.