Merged fix-821703-processlist-null-state

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-07-30 16:48:15 -03:00
4 changed files with 36 additions and 8 deletions

View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 35;
use Test::More;
use Processlist;
use PerconaTest;
@@ -862,7 +862,35 @@ eval { $pl->find([$proc], %find_spec) };
ok !$@,
"Bug 923896: NULL Time in processlist doesn't fail for idle_time+Command=Sleep";
# #############################################################################
# NULL STATE doesn't generate warnings
# https://bugs.launchpad.net/percona-toolkit/+bug/821703
# #############################################################################
$procs = [
[ [1, 'unauthenticated user', 'localhost', undef, 'Connect', 7,
'some state', 1] ],
[ [1, 'unauthenticated user', 'localhost', undef, 'Connect', 8,
undef, 2] ],
],
eval {
parse_n_times(
2,
code => sub {
return shift @$procs;
},
time => Transformers::unix_timestamp('2001-01-01 00:05:00'),
);
};
is(
$EVAL_ERROR,
'',
"NULL STATE shouldn't cause warnings"
);
# #############################################################################
# Done.
# #############################################################################
exit;
done_testing;