← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-password-comma-bug-886077

« back to all changes in this revision

Viewing changes to t/lib/QueryReview.t

  • Committer: Daniel Nichter
  • Date: 2012-02-07 20:10:11 UTC
  • mfrom: (174 2.0)
  • mto: This revision was merged to the branch mainline in revision 189.
  • Revision ID: daniel@percona.com-20120207201011-sok2c1f2ay9qr3gm
Merge trunk r174.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/lib/QueryReview.t
14
14
use Transformers;
15
15
use QueryReview;
16
16
use QueryRewriter;
17
 
use MySQLDump;
18
17
use TableParser;
19
18
use Quoter;
20
19
use SlowLogParser;
41
40
my $lp = new SlowLogParser;
42
41
my $q  = new Quoter();
43
42
my $tp = new TableParser(Quoter => $q);
44
 
my $du = new MySQLDump();
45
43
my $opt_parser = new OptionParser( description => 'hi' );
46
44
my $tbl_struct = $tp->parse(
47
 
   $du->get_create_table($dbh, $q, 'test', 'query_review'));
 
45
   $tp->get_create_table($dbh, 'test', 'query_review'));
48
46
 
49
47
my $qv = new QueryReview(
50
48
   dbh        => $dbh,
159
157
$create_table =~ s/query_review_history/test.query_review_history/;
160
158
$dbh->do($create_table);
161
159
my $hist_struct = $tp->parse(
162
 
   $du->get_create_table($dbh, $q, 'test', 'query_review_history'));
 
160
   $tp->get_create_table($dbh, 'test', 'query_review_history'));
163
161
 
164
162
$qv->set_history_options(
165
163
   table      => 'test.query_review_history',
256
254
$dbh->do($min_tbl);
257
255
 
258
256
$hist_struct = $tp->parse(
259
 
   $du->get_create_table($dbh, $q, 'test', 'query_review_history'));
 
257
   $tp->get_create_table($dbh, 'test', 'query_review_history'));
260
258
$qv->set_history_options(
261
259
   table      => 'test.query_review_history',
262
260
   dbh        => $dbh,