1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
# ==== 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: 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 "Command: '$cmd'\n";
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
|
