Lines Matching refs:ARGV
138 while(@ARGV) {
139 if($ARGV[0] eq "-h") {
152 elsif($ARGV[0] eq "--verbose") {
155 elsif($ARGV[0] eq "sleep") {
156 shift @ARGV;
157 sleep $ARGV[0];
159 elsif($ARGV[0] eq "echo") {
160 shift @ARGV;
161 print $ARGV[0] . "\n";
163 elsif($ARGV[0] eq "pause") {
167 elsif($ARGV[0] eq "protocols") {
168 shift @ARGV;
169 if($ARGV[0] eq "*") {
173 @protocols = split(",", $ARGV[0]);
177 elsif($ARGV[0] eq "preprocess") {
178 shift @ARGV;
179 loadtest("${TESTDIR}/test${ARGV[0]}");
181 singletest_preprocess($ARGV[0]);
183 elsif($ARGV[0] eq "protoport") {
184 shift @ARGV;
185 my $port = protoport($ARGV[0]);
188 elsif($ARGV[0] eq "serverfortest") {
189 shift @ARGV;
190 my ($why, $e) = serverfortest(split(/,/, $ARGV[0]));
193 elsif($ARGV[0] eq "stopservers") {
198 print "Error: Unknown command: $ARGV[0]\n";
201 shift @ARGV;