Lines Matching refs:ARGV
50 @ARGV = ($self, $self);
57 @ARGV = ( $Testfile );
60 @ARGV = ( $Testfile );
63 # these are destructive, have to keep setting @ARGV
64 @ARGV = ( $Testfile );
67 @ARGV = ( $Testfile );
70 @ARGV = ( $Testfile );
71 ok( -e $ARGV[0], 'created!' );
74 utime ($now, $now, $ARGV[0]);
80 my $stamp = (stat($ARGV[0]))[9];
84 @ARGV = qw(newfile);
90 @ARGV = ('newfile', $Testfile);
101 @ARGV = ('newfile', $Testfile);
114 @ARGV = ( '0100', $Testfile );
121 @ARGV = ( '0400', $Testfile );
128 @ARGV = ( '0200', $Testfile );
136 @ARGV = ( '0600', $Testfile );
143 @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
144 ok( ! -e $ARGV[0], 'temp directory not there yet' );
147 ok( -e $ARGV[0], 'temp directory created' );
150 unshift @ARGV, $Testfile;
156 @ARGV = ( $Testfile ) x 3;
162 @ARGV = ( $Testfile, 'ecmddir' );
169 @ARGV = ( $Testfile ) x 3;
177 @ARGV = ();
182 ($ARGV[0] = $file) =~ s/.\z/$match_char/;
187 is_deeply( \@ARGV, [$file], 'expanded wildcard ? successfully' );
190 ($ARGV[0] = $file) =~ s/.{3}\z/\*/;
193 is_deeply( \@ARGV, [$file], 'expanded wildcard * successfully' );
199 my @files = @ARGV = ( File::Spec->catfile( 'ecmddir', $Testfile ),
203 ok( ! -e $_, "removed $_ successfully" ) for (@ARGV);
206 @ARGV = my $dir = File::Spec->catfile( 'ecmddir' );