mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-26 15:31:55 +00:00
Test cases.
This commit is contained in:
@@ -9,7 +9,7 @@ BEGIN {
|
||||
use strict;
|
||||
use warnings FATAL => 'all';
|
||||
use English qw(-no_match_vars);
|
||||
use Test::More tests => 3;
|
||||
use Test::More tests => 4;
|
||||
|
||||
use PerconaTest;
|
||||
|
||||
@@ -39,6 +39,19 @@ like(
|
||||
'Dest DSN requires t'
|
||||
);
|
||||
|
||||
# #############################################################################
|
||||
# Bug 1039074: Tools exit 0 on error parsing options, should exit non-zero
|
||||
# #############################################################################
|
||||
|
||||
system("$trunk/bin/pt-deadlock-logger --i-am-the-error >/dev/null 2>&1");
|
||||
my $exit_status = $CHILD_ERROR >> 8;
|
||||
|
||||
is(
|
||||
$exit_status,
|
||||
1,
|
||||
"Non-zero exit on option error (bug 1039074)"
|
||||
);
|
||||
|
||||
# #############################################################################
|
||||
# Done.
|
||||
# #############################################################################
|
||||
|
Reference in New Issue
Block a user