Lines Matching full:cwd
5 use Cwd;
50 like $INC{'Cwd.pm'}, qr{blib}i, "Cwd should be loaded from blib/ during testing";
55 can_ok('main', qw(cwd getcwd fastcwd fastgetcwd));
63 cwd();
65 is($before, $after, "cwd() shouldn't create spurious entries in %ENV");
68 # XXX force Cwd to bootstrap its XSUBs since we have set @INC = "../lib"
114 # Darwin's getcwd(3) (which Cwd.xs:bsd_realpath() uses which
115 # Cwd.pm:getcwd uses) has some magic related to the PWD
123 # the PWD to force getcwd(3) to (re)compute the cwd in full.
124 # Admittedly fixing this in the Cwd module would be better
129 my $cwd = cwd;
134 is($cwd, $start, 'cwd()');
145 Cwd::chdir $Test_Dir;
147 foreach my $func (qw(cwd getcwd fastcwd fastgetcwd)) {
160 # Cwd::chdir should also update $ENV{PWD}
161 dir_ends_with( $ENV{PWD}, $Test_Dir, 'Cwd::chdir() updates $ENV{PWD}' );
165 Cwd::chdir $updir;
182 Cwd::abs_path($Test_Dir);
198 my $abs_path = Cwd::abs_path($file);
199 my $fast_abs_path = Cwd::fast_abs_path($file);
200 my $pas = Cwd::_perl_abs_path($file);
214 like($abs_path, qr|$want$|i, "Cwd::abs_path produced $abs_path");
215 like($fast_abs_path, qr|$want$|i, "Cwd::fast_abs_path produced $fast_abs_path");
219 like($pas, qr|$want$|i, "Cwd::_perl_abs_path produced $pas");
231 my $path = 'cwd.t';
232 path_ends_with(Cwd::abs_path($path), 'cwd.t', 'abs_path() can be invoked on a file');
233 path_ends_with(Cwd::fast_abs_path($path), 'cwd.t', 'fast_abs_path() can be invoked on a file');
234 path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be invoked on a file')
238 path_ends_with(Cwd::abs_path($path), 'cwd.t', 'abs_path() can be invoked on a file');
239 path_ends_with(Cwd::fast_abs_path($path), 'cwd.t', 'fast_abs_path() can be invoked on a file');
240 path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be invoked on a file')
248 my $root = Cwd::abs_path(File::Spec->rootdir); # Add drive letter?
257 is Cwd::abs_path($file), $file, 'abs_path() works on files in the root directory';
258 is Cwd::fast_abs_path($file), $file, 'fast_abs_path() works on files in the root directory';
259 is Cwd::_perl_abs_path($file), $file, '_perl_abs_path() works on files in the root directory'
267 eval { Cwd::fast_abs_path() };