Lines Matching +full:data +full:- +full:lines
2 # SPDX-License-Identifier: GPL-2.0
40 $expect =~ s/^.*?>>//; # '?' is non-greedy, minimal match
54 if ($got =~ /^[+-]*[0-9]+/) {
55 $got =~ s/^[+-]*[0-9]+//;
60 if ($got =~ /^(0x)*[0-9a-f]+/) {
61 $got =~ s/^(0x)*[0-9a-f]+//;
100 -h print program usage
101 --help print program usage
102 --hide-expect suppress output of EXPECTed lines
103 --line-num report line number of CONSOLE_LOG
104 --no-expect-stats do not report EXPECT statistics
105 --no-strip-ts do not strip leading console timestamps
106 --verbose do not suppress EXPECT begin and end lines
107 --version print program version and exit
124 If 'EXPECT \\' (begin) and 'EXPECT /' (end) lines do not contain
127 If EXPECT lines are nested, 'EXPECT /' (end) lines must be in the
128 reverse order of the corresponding 'EXPECT \\' (begin) lines.
130 'EXPECT \\ : text' (begin) and 'EXPECT / : text' (end) lines can
133 <<int>> matches: [+-]*[0-9]+
134 <<hex>> matches: (0x)*[0-9a-f]+
137 'EXPECT \\' (begin) and 'EXPECT /' (end) lines are suppressed.
145 '-> ' Line reports start or end of the unittests
149 ' ' Lines that are not otherwise prefixed
155 --line-num causes the CONSOLE_LOG line number to be printed in 4 columns.
156 If CONSOLE_LOG contains more than 9999 lines then more columns will be
157 used to report the line number for lines greater than 9999 (eg for
158 lines 10000 - 99999, 5 columns will be used).
170 "hide-expect" => \$hide_expect,
171 "line-num" => \$print_line_num,
172 "no-expect-stats" => \$no_expect_stats,
173 "no-strip-ts" => \$no_strip_ts,
180 print STDERR "For help, type '$script_name --help'\n";
196 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
205 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
215 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
222 # once for all input - it is not an expected use case to generate one
243 $pr_fmt = "### dt-test ### ";
267 if ($timestamp =~ /^\[\s*[0-9]+\.[0-9]*\] /) {
276 $line =~ s/^\[\s*[0-9]+\.[0-9]*\] //;
279 # ----- find EXPECT begin
282 $data = $line;
283 $data =~ s/^\s*$exp_begin//;
284 push @exp_begin_stack, $data;
297 # ----- find EXPECT end
300 $data = $line;
301 $data =~ s/^\s*$exp_end//;
314 if (compare($data, $begin)) {
328 print " end ---> $line\n";
337 printf "** %s%s$script_name WARNING - not found ---> %s\n",
338 $line_num, $timestamp, $data;
340 } elsif (! compare($data, $begin) and ($data ne $begin)) {
344 print " begin -> $begin\n";
345 print " end ---> $line\n";
353 # ----- find EXPECT_NOT begin
356 $data = $line;
357 $data =~ s/^\s*$expnot_begin//;
358 push @expnot_begin_stack, $data;
371 # ----- find EXPECT_NOT end
374 $data = $line;
375 $data =~ s/^\s*$expnot_end//;
388 if (compare($data, $begin)) {
400 print " end ---> $line\n";
410 printf "** %s%s$script_name WARNING - next line matches EXPECT_NOT\n",
423 if (! compare($data, $begin) and ($data ne $begin)) {
427 print " begin -> $begin\n";
428 print " end ---> $line\n";
437 # ----- not an EXPECT line
439 if (($line =~ /^${pr_fmt}start of unittest - you will see error messages$/) ||
440 ($line =~ /^${pr_fmt}end of unittest - [0-9]+ passed, [0-9]+ failed$/ ) ) {
441 $prefix = "->"; # 2 characters
508 printf "** non-zero values expected:\n";
531 print " begin ---> $begin\n";
539 print " begin ---> $begin\n";