← Back to branch summary

~patrick-crews/randgen/bug961630

« back to all changes in this revision

Viewing changes to gendata-old.pl

  • Committer: Philip Stoev
  • Date: 2009-10-03 13:24:29 UTC
  • Revision ID: pstoev@mysql.com-20091003132429-60oaqq26plr18daa
initial fixes for drizzle

Show diffs side-by-side

added added

removed removed

Lines of Context:
gendata-old.pl
9
9
use GenTest;
10
10
use GenTest::Constants;
11
11
use GenTest::Random;
12
 
use GenTest::Utilities;
13
12
use GenTest::Executor;
14
 
use GenTest::Executor::MySQL;
15
 
use GenTest::Executor::JavaDB;
16
13
 
17
14
my $prng = GenTest::Random->new( seed => 0 );
18
15
 
22
19
my @ARGV_saved = @ARGV;
23
20
 
24
21
my $opt_result = GetOptions(
25
 
                'dsn=s' => \$dsn,
 
22
        'dsn=s' => \$dsn,
26
23
        'engine:s' => \$engine,
27
 
                'help' => \$help,
 
24
        'help' => \$help,
28
25
        'views' => \$views
29
26
);
30
27
 
32
29
 
33
30
say("Starting \n# $0 \\ \n# ".join(" \\ \n# ", @ARGV_saved));
34
31
 
35
 
my $executor = GenTest::Utilites->newFromDSN($dsn);
 
32
my $executor = GenTest::Executor->newFromDSN($dsn);
36
33
$executor->init();
37
34
 
38
35
help() if not defined $executor;
62
59
        my ($name, $size) = @_;
63
60
        say("Creating table $name, size $size rows, engine $engine .");
64
61
 
65
 
        if ($executor->type == DB_MYSQL) {
 
62
        if (
 
63
                ($executor->type == DB_MYSQL) ||
 
64
                ($executor->type == DB_DRIZZLE)
 
65
        ) {
66
66
 
67
67
                ### This variant is needed due to
68
68
                ### http://bugs.mysql.com/bug.php?id=47125