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

« back to all changes in this revision

Viewing changes to tests/test_tools/randgen/lib/GenTest/Transform/SelectOption.pm

• browse files at revision 1.1.7
• compare with another revision
• download diff
• download tarball
• view history from revision 1.1.7

Show diffs side-by-side

added

removed

tests/test_tools/randgen/lib/GenTest/Transform/SelectOption.pm

 

1

#

 

2

# This program is free software; you can redistribute it and/or modify

 

3

# it under the terms of the GNU General Public License as published by

 

4

# the Free Software Foundation; version 2 of the License.

 

5

#

 

6

# This program is distributed in the hope that it will be useful, but

 

7

# WITHOUT ANY WARRANTY; without even the implied warranty of

 

8

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

 

9

# General Public License for more details.

 

10

#

 

11

# You should have received a copy of the GNU General Public License

 

12

# along with this program; if not, write to the Free Software

 

13

# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301

 

14

# USA

 

15

 

 

16

package GenTest::Transform::SelectOption;

 

17

 

 

18

require Exporter;

 

19

@ISA = qw(GenTest GenTest::Transform);

 

20

 

 

21

use strict;

 

22

use lib 'lib';

 

23

 

 

24

use GenTest;

 

25

use GenTest::Transform;

 

26

use GenTest::Constants;

 

27

 

 

28

sub transform {

 

29

        my ($class, $orig_query) = @_;

 

30

 

 

31

        return STATUS_WONT_HANDLE if $orig_query !~ m{SELECT}io;

 

32

        return STATUS_WONT_HANDLE if $orig_query =~ m{SQL_BIG_RESULT|SQL_SMALL_RESULT|SQL_BUFFER_RESULT}io;

 

33

 

 

34

        my $modified_queries = [

 

35

                $orig_query." /* TRANSFORM_OUTCOME_UNORDERED_MATCH */ ",

 

36

                $orig_query." /* TRANSFORM_OUTCOME_UNORDERED_MATCH */ ",

 

37

                $orig_query." /* TRANSFORM_OUTCOME_UNORDERED_MATCH */ "

 

38

        ];

 

39

        

 

40

        $modified_queries->[0] =~ s{SELECT}{SELECT SQL_BIG_RESULT}io;

 

41

        $modified_queries->[1] =~ s{SELECT}{SELECT SQL_SMALL_RESULT}io;

 

42

        $modified_queries->[2] =~ s{SELECT}{SELECT SQL_BUFFER_RESULT}io;

 

43

 

 

44

        return $modified_queries;

 

45

}

 

46

 

 

47

1;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1