percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-25 05:44:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Modernize and hopefully make pt-query-digest/issue_360.t stable.

Browse Source
This commit is contained in:
Daniel Nichter
2012-06-06 21:43:53 -04:00
parent 52271eec9e
commit add06645d8
1 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
t/pt-query-digest/issue_360.t
View File

@@ -26,27 +26,41 @@ else {
plan tests => 3; plan tests => 3;
} }
$sb->create_dbs($dbh, ['test']);
# ############################################################################# # #############################################################################
# Issue 360: mk-query-digest first_seen and last_seen not automatically # Issue 360: mk-query-digest first_seen and last_seen not automatically
# populated # populated
# ############################################################################# # #############################################################################
$dbh->do('DROP TABLE IF EXISTS test.query_review');
`$trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --interval 0.01 --create-review-table --review h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=query_review --daemonize --log /tmp/mk-query-digest.log --pid /tmp/mk-query-digest.pid --run-time 2`;
# Load any file that is slow enough to be caught by mqd --processlist. my $pid_file = "/tmp/pt-query-digest-test-issue_360.t.$PID";
`/tmp/12345/use < $trunk/t/pt-archiver/samples/table5.sql`;
`/tmp/12345/use -e 'select sleep(2)'`; # Need a clean query review table.
$sb->create_dbs($dbh, [qw(test)]);
# Run pt-query-digest in the background for 2s,
# saving queries to test.query_review.
diag(`$trunk/bin/pt-query-digest --processlist h=127.1,P=12345,u=msandbox,p=msandbox --interval 0.01 --create-review-table --review h=127.1,P=12345,u=msandbox,p=msandbox,D=test,t=query_review --daemonize --pid $pid_file --log /dev/null --run-time 2`);
# Wait until its running.
PerconaTest::wait_for_files($pid_file);
# Execute some queries to give it something to see.
for (1..3) {
$dbh->selectall_arrayref("SELECT SLEEP(1)");
}
# Wait until it stops running (should already be done).
wait_until(sub { !-e $pid_file });
`rm -rf /tmp/mk-query-digest.log`;
my @ts = $dbh->selectrow_array('SELECT first_seen, last_seen FROM test.query_review LIMIT 1'); my @ts = $dbh->selectrow_array('SELECT first_seen, last_seen FROM test.query_review LIMIT 1');
ok( isnt(
$ts[0] && $ts[0] ne '0000-00-00 00:00:00', $ts[0],
'0000-00-00 00:00:00',
'first_seen from --processlist is not 0000-00-00 00:00:00' 'first_seen from --processlist is not 0000-00-00 00:00:00'
); );
ok(
$ts[0] && $ts[1] ne '0000-00-00 00:00:00', isnt(
$ts[1],
'0000-00-00 00:00:00',
'last_seen from --processlist is not 0000-00-00 00:00:00' 'last_seen from --processlist is not 0000-00-00 00:00:00'
); );