Commit 61d348f1 authored by Veronika Molnarova's avatar Veronika Molnarova Committed by Namhyung Kim
Browse files

perf testsuite: Add common output checking helpers 



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: default avatarVeronika Molnarova <vmolnaro@redhat.com>
Signed-off-by: default avatarMichael Petlan <mpetlan@redhat.com>
Cc: kjain@linux.ibm.com
Cc: atrajeev@linux.vnet.ibm.com
Signed-off-by: default avatarNamhyung Kim <namhyung@kernel.org>
Link: https://lore.kernel.org/r/20240215110231.15385-6-mpetlan@redhat.com
parent c8eb2a9f

tools/perf/tests/shell/common/check_all_lines_matched.pl

0 → 100755
+39 −0
Original line number Diff line number Diff line 
#!/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);

tools/perf/tests/shell/common/check_all_patterns_found.pl

0 → 100755
+34 −0
Original line number Diff line number Diff line 
#!/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);

tools/perf/tests/shell/common/check_no_patterns_found.pl

0 → 100755
+34 −0
Original line number Diff line number Diff line 
#!/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);