35 lines · plain
1#!/usr/bin/perl2# SPDX-License-Identifier: GPL-2.03 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 12while (<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 matched21 }22 }23}24 25for $r (@regexps)26{27 unless (exists $found{$r})28 {29 print "Regexp not found: \"$r\"\n" unless $quiet;30 $passed = 0;31 }32}33 34exit ($passed == 0);35