← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to util/simplify-query.pl

merge from internal tree

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/simplify-query.pl
 
1
use warnings;
 
2
use strict;
 
3
use DBI;
 
4
use lib 'lib';
 
5
use lib '../lib';
 
6
 
 
7
$| = 1;
 
8
 
 
9
use GenTest::Constants;
 
10
use GenTest::Executor::MySQL;
 
11
use GenTest::Simplifier::Test;
 
12
use GenTest::Simplifier::SQL;
 
13
use GenTest::Comparator;
 
14
 
 
15
#
 
16
# This script demonstrates the simplification of queries. More information is available at
 
17
#
 
18
# http://forge.mysql.com/wiki/RandomQueryGeneratorSimplification
 
19
#
 
20
 
 
21
my $query = "SELECT 1 FROM DUAL";
 
22
 
 
23
my @desired_outcomes = (
 
24
        STATUS_CONTENT_MISMATCH,
 
25
        STATUS_LENGTH_MISMATCH
 
26
);
 
27
 
 
28
my @dsns = (
 
29
        'dbi:mysql:host=127.0.0.1:port=19306:user=root:database=test',
 
30
        'dbi:mysql:host=127.0.0.1:port=19308:user=root:database=test'
 
31
);
 
32
 
 
33
# End of user-editable part
 
34
 
 
35
my @executors;
 
36
 
 
37
foreach my $dsn (@dsns) {
 
38
        my $executor = GenTest::Executor::MySQL->new( dsn => $dsn );
 
39
        my $init_status = $executor->init();
 
40
        exit ($init_status) if $init_status != STATUS_OK;
 
41
        push @executors, $executor;
 
42
}
 
43
 
 
44
my $simplifier = GenTest::Simplifier::SQL->new(
 
45
        oracle => sub {
 
46
                my $oracle_query = shift;
 
47
                print ".";
 
48
 
 
49
                my $outcome;
 
50
                my @oracle_results;
 
51
 
 
52
                foreach my $executor (@executors) {
 
53
                        my $oracle_result = $executor->execute($oracle_query, 1);
 
54
                        push @oracle_results, $oracle_result;
 
55
                }
 
56
 
 
57
                if ($#executors == 0) {
 
58
                        $outcome = $oracle_results[0]->status();
 
59
                } else {
 
60
                        $outcome = GenTest::Comparator::compare($oracle_results[0], $oracle_results[1]);
 
61
                }
 
62
 
 
63
                foreach my $desired_outcome (@desired_outcomes) {
 
64
                        return ORACLE_ISSUE_STILL_REPEATABLE if $outcome == $desired_outcome;
 
65
                }
 
66
 
 
67
                return ORACLE_ISSUE_NO_LONGER_REPEATABLE;
 
68
        }
 
69
);
 
70
 
 
71
my $simplified_query = $simplifier->simplify($query);
 
72
 
 
73
print "\nSimplified query:\n$simplified_query ;\n\n";
 
74
 
 
75
my @simplified_results;
 
76
 
 
77
foreach my $executor (@executors) {
 
78
        my $simplified_result = $executor->execute($simplified_query);
 
79
        push @simplified_results, $simplified_result;
 
80
}
 
81
 
 
82
 
 
83
my $simplifier_test = GenTest::Simplifier::Test->new(
 
84
        executors => \@executors,
 
85
        queries => [ $simplified_query, $query ],
 
86
        results => [ \@simplified_results ]
 
87
);
 
88
 
 
89
my $test = $simplifier_test->simplify();
 
90
 
 
91
print "Simplified test:\n\n";
 
92
print $test;