~drizzle-trunk/drizzle/development

use strict;

 

$| = 1;

 

use lib 'lib';

use GenTest::SimPipe::Testcase;

use GenTest::SimPipe::Oracle::FullScan;

use GenTest;

use GenTest::Constants;

use GenTest::Executor::MySQL;

use DBI;

use Data::Dumper;

 

my $dsn = 'dbi:mysql:port=9306:user=root:host=127.0.0.1:database=test';

my $oracle = GenTest::SimPipe::Oracle::FullScan->new( dsn => $dsn , basedir => '/home/philips/bzr/maria-5.3' );

 

my $dbh = DBI->connect($dsn, undef, undef, { mysql_multi_statements => 1, RaiseError => 1 });

 

my $query = "

SELECT alias2.col_datetime_key AS field1 , alias2.pk AS field2

FROM t1 AS alias1 JOIN t1 AS alias2 ON alias2.pk = alias1.col_int_key AND alias2.pk != alias1.col_varchar_key

GROUP BY field1 , field2

ORDER BY alias1.col_int_key , field2;";

 

$dbh->do("USE test");

 

my $test = '/home/philips/bzr/randgen-simpipe/case.test';

open (Q, $test) or die $!;

read (Q, my $sql, -s $test);

 

$dbh->do($sql);

my $testcase = GenTest::SimPipe::Testcase->newFromDBH($dbh, [ $query ]);

 

my $new_testcase = $testcase->simplify($oracle);

 

print $new_testcase->toString();