Lines Matching refs:name
24 # name: a-test
52 # name r The name of the test; should be unique
88 # quoted word that is the name of the
104 # The fifth argument is the quoted name
132 # negated by prefixing the name with a !.
140 # (XXX is the operating system name,
145 # r tag is required (eg, a test must have a name tag).
188 [-t tmo] [-U lcl] name ...
203 name specifies the name of the test(s) to run; if none are
209 'name', 'r',
232 ':full-name', 1, # file:name
233 ':long-name', 1, # dir/file:lineno:name
469 next if !$all_tests && !$do_test{$test{'name'}};
483 local($name) = $test{':full-name'};
505 local($type, $perm, $rest, $c, $len, $name);
510 # format is: type perm "name"
515 $name = substr($rest, 1, $len);
519 return undef if !&write_file($name, $rest);
520 if (!chmod($perm, $name)) {
522 "$prog:$test{':long-name'}: can't chmod $perm $name - $!\n";
526 if (!mkdir($name, $perm)) {
528 "$prog:$test{':long-name'}: can't mkdir $perm $name - $!\n";
533 local($ret) = symlink($rest, $name);
537 "$prog:$test{':long-name'}: couldn't create symlink $name - $!\n";
547 print STDERR "$prog:$test{':long-name'}: error running perl-setup - $@\n";
645 $ret = &eval_exit($test{'long-name'}, $status, $test{'expected-exit'});
662 $tmp = &check_output($test{'long-name'}, $tempo, 'stdout',
670 $tmp = &check_output($test{'long-name'}, $tempe, 'stderr',
688 print STDERR "$prog:$test{':long-name'}: error running perl-cleanup - $@\n";
701 print "FAIL $name\n";
704 print "FAIL $name (ignored)\n";
708 print "fail $name (as expected)\n";
715 print "PASS $name (unexpectedly)\n";
718 print "pass $name\n";
801 local($name, $file, $what, $expect, $expect_pat) = @_;
807 print STDERR "$prog:$name($what): couldn't open $file after running program - $!\n";
815 return compare_output($name, $what, $expect, $expect_pat, $got);
821 local($name, $what, $expect, $expect_pat, $got) = @_;
828 print STDERR "$prog:$name($what): error evaluating $what pattern: $expect_pat - $@\n";
946 local($name, $status, $expect) = @_;
963 print STDERR "$prog:$test{':long-name'}: bad expected-exit expression: $expect ($@)\n";
1038 local($type, $perm, $rest, $c, $len, $name);
1040 # format is: type perm "name"
1060 "$prog:$file:$.: missing end quote for file name in file-setup: $rest\n";
1063 $name = substr($rest, 1, $len);
1064 if ($name =~ /^\// || $name =~ /(^|\/)\.\.(\/|$)/) {
1069 "$prog:$file:$.: file name in file-setup is absolute or contains ..: $name\n";
1075 $rest, $c, $len, $name);
1077 # format is: type perm uid gid matchType "name"
1113 "$prog:$file:$.: missing end quote for file name in file-result: $rest\n";
1116 $name = substr($rest, 1, $len);
1117 if ($name =~ /^\// || $name =~ /(^|\/)\.\.(\/|$)/) {
1122 "$prog:$file:$.: file name in file-result is absolute or contains ..: $name\n";
1153 $test{':full-name'} = substr($file, $file_prefix_skip) . ":$test{'name'}";
1154 $test{':long-name'} = "$file:$start_lineno:$test{'name'}";
1160 "$prog:$test{':long-name'}: bad value for expected-fail field\n";
1170 "$prog:$test{':long-name'}: bad value for need-ctty field\n";
1180 "$prog:$test{':long-name'}: bad value for need-pass field\n";
1191 print STDERR "$prog:$test{':long-name'}: arguments field doesn't start and end with the same character\n";
1199 print STDERR "$prog:$test{':long-name'}: env-setup field doesn't start and end with the same character\n";
1210 print STDERR "$prog:$test{':long-name'}: expected-exit value $val not in 0..255\n";
1214 print STDERR "$prog:$test{':long-name'}: bad expected-exit expression: $val\n";
1223 print STDERR "$prog:$test{':long-name'}: can't use both expected-stdout and expected-stdout-pattern\n";
1229 print STDERR "$prog:$test{':long-name'}: can't use both expected-stderr and expected-stderr-pattern\n";
1235 "$prog:$test{':long-name'}: bad value for time-limit field\n";
1242 if (defined $known_tests{$test{'name'}}) {
1243 print STDERR "$prog:$test{':long-name'}: warning: duplicate test name ${test{'name'}}\n";
1245 $known_tests{$test{'name'}} = 1;
1281 local($type, $perm, $uid, $gid, $rest, $c, $len, $name);
1287 # format is: type perm "name"
1292 $name = substr($rest, 1, $len);
1296 @stbuf = lstat($name);
1298 $why .= "\texpected $type \"$name\" not created\n";
1302 $why .= "\t$type \"$name\" has unexpected permissions\n";
1307 $why .= "\t$type \"$name\" has unexpected user-id\n";
1312 $why .= "\t$type \"$name\" has unexpected group-id\n";
1319 $why .= "\t$type \"$name\" is not a regular file\n";
1321 local $tmp = &check_output($test{'long-name'}, $name,
1322 "$type contents in \"$name\"",
1330 print STDERR "$prog:$test{':long-name'}: file-result test for directory $name should not have content specified\n";
1334 $why .= "\t$type \"$name\" is not a directory\n";
1338 $why .= "\t$type \"$name\" is not a symlink\n";
1340 local $content = readlink($name);
1342 print STDERR "$prog:$test{':long-name'}: file-result test for $type $name failed - could not readlink - $!\n";
1345 local $tmp = &compare_output($test{'long-name'},
1346 "$type contents in \"$name\"",