Lines Matching refs:File
21 use File::Path ();
22 File::Path::rmtree( 'ecmddir' );
27 use File::Spec;
44 my ($vol, $dirs, $file) = File::Spec->splitpath($self);
45 my @dirs = File::Spec->splitdir($dirs);
46 unshift(@dirs, File::Spec->updir);
47 $dirs = File::Spec->catdir(@dirs);
48 $self = File::Spec->catpath($vol, $dirs, $file);
185 @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
197 ok( -e File::Spec->join( 'ecmddir', 'temp2', $Testfile ), 'copied okay' );
212 ok( -e File::Spec->join( 'ecmddir', $Testfile ), 'file in new location' );
241 chdir File::Spec->updir;
245 my @files = @ARGV = ( File::Spec->catfile( 'ecmddir', $Testfile ),
246 File::Spec->catfile( 'ecmddir', 'temp2', $Testfile ) );
252 @ARGV = my $dir = File::Spec->catfile( 'ecmddir' );
286 File::Path::rmtree( 'ecmddir' );
287 File::Path::rmtree( 'd2utest' );