Lines Matching refs:file
39 # standard input is a file containing "echo hi*\nfalse\n". The program
46 # - a test file contains a series of tests
56 # script m Value is written to a file which
59 # stdin m Value is written to a file which is
84 # file-setup mps Used to create files, directories
86 # file, dir or symlink; second word is
89 # file; the end-quote should be followed
90 # by a newline, then the file data
94 # file-result mps Used to verify a file, symlink or
97 # file, dir or symlink; second word is
101 # indicating whether the file contents
105 # of the file that should be created.
107 # by a newline, then the file data
110 # newline in the file contents.
197 -s s Read tests from file s; if s is a directory, it is recursively
217 'file-setup', 'mps',
218 'file-result', 'mps',
232 ':full-name', 1, # file:name
233 ':long-name', 1, # dir/file:lineno:name
430 local($ret, $file);
437 while (defined ($file = readdir(DIR))) {
438 push(@todo, $file) if $file =~ /^[^.].*\.t$/;
442 foreach $file (@todo) {
443 $file = "$dir/$file";
444 if (-d $file) {
445 $ret = &process_test_dir($file);
447 $ret = &process_test_file($file);
458 local($file) = @_;
461 if (!open(IN, $file)) {
462 print STDERR "$prog: can't open $file - $!\n";
467 $ret = &read_test($file, IN, *test);
503 if (defined $test{'file-setup'}) {
507 for ($i = 0; $i < $test{'file-setup'}; $i++) {
508 $val = $test{"file-setup:$i"};
518 if ($type eq 'file') {
752 local($file);
758 while (defined ($file = readdir(DIR))) {
759 push(@todo, $file) if $file ne '.' && $file ne '..';
762 foreach $file (@todo) {
763 $file = "$dir/$file";
764 if (-d $file) {
765 return undef if !&scrub_dir($file);
766 if (!rmdir($file)) {
767 print STDERR "$prog: couldn't rmdir $file - $!\n";
771 if (!unlink($file)) {
772 print STDERR "$prog: couldn't unlink $file - $!\n";
783 local($file, $str) = @_;
785 if (!open(TEMP, "> $file")) {
786 print STDERR "$prog: can't open $file - $!\n";
792 print STDERR "$prog: error writing $file - $!\n";
801 local($name, $file, $what, $expect, $expect_pat) = @_;
806 if (!open(TEMP, "< $file")) {
807 print STDERR "$prog:$name($what): couldn't open $file after running program - $!\n";
972 local($file, $in, *test) = @_;
985 print STDERR "$prog:$file:$.: unrecognised line \"$_\"\n";
992 print STDERR "$prog:$file:$.: unrecognised field \"$field\"\n";
1001 print STDERR "$prog:$file:$.: multiple \"$field\" fields\n";
1017 "$prog:$file:$.: no parameters given for field \"$field\"\n";
1037 if ($field eq 'file-setup') {
1043 "$prog:$file:$.: bad parameter line for file-setup field\n";
1047 if ($type !~ /^(file|dir|symlink)$/) {
1049 "$prog:$file:$.: bad file type for file-setup: $type\n";
1054 "$prog:$file:$.: bad permissions for file-setup: $type\n";
1060 "$prog:$file:$.: missing end quote for file name in file-setup: $rest\n";
1069 "$prog:$file:$.: file name in file-setup is absolute or contains ..: $name\n";
1073 if ($field eq 'file-result') {
1080 "$prog:$file:$.: bad parameter line for file-result field\n";
1085 if ($type !~ /^(file|dir|symlink)$/) {
1087 "$prog:$file:$.: bad file type for file-result: $type\n";
1092 "$prog:$file:$.: bad permissions for file-result: $perm\n";
1097 "$prog:$file:$.: bad user-id for file-result: $uid\n";
1102 "$prog:$file:$.: bad group-id for file-result: $gid\n";
1107 "$prog:$file:$.: bad match type for file-result: $matchType\n";
1113 "$prog:$file:$.: missing end quote for file name in file-result: $rest\n";
1122 "$prog:$file:$.: file name in file-result is absolute or contains ..: $name\n";
1128 "$prog:$file:$.: no value given for field \"$field\"\n";
1139 "$prog:$file:$start_lineno: end-of-file while reading test\n";
1148 "$prog:$file:$start_lineno: required field \"$field\" missing\n";
1153 $test{':full-name'} = substr($file, $file_prefix_skip) . ":$test{'name'}";
1154 $test{':long-name'} = "$file:$start_lineno:$test{'name'}";
1277 return '' if (!defined $test{'file-result'});
1284 for ($i = 0; $i < $test{'file-result'}; $i++) {
1285 $val = $test{"file-result:$i"};
1317 if ($type eq 'file') {
1319 $why .= "\t$type \"$name\" is not a regular file\n";
1330 print STDERR "$prog:$test{':long-name'}: file-result test for directory $name should not have content specified\n";
1342 print STDERR "$prog:$test{':long-name'}: file-result test for $type $name failed - could not readlink - $!\n";