Lines Matching full:line
73 print "** ERROR: special pattern not recognized: <<$type>>, CONSOLE_LOG line: $.\n";
81 print "** ERROR: $script_name internal error, at end of compare(), CONSOLE_LOG line: $.\n";
101 --line-num report line number of CONSOLE_LOG
136 A prefix is added to every line of output:
138 'ok ' Line matches an enclosing EXPECT begin/end pair
140 '** ' Line reports $script_name warning or error
142 '-> ' Line reports start or end of the unittests
144 '>> ' Line reports a unittest test FAIL
152 --line-num causes the CONSOLE_LOG line number to be printed in 4 columns.
154 used to report the line number for lines greater than 9999 (eg for
168 "line-num" => \$print_line_num,
175 print STDERR "ERROR processing command line options\n";
217 # 'while ($line = <ARGV>) {' in the code below supports multiple file
218 # names on the command line, but the EXPECT statistics are reported
248 LINE: label
249 while ($line = <ARGV>) {
251 chomp $line;
258 $timestamp = $line;
261 ($timestamp, $null) = split(/]/, $line);
269 $line =~ s/^\[\s*[0-9]+\.[0-9]*\] //;
274 if ($line =~ /^\s*$exp_begin/) {
275 $data = $line;
283 printf "%s %s%s%s\n", $prefix, $line_num, $timestamp, $line;
286 next LINE;
292 if ($line =~ /^\s*$exp_end/) {
293 $data = $line;
300 printf "%s %s%s%s\n", $prefix, $line_num, $timestamp, $line;
320 print " end ---> $line\n";
337 print " end ---> $line\n";
345 next LINE;
349 # ----- not an EXPECT line
351 if (($line =~ /^${pr_fmt}start of unittest - you will see error messages$/) ||
352 ($line =~ /^${pr_fmt}end of unittest - [0-9]+ passed, [0-9]+ failed$/ ) ) {
354 } elsif ($line =~ /^${pr_fmt}FAIL /) {
361 if (compare($begin, $line)) {
369 while (! compare($begin, $line)) {
373 push @found_or_begin, $line;
377 next LINE;
387 printf "%s %s%s%s\n", $prefix, $line_num, $timestamp, $line;