91 lines
2.5 KiB
PHP
91 lines
2.5 KiB
PHP
# ==== Purpose ====
|
|
#
|
|
# Execute a command and verify the following:
|
|
# - the exit status is as specified;
|
|
# - the output (stdout) matches a given regex.
|
|
#
|
|
# ==== Usage ====
|
|
#
|
|
# --let $assert_command= COMMAND
|
|
# --let $assert_regex= REGEX
|
|
# --let $assert_status= EXIT_STATUS
|
|
# [--let $assert_negated= 1]
|
|
#
|
|
# Parameters:
|
|
#
|
|
# $assert_command
|
|
# The command line to use.
|
|
#
|
|
# $assert_regex
|
|
# Assert that stdout from the command matches this Perl regex.
|
|
#
|
|
# $assert_status
|
|
# Assert that the command returns this exit status.
|
|
#
|
|
# $assert_negated
|
|
# Assert that stdout does *not* match $assert_regex.
|
|
|
|
--let $include_filename= assert_command_output.inc
|
|
--source include/begin_include_file.inc
|
|
|
|
if ($rpl_debug)
|
|
{
|
|
--echo # debug: assert_command='$assert_command' assert_regex='$assert_regex' assert_negated='$assert_negated' assert_status='$assert_status'
|
|
}
|
|
|
|
--let _ASSERT_COMMAND= $assert_command
|
|
--let _ASSERT_REGEX= $assert_regex
|
|
--let _ASSERT_NEGATED= $assert_negated
|
|
--let _ASSERT_STATUS= $assert_status
|
|
--let $_assert_suffix= `SELECT UUID()`
|
|
--let _ASSERT_ERROR_FILE= $MYSQLTEST_VARDIR/tmp/_assert_$_assert_suffix.inc
|
|
--let _ASSERT_DEBUG= $rpl_debug
|
|
|
|
if ($rpl_debug)
|
|
{
|
|
--echo # debug: assert_error_file='$_ASSERT_ERROR_FILE'
|
|
}
|
|
|
|
perl;
|
|
my $cmd= $ENV{'_ASSERT_COMMAND'};
|
|
my $positive= $ENV{'_ASSERT_NEGATED'} ? 0 : 1;
|
|
my $regex= $ENV{'_ASSERT_REGEX'};
|
|
my $status= $ENV{'_ASSERT_STATUS'};
|
|
my $debug= $ENV{'_ASSERT_DEBUG'};
|
|
my $output= `$cmd`;
|
|
my $error= 0;
|
|
$status= 0 if $status eq '';
|
|
if ($status ne '*' and ($status ? $? >> 8 != $status : $? != 0))
|
|
{
|
|
print "ERROR: Command returned wrong exit status! " .
|
|
"Expected '$status', got '".($?>>8)."'\n";
|
|
$error= 1;
|
|
}
|
|
if ((($output =~ m{$regex}ms) ? 1 : 0) != $positive)
|
|
{
|
|
print "ERROR: Command produced wrong output!\n";
|
|
print "ERROR: Command: '$cmd'\n";
|
|
print "ERROR: Output expected to " . ($positive?'':'not '). "match " .
|
|
"perl regex: '$regex'\n";
|
|
$error= 1;
|
|
}
|
|
if (!$error)
|
|
{
|
|
my $file= $ENV{_ASSERT_ERROR_FILE};
|
|
open FILE, "> $file" or die "Error opening $file: $!";
|
|
print FILE "X" or die "Error writing to $file: $!";
|
|
close FILE or die "Error closing $file: $!";
|
|
}
|
|
if ($error || $debug)
|
|
{
|
|
print "======== BEGIN output ========\n$output\n" .
|
|
"======== END OUTPUT ========\n";
|
|
}
|
|
EOF
|
|
|
|
--file_exists $_ASSERT_ERROR_FILE
|
|
--remove_file $_ASSERT_ERROR_FILE
|
|
|
|
--let $include_filename= assert_command_output.inc
|
|
--source include/end_include_file.inc
|