← Back to branch summary

~ubuntu-branches/ubuntu/trusty/drizzle/trusty

« back to all changes in this revision

Viewing changes to tests/randgen/lib/GenTest/Transform/ExecuteAsFunctionTwice.pm

  • Committer: Package Import Robot
  • Author(s): Clint Byrum
  • Date: 2012-06-19 10:46:49 UTC
  • mfrom: (1.1.6)
  • mto: This revision was merged to the branch mainline in revision 29.
  • Revision ID: package-import@ubuntu.com-20120619104649-e2l0ggd4oz3um0f4
Tags: upstream-7.1.36-stable
Import upstream version 7.1.36-stable

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/randgen/lib/GenTest/Transform/ExecuteAsFunctionTwice.pm
 
1
# Copyright (c) 2011 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::Transform::ExecuteAsFunctionTwice;
 
19
 
 
20
require Exporter;
 
21
@ISA = qw(GenTest GenTest::Transform);
 
22
 
 
23
use strict;
 
24
use lib 'lib';
 
25
 
 
26
use GenTest;
 
27
use GenTest::Transform;
 
28
use GenTest::Constants;
 
29
 
 
30
sub transform {
 
31
        my ($class, $original_query, $executor, $original_result) = @_;
 
32
 
 
33
        return STATUS_WONT_HANDLE if $original_query !~ m{SELECT}io;
 
34
        return STATUS_WONT_HANDLE if $original_result->rows() != 1;
 
35
        return STATUS_WONT_HANDLE if $#{$original_result->data()->[0]} != 0;
 
36
 
 
37
        my $return_type = $original_result->columnTypes()->[0];
 
38
        if ($return_type =~ m{varchar}sgio) {
 
39
                # Though the maxium varchar lenght is 65K, we are using 16K to allow up to 4-byte character sets
 
40
                $return_type .= "(16000)"
 
41
        } elsif ($return_type =~ m{char}sgio) {
 
42
                $return_type .= "(255)"
 
43
        } elsif ($return_type =~ m{decimal}sgio) {
 
44
                # Change type to avoid false compare diffs due to an incorrect decimal type being used when MAX() (and likely other similar functions) is used in the original query. Knowing what is returning decimal type (DBD or MySQL) may allow further improvement.
 
45
                $return_type =~ s{decimal}{char (255)}sio
 
46
        }
 
47
 
 
48
        return [
 
49
                "DROP FUNCTION IF EXISTS stored_func_$$",
 
50
                "CREATE FUNCTION stored_func_$$ () RETURNS $return_type NOT DETERMINISTIC BEGIN DECLARE ret $return_type; $original_query INTO ret ; RETURN ret; END",
 
51
                "SELECT stored_func_$$() /* TRANSFORM_OUTCOME_UNORDERED_MATCH */",
 
52
                "SELECT stored_func_$$() /* TRANSFORM_OUTCOME_UNORDERED_MATCH */",
 
53
                "DROP FUNCTION IF EXISTS stored_func_$$"
 
54
        ];
 
55
}
 
56
 
 
57
1;