Lines Matching refs:file
6 print STDERR "Usage: $0 [OPTIONS] <input file(s)>\n";
7 print STDERR "Generate test source file for CxxTest.\n";
10 print STDERR " -o, --output=NAME Write output to file NAME\n";
20 print STDERR " --template=TEMPLATE Use TEMPLATE file to generate the test runner\n";
106 foreach my $file (@ARGV) {
107 scanInputFile( $file );
113 my ($file) = @_;
114 open FILE, "<$file" or die("Cannot open input file \"$file\"\n");
121 scanLineForSuiteStart( $file, $., $line );
145 addLineToBlock( $suite->{'file'}, $lineNo, $line );
176 my ($name, $file, $line, $generated) = @_;
179 'file' => $file,
279 sub fileName() { return $suite->{'file'}; }
287 my $file = $_[0];
288 $file =~ s/\\/\\\\/g;
289 return "\"".$file."\"";
293 # Writing the test source file
302 open OUTPUT_FILE,">$output" or die("Cannot create output file \"$output\"\n");
305 print "/* Generated file, do not edit */\n\n";
340 open TEMPLATE_FILE, "<$template" or die("Cannot open template file \"$template\"\n");
405 my $file = $_[0];
406 return if $lastIncluded && ($file eq $lastIncluded);
407 print "#include \"$file\"\n\n";
408 $lastIncluded = $file;
424 print " const char *file() const { return ", fileString(), "; }\n";