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 mkdir "pteerslt", 0777;
27 mkdir "pteerslt/path", 0777;
28 mkdir "pteerslt/path/to", 0777;
29 mkdir "pteerslt/path/to/a", 0777;
30 mkdir "pteerslt/path/to/a/dir", 0777;
31 Cwd::chdir "pteerslt/path/to/a/dir";
34 my $fastcwd = fastcwd;
35 my $fastgetcwd = fastgetcwd;
36 my $want = "t/pteerslt/path/to/a/dir";
37 print +($cwd =~ m|$want$| ? "" : "not "), "ok 3\n";
38 print +($getcwd =~ m|$want$| ? "" : "not "), "ok 4\n";
39 print +($fastcwd =~ m|$want$| ? "" : "not "), "ok 5\n";
40 print +($fastgetcwd =~ m|$want$| ? "" : "not "), "ok 6\n";
42 # Cwd::chdir should also update $ENV{PWD}
43 print +($ENV{PWD} =~ m|$want$| ? "" : "not "), "ok 7\n";
44 Cwd::chdir ".."; rmdir "dir";
45 Cwd::chdir ".."; rmdir "a";
46 Cwd::chdir ".."; rmdir "to";
47 Cwd::chdir ".."; rmdir "path";
48 Cwd::chdir ".."; rmdir "pteerslt";
49 print +($ENV{PWD} =~ m|\bt$| ? "" : "not "), "ok 8\n";
51 if ($Config{d_symlink}) {
52 my @dirs = split " " => $Config{libpth};
53 my $target = pop @dirs;
54 symlink $target => "linktest";
57 my $rel = "../../t/linktest";
59 my $abs_path = Cwd::abs_path($rel);
60 my $fast_abs_path = Cwd::fast_abs_path($rel);
61 print +($abs_path eq $target ? "" : "not "), "ok 9\n";
62 print +($fast_abs_path eq $target ? "" : "not "), "ok 10\n";
68 print "ok 9 # Skip: no symlink\n";
69 print "ok 10 # Skip: no symlink\n";