16 print +(defined(&cwd) &&
19 defined(&fastgetcwd) ?
20 "" : "not "), "ok 1\n";
21 print +(!defined(&chdir) &&
22 !defined(&abs_path) &&
23 !defined(&fast_abs_path) ?
24 "" : "not "), "ok 2\n";
26 # XXX force Cwd to bootsrap its XSUBs since we have set @INC = "../lib"
27 # XXX and subsequent chdir()s can make them impossible to find
30 # Must find an external pwd (or equivalent) command.
33 ($^O eq "MSWin32") ? "cd" : (grep { -x && -f } map { "$_/pwd" }
34 split m/$Config{path_sep}/, $ENV{PATH})[0];
36 if (defined $pwd_cmd) {
37 chomp(my $start = `$pwd_cmd`);
38 # Win32's cd returns native C:\ style
39 $start =~ s,\\,/,g if $^O eq 'MSWin32';
42 print "ok $_ # Skip: '$pwd_cmd' failed\n";
47 my $fastcwd = fastcwd;
48 my $fastgetcwd = fastgetcwd;
49 print +($cwd eq $start ? "" : "not "), "ok 3\n";
50 print +($getcwd eq $start ? "" : "not "), "ok 4\n";
51 print +($fastcwd eq $start ? "" : "not "), "ok 5\n";
52 print +($fastgetcwd eq $start ? "" : "not "), "ok 6\n";
56 print "ok $_ # Skip: no pwd command found\n";
60 mkdir "pteerslt", 0777;
61 mkdir "pteerslt/path", 0777;
62 mkdir "pteerslt/path/to", 0777;
63 mkdir "pteerslt/path/to/a", 0777;
64 mkdir "pteerslt/path/to/a/dir", 0777;
65 Cwd::chdir "pteerslt/path/to/a/dir";
68 my $fastcwd = fastcwd;
69 my $fastgetcwd = fastgetcwd;
70 my $want = "t/pteerslt/path/to/a/dir";
71 print +($cwd =~ m|$want$| ? "" : "not "), "ok 7\n";
72 print +($getcwd =~ m|$want$| ? "" : "not "), "ok 8\n";
73 print +($fastcwd =~ m|$want$| ? "" : "not "), "ok 9\n";
74 print +($fastgetcwd =~ m|$want$| ? "" : "not "), "ok 10\n";
76 # Cwd::chdir should also update $ENV{PWD}
78 print +($ENV{PWD} =~ m|$want$| ? "" : "not "), "ok 11\n";
79 Cwd::chdir ".."; rmdir "dir";
81 Cwd::chdir ".."; rmdir "a";
83 Cwd::chdir ".."; rmdir "to";
85 Cwd::chdir ".."; rmdir "path";
87 Cwd::chdir ".."; rmdir "pteerslt";
89 print +($ENV{PWD} =~ m|\bt$| ? "" : "not "), "ok 12\n";
91 if ($Config{d_symlink}) {
92 my @dirs = split " " => $Config{libpth};
93 my $target = pop @dirs;
94 symlink $target => "linktest";
97 my $rel = "../../t/linktest";
99 my $abs_path = Cwd::abs_path($rel);
100 my $fast_abs_path = Cwd::fast_abs_path($rel);
101 print +($abs_path eq $target ? "" : "not "), "ok 13\n";
102 print +($fast_abs_path eq $target ? "" : "not "), "ok 14\n";
108 print "ok 13 # skipped\n";
109 print "ok 14 # skipped\n";