~hingo/percona-toolkit/pqd-mongodb-24

« back to all changes in this revision

Viewing changes to t/pt-query-digest/execute.t

  • Committer: Brian Fraser
  • Date: 2012-07-20 20:25:10 UTC
  • mfrom: (303.2.27 new-versionparser)
  • Revision ID: brian.fraser@percona.com-20120720202510-zoia5ndqchpcysec
Merged new-versionparser

Show diffs side-by-side

added added

removed removed

Lines of Context:
13
13
 
14
14
use Sandbox;
15
15
use PerconaTest;
16
 
use VersionParser;
17
16
# See 101_slowlog_analyses.t for why we shift.
18
17
shift @INC;  # our unshift (above)
19
18
shift @INC;  # PerconaTest's unshift
22
21
require "$trunk/bin/pt-query-digest";
23
22
 
24
23
my $dp  = new DSNParser(opts=>$dsn_opts);
25
 
my $vp  = new VersionParser();
26
24
my $sb  = new Sandbox(basedir => '/tmp', DSNParser => $dp);
27
25
my $dbh = $sb->get_dbh_for('master');
28
26