← Back to branch summary

~ubuntu-branches/ubuntu/vivid/drizzle/vivid-proposed

« back to all changes in this revision

Viewing changes to tests/randgen/lib/GenTest/Validator/Transformer2.pm

  • Committer: Package Import Robot
  • Author(s): Tobias Frost
  • Date: 2013-08-22 20:18:31 UTC
  • mto: (20.1.1 sid)
  • mto: This revision was merged to the branch mainline in revision 21.
  • Revision ID: package-import@ubuntu.com-20130822201831-gn3ozsh7o7wmc5tk
Tags: upstream-7.2.3
Import upstream version 7.2.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/randgen/lib/GenTest/Validator/Transformer2.pm
1
 
# Copyright (c) 2008,2010 Oracle and/or its affiliates. All rights reserved.
2
 
# Use is subject to license terms.
3
 
#
4
 
# This program is free software; you can redistribute it and/or modify
5
 
# it under the terms of the GNU General Public License as published by
6
 
# the Free Software Foundation; version 2 of the License.
7
 
#
8
 
# This program is distributed in the hope that it will be useful, but
9
 
# WITHOUT ANY WARRANTY; without even the implied warranty of
10
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11
 
# General Public License for more details.
12
 
#
13
 
# You should have received a copy of the GNU General Public License
14
 
# along with this program; if not, write to the Free Software
15
 
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
16
 
# USA
17
 
 
18
 
package GenTest::Validator::Transformer2;
19
 
 
20
 
require Exporter;
21
 
@ISA = qw(GenTest::Validator GenTest);
22
 
 
23
 
use strict;
24
 
 
25
 
use GenTest;
26
 
use GenTest::Constants;
27
 
use GenTest::Comparator;
28
 
use GenTest::Simplifier::SQL;
29
 
use GenTest::Simplifier::Test;
30
 
use GenTest::Translator;
31
 
use GenTest::Translator::Mysqldump2ANSI;
32
 
use GenTest::Translator::Mysqldump2javadb;
33
 
use GenTest::Translator::MysqlDML2ANSI;
34
 
 
35
 
use GenTest::SimPipe::Oracle::FullScan;
36
 
use GenTest::SimPipe::Testcase;
37
 
 
38
 
my @transformer_names;
39
 
my @transformers;
40
 
my $database_created = 0;
41
 
 
42
 
sub BEGIN {
43
 
        @transformer_names = (
44
 
                'DisableJoinCache'
45
 
        );
46
 
 
47
 
        say("Transformer Validator will use the following Transformers: ".join(', ', @transformer_names));
48
 
 
49
 
        foreach my $transformer_name (@transformer_names) {
50
 
                eval ("require GenTest::Transform::'".$transformer_name) or die $@;
51
 
                my $transformer = ('GenTest::Transform::'.$transformer_name)->new();
52
 
                push @transformers, $transformer;
53
 
        }
54
 
}
55
 
 
56
 
sub validate {
57
 
        my ($validator, $executors, $results) = @_;
58
 
 
59
 
        my $executor = $executors->[0];
60
 
        my $original_result = $results->[0];
61
 
        my $original_query = $original_result->query();
62
 
 
63
 
        if ($database_created == 0) {
64
 
                $executor->dbh()->do("CREATE DATABASE IF NOT EXISTS transforms");
65
 
                $database_created = 1;
66
 
        }
67
 
 
68
 
        return STATUS_WONT_HANDLE if $original_query !~ m{^\s*SELECT}sio;
69
 
        return STATUS_WONT_HANDLE if defined $results->[0]->warnings();
70
 
        return STATUS_WONT_HANDLE if $results->[0]->status() != STATUS_OK;
71
 
 
72
 
        my $max_transformer_status; 
73
 
        foreach my $transformer (@transformers) {
74
 
                my $transformer_status = $validator->transform($transformer, $executor, $results);
75
 
                $transformer_status = STATUS_OK if ($transformer_status == STATUS_CONTENT_MISMATCH) && ($original_query =~ m{LIMIT}sio);
76
 
                return $transformer_status if $transformer_status > STATUS_CRITICAL_FAILURE;
77
 
                $max_transformer_status = $transformer_status if $transformer_status > $max_transformer_status;
78
 
        }
79
 
 
80
 
        return $max_transformer_status > STATUS_SELECT_REDUCTION ? $max_transformer_status - STATUS_SELECT_REDUCTION : $max_transformer_status;
81
 
}
82
 
 
83
 
sub transform {
84
 
        my ($validator, $transformer, $executor, $results) = @_;
85
 
 
86
 
        my $original_result = $results->[0];
87
 
        my $original_query = $original_result->query();
88
 
 
89
 
        my ($transform_outcome, $transformed_queries, $transformed_results) = $transformer->transformExecuteValidate($original_query, $original_result, $executor);
90
 
        return $transform_outcome if ($transform_outcome > STATUS_CRITICAL_FAILURE) || ($transform_outcome eq STATUS_OK);
91
 
 
92
 
        say("Original query: $original_query failed transformation with Transformer ".$transformer->name());
93
 
        say("Transformed query: ".join('; ', @$transformed_queries));
94
 
 
95
 
        say(GenTest::Comparator::dumpDiff($original_result, $transformed_results->[0]));
96
 
 
97
 
        my $oracle = GenTest::SimPipe::Oracle::FullScan->new( dsn => $executor->dsn() );
98
 
 
99
 
        my $simplifier_query = GenTest::Simplifier::SQL->new(
100
 
                oracle => sub {
101
 
                        my $oracle_query = shift;
102
 
                        my $oracle_result = $executor->execute($oracle_query, 1);
103
 
 
104
 
                        return ORACLE_ISSUE_STATUS_UNKNOWN if $oracle_result->status() != STATUS_OK;
105
 
 
106
 
                        my ($oracle_outcome, $oracle_transformed_queries, $oracle_transformed_results) = $transformer->transformExecuteValidate($oracle_query, $oracle_result, $executor);
107
 
 
108
 
                        if (
109
 
                                (($oracle_outcome == STATUS_CONTENT_MISMATCH) && ($oracle_query !~ m{LIMIT}sio)) ||
110
 
                                ($oracle_outcome == STATUS_LENGTH_MISMATCH)
111
 
                        ) {
112
 
                                return ORACLE_ISSUE_STILL_REPEATABLE;
113
 
                        } else {
114
 
                                return ORACLE_ISSUE_NO_LONGER_REPEATABLE;
115
 
                        }
116
 
                }
117
 
        );
118
 
 
119
 
        my $simplified_query = $simplifier_query->simplify($original_query);
120
 
        my $simplified_result = $executor->execute($simplified_query, 1);
121
 
 
122
 
        if (not defined $simplified_query) {
123
 
                say("Simplification failed -- failure is likely sporadic.");
124
 
                return $transform_outcome;
125
 
        } 
126
 
 
127
 
 
128
 
                say("Simplified query: $simplified_query");
129
 
 
130
 
                my ($simplified_transform_outcome, $simplified_transformed_queries, $simplified_transformed_results) = $transformer->transformExecuteValidate($simplified_query, $simplified_result, $executor);
131
 
 
132
 
                my $simplified_transformed_queries_str;
133
 
                if (ref($simplified_transformed_queries) eq 'ARRAY') {
134
 
                        $simplified_transformed_queries_str = join('; ', @$simplified_transformed_queries);
135
 
                } else {
136
 
                        $simplified_transformed_queries_str = $simplified_transformed_queries;
137
 
                }
138
 
 
139
 
                say("Simplified transformed query: $simplified_transformed_queries_str");
140
 
 
141
 
                if (defined $simplified_transformed_results->[0]->warnings()) {
142
 
                        say("Simplified transformed query produced warnings.");
143
 
        #               return STATUS_WONT_HANDLE;
144
 
                }
145
 
 
146
 
                my @explains;
147
 
                $explains[0] = $executor->execute("EXPLAIN ".$simplified_query);
148
 
                foreach my $simplified_transformed_query (@$simplified_transformed_queries) {
149
 
                        $executor->execute($simplified_transformed_query);
150
 
                        if ($simplified_transformed_query eq $simplified_transformed_results->[0]->query()) {
151
 
                                $explains[1] = $executor->execute("EXPLAIN ".$simplified_transformed_query)
152
 
                        }
153
 
                }
154
 
 
155
 
                say("EXPLAIN diff:");
156
 
                say(GenTest::Comparator::dumpDiff(@explains));
157
 
 
158
 
                say("Result set diff:");
159
 
                say(GenTest::Comparator::dumpDiff($simplified_result, $simplified_transformed_results->[0]));
160
 
 
161
 
        my $testcase = GenTest::SimPipe::Testcase->newFromDSN($executor->dsn(), [ $simplified_query ] );
162
 
 
163
 
        my $simplified_testcase = $testcase->simplify($oracle);
164
 
 
165
 
        if (defined $simplified_testcase) {
166
 
                print $simplified_testcase->toString();
167
 
        } else {
168
 
                say("Unable to simplify ...");
169
 
                return STATUS_PERL_FAILURE;
170
 
        }
171
 
 
172
 
        return $transform_outcome;
173
 
}
174
 
 
175
 
sub DESTROY {
176
 
        @transformers = ();
177
 
}
178
 
 
179
 
1;