1 #!/usr/bin/perl
2 # SPDX-License-Identifier: GPL-2.0
3
4 @regexps = @ARGV;
5
6 $quiet = 1;
7 $quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2);
8
9 %found = ();
10 $passed = 1;
11
12 while (<STDIN>)
13 {
14 s/\n//;
15
16 for $r (@regexps)
17 {
18 if (/$r/)
19 {
20 $found{$r} = 1; # FIXME: maybe add counters -- how many times was the regexp matched
21 }
22 }
23 }
24
25 for $r (@regexps)
26 {
27 unless (exists $found{$r})
28 {
29 print "Regexp not found: \"$r\"\n" unless $quiet;
30 $passed = 0;
31 }
32 }
33
34 exit ($passed == 0);
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.