torvalds/linux
3
0
Fork 0
mirror of git://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git synced 2026-04-19 12:49:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

perf testsuite: Add common output checking helpers

Browse Source 
As a form of validation, it is a common practice to check the outputs
of commands whether they contain expected patterns or match a certain
regex.

Add helpers for verifying that all regexes are found in the output, that
all lines match any pattern from a set and that a certain expression is
not present in the output.

In verbose mode these helpers log mismatches for easier failure
investigation.

Signed-off-by: Veronika Molnarova <vmolnaro@redhat.com>
Signed-off-by: Michael Petlan <mpetlan@redhat.com>
Cc: kjain@linux.ibm.com
Cc: atrajeev@linux.vnet.ibm.com
Signed-off-by: Namhyung Kim <namhyung@kernel.org>
Link: https://lore.kernel.org/r/20240215110231.15385-6-mpetlan@redhat.com
This commit is contained in:
Veronika Molnarova
2024-02-15 12:02:29 +01:00
committed by Namhyung Kim
parent c8eb2a9ff8
commit 61d348f1e9
3 changed files with 107 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
tools/perf/tests/shell/common/check_all_lines_matched.pl Executable file
View File

@@ -0,0 +1,39 @@
#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0
@regexps = @ARGV;
$max_printed_lines = 20;
$max_printed_lines = $ENV{TESTLOG_ERR_MSG_MAX_LINES} if (defined $ENV{TESTLOG_ERR_MSG_MAX_LINES});
$quiet = 1;
$quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2);
$passed = 1;
$lines_printed = 0;
while (<STDIN>)
{
s/\n//;
$line_matched = 0;
for $r (@regexps)
{
if (/$r/)
{
$line_matched = 1;
last;
}
}
unless ($line_matched)
{
if ($lines_printed++ < $max_printed_lines)
{
print "Line did not match any pattern: \"$_\"\n" unless $quiet;
}
$passed = 0;
}
}
exit ($passed == 0);

34
tools/perf/tests/shell/common/check_all_patterns_found.pl Executable file
View File

@@ -0,0 +1,34 @@
#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0
@regexps = @ARGV;
$quiet = 1;
$quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2);
%found = ();
$passed = 1;
while (<STDIN>)
{
s/\n//;
for $r (@regexps)
{
if (/$r/)
{
$found{$r} = 1; # FIXME: maybe add counters -- how many times was the regexp matched
}
}
}
for $r (@regexps)
{
unless (exists $found{$r})
{
print "Regexp not found: \"$r\"\n" unless $quiet;
$passed = 0;
}
}
exit ($passed == 0);

34
tools/perf/tests/shell/common/check_no_patterns_found.pl Executable file
View File

@@ -0,0 +1,34 @@
#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0
@regexps = @ARGV;
$quiet = 1;
$quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2);
%found = ();
$passed = 1;
while (<STDIN>)
{
s/\n//;
for $r (@regexps)
{
if (/$r/)
{
$found{$r} = 1;
}
}
}
for $r (@regexps)
{
if (exists $found{$r})
{
print "Regexp found: \"$r\"\n" unless $quiet;
$passed = 0;
}
}
exit ($passed == 0);