← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to unit/TestMySQLServer.pm

More server stuff

Show diffs side-by-side

added added

removed removed

Lines of Context:
unit/TestMySQLServer.pm
19
19
 
20
20
use base qw(Test::Unit::TestCase);
21
21
use lib 'lib';
 
22
use Cwd;
22
23
use GenTest;
23
 
use GenTest::Server::MySQL;
 
24
use GenTest::Server::MySQLd;
24
25
use GenTest::Executor;
25
26
 
26
27
use Data::Dumper;
53
54
sub test_create_server {
54
55
    my $self = shift;
55
56
 
 
57
    my $vardir= cwd()."/unit/tmp";
 
58
 
56
59
    $self->assert(defined $ENV{RQG_MYSQL_BASE},"RQG_MYSQL_BASE not defined");
57
60
 
58
 
    my $server = GenTest::Server::MySQL->new(basedir => $ENV{RQG_MYSQL_BASE},
59
 
                                             datadir => "./unit/tmp",
60
 
                                             portbase => 22120);
 
61
    my $server = GenTest::Server::MySQLd->new(basedir => $ENV{RQG_MYSQL_BASE},
 
62
                                              vardir => $vardir,
 
63
                                              port => 22120);
61
64
    $self->assert_not_null($server);
62
65
    
63
 
    $self->assert(-f "./unit/tmp/mysql/db.MYD");
 
66
    $self->assert(-f $vardir."/data/mysql/db.MYD");
64
67
    
65
68
    $server->startServer;
66
69
    push @pids,$server->serverpid;
78
81
    
79
82
    say(join(',',map{$_->[0]} @{$result->data}));
80
83
 
81
 
    $self->assert(-f "./unit/tmp/mysql.pid") if not windows();
82
 
    $self->assert(-f "./unit/tmp/mysql.err");
 
84
    $self->assert(-f $vardir."/mysql.pid") if not windows();
 
85
    $self->assert(-f $vardir."/mysql.err");
83
86
    
84
87
    $server->stopServer;
85
88
 
86
89
    say("Contents of '".$server->logfile."':");
87
90
    open LOG,$server->logfile;
88
91
    while (<LOG>) {
89
 
        say($_);
 
92
        say($_);
90
93
    }
91
94
    close LOG;
92
95
}