~drizzle-trunk/drizzle/development : revision 51.3.5

9

# Tool used for executing a suite of .test file

10

#

11

# See the "MySQL Test framework manual" for more information

12

# http://dev.mysql.com/doc/mysqltest/en/index.html

12

# http://dev.mysql.com/doc/drizzletest/en/index.html

13

#

14

# Please keep the test framework tools identical in all versions!

15

#

109

our $path_language;

110

our $path_timefile;

111

our $path_snapshot;

112

our $path_mysqltest_log;

112

our $path_drizzletest_log;

113

our $path_current_test_log;

114

our $path_my_basedir;

115

127

our $opt_verbose= 0; # Verbose output, enable with --verbose

128

129

our $exe_master_mysqld;

130

our $exe_mysql;

131

our $exe_mysqladmin;

132

our $exe_mysqlbinlog;

133

our $exe_mysql_client_test;

130

our $exe_drizzle;

131

our $exe_drizzleadmin;

132

our $exe_drizzlebinlog;

133

our $exe_drizzle_client_test;

134

our $exe_bug25714;

135

our $exe_mysqld;

136

our $exe_mysqlcheck;

137

our $exe_mysqldump;

135

our $exe_drizzled;

136

our $exe_drizzlecheck;

137

our $exe_drizzledump;

138

our $exe_mysqlslap;

139

our $exe_mysqlimport;

140

our $exe_mysql_fix_system_tables;

141

our $exe_mysqltest;

139

our $exe_drizzleimport;

140

our $exe_drizzle_fix_system_tables;

141

our $exe_drizzletest;

142

our $exe_slave_mysqld;

143

our $exe_my_print_defaults;

144

our $exe_perror;

227

228

my $opt_valgrind= 0;

229

my $opt_valgrind_mysqld= 0;

230

my $opt_valgrind_mysqltest= 0;

230

my $opt_valgrind_drizzletest= 0;

231

my @default_valgrind_args= ("--show-reachable=yes");

232

my @valgrind_args;

233

my $opt_valgrind_path;

295

sub mysqld_start ($$$);

296

sub mysqld_arguments ($$$$);

297

sub stop_all_servers ();

298

sub run_mysqltest ($);

298

sub run_drizzletest ($);

299

sub usage ($);

300

301

511

'gcov' => \$opt_gcov,

512

'gprof' => \$opt_gprof,

513

'valgrind|valgrind-all' => \$opt_valgrind,

514

'valgrind-mysqltest' => \$opt_valgrind_mysqltest,

514

'valgrind-drizzletest' => \$opt_valgrind_drizzletest,

515

'valgrind-mysqld' => \$opt_valgrind_mysqld,

516

'valgrind-options=s' => sub {

517

my ($opt, $value)= @_;

647

648

if (!$opt_extern)

649

{

650

$exe_mysqld= mtr_exe_exists ("$glob_basedir/server/drizzled",

650

$exe_drizzled= mtr_exe_exists ("$glob_basedir/server/drizzled",

651

"$path_client_bindir/drizzled",

652

"$glob_basedir/libexec/drizzled",

653

"$glob_basedir/bin/drizzled",

848

# --------------------------------------------------------------------------

849

# Check if special exe was selected for master or slave

850

# --------------------------------------------------------------------------

851

$exe_master_mysqld= $exe_master_mysqld || $exe_mysqld;

852

$exe_slave_mysqld= $exe_slave_mysqld || $exe_mysqld;

851

$exe_master_mysqld= $exe_master_mysqld || $exe_drizzled;

852

$exe_slave_mysqld= $exe_slave_mysqld || $exe_drizzled;

853

854

# --------------------------------------------------------------------------

855

# Check valgrind arguments

859

mtr_report("Turning on valgrind for all executables");

860

$opt_valgrind= 1;

861

$opt_valgrind_mysqld= 1;

862

$opt_valgrind_mysqltest= 1;

862

$opt_valgrind_drizzletest= 1;

863

}

864

elsif ( $opt_valgrind_mysqld )

865

{

866

mtr_report("Turning on valgrind for mysqld(s) only");

867

$opt_valgrind= 1;

868

}

869

elsif ( $opt_valgrind_mysqltest )

869

elsif ( $opt_valgrind_drizzletest )

870

{

871

mtr_report("Turning on valgrind for mysqltest and mysql_client_test only");

871

mtr_report("Turning on valgrind for drizzletest and drizzle_client_test only");

872

$opt_valgrind= 1;

873

}

874

1025

}

1026

1027

1028

$path_timefile= "$opt_vardir/log/mysqltest-time";

1029

$path_mysqltest_log= "$opt_vardir/log/mysqltest.log";

1028

$path_timefile= "$opt_vardir/log/drizzletest-time";

1029

$path_drizzletest_log= "$opt_vardir/log/drizzletest.log";

1030

$path_current_test_log= "$opt_vardir/log/current_test";

1031

1032

$path_snapshot= "$opt_tmpdir/snapshot_$opt_master_myport/";

1119

#

1120

# --datadir must exist, mysqld will chdir into it

1121

#

1122

my $list= `$exe_mysqld --no-defaults --datadir=$tmpdir --language=$path_language --skip-grant-tables --verbose --help`;

1122

my $list= `$exe_drizzled --no-defaults --datadir=$tmpdir --language=$path_language --skip-grant-tables --verbose --help`;

1123

1124

foreach my $line (split('\n', $list))

1125

{

1127

if ( !$mysql_version_id )

1128

{

1129

# Look for version

1130

my $exe_name= basename($exe_mysqld);

1130

my $exe_name= basename($exe_drizzled);

1131

mtr_verbose("exe_name: $exe_name");

1132

if ( $line =~ /^\S*$exe_name\s\sVer\s([0-9]*)\.([0-9]*)\.([0-9]*)/ )

1133

{

1193

mtr_add_arg($args, "--silent"); # Tab separated output

1194

mtr_add_arg($args, "-e '%s'", $query);

1195

1196

my $cmd= "$exe_mysql " . join(' ', @$args);

1196

my $cmd= "$exe_drizzle " . join(' ', @$args);

1197

mtr_verbose("cmd: $cmd");

1198

return `$cmd`;

1199

}

1241

$exe_perror= "perror";

1242

1243

# Look for the client binaries

1244

$exe_mysqlcheck= mtr_exe_exists("$path_client_bindir/mysqlcheck");

1245

$exe_mysqldump= mtr_exe_exists("$path_client_bindir/mysqldump");

1246

$exe_mysqlimport= mtr_exe_exists("$path_client_bindir/mysqlimport");

1247

$exe_mysqlbinlog= mtr_exe_exists("$path_client_bindir/mysqlbinlog");

1248

$exe_mysqladmin= mtr_exe_exists("$path_client_bindir/mysqladmin");

1249

$exe_mysql= mtr_exe_exists("$path_client_bindir/mysql");

1244

$exe_drizzlecheck= mtr_exe_exists("$path_client_bindir/drizzlecheck");

1245

$exe_drizzledump= mtr_exe_exists("$path_client_bindir/drizzledump");

1246

$exe_drizzleimport= mtr_exe_exists("$path_client_bindir/drizzleimport");

1247

$exe_drizzlebinlog= mtr_exe_exists("$path_client_bindir/drizzlebinlog");

1248

$exe_drizzleadmin= mtr_exe_exists("$path_client_bindir/drizzleadmin");

1249

$exe_drizzle= mtr_exe_exists("$path_client_bindir/drizzle");

1250

1251

if (!$opt_extern)

1252

{

1257

}

1258

}

1259

1260

# Look for mysqltest executable

1260

# Look for drizzletest executable

1261

{

1262

$exe_mysqltest= mtr_exe_exists("$path_client_bindir/mysqltest");

1262

$exe_drizzletest= mtr_exe_exists("$path_client_bindir/drizzletest");

1263

}

1264

1265

# Look for mysql_client_test executable which may _not_ exist in

1265

# Look for drizzle_client_test executable which may _not_ exist in

1266

# some versions, test using it should be skipped

1267

{

1268

$exe_mysql_client_test=

1268

$exe_drizzle_client_test=

1269

mtr_exe_maybe_exists(

1270

"$glob_basedir/tests/mysql_client_test",

1271

"$glob_basedir/bin/mysql_client_test");

1270

"$glob_basedir/tests/drizzle_client_test",

1271

"$glob_basedir/bin/drizzle_client_test");

1272

}

1273

1274

# Look for bug25714 executable which may _not_ exist in

1283

sub generate_cmdline_mysqldump ($) {

1284

my($mysqld) = @_;

1285

return

1286

mtr_native_path($exe_mysqldump) .

1286

mtr_native_path($exe_drizzledump) .

1287

" --no-defaults -uroot --debug-check " .

1288

"--port=$mysqld->{'port'} ";

1289

}

1296

#

1297

##############################################################################

1298

1299

sub mysql_client_test_arguments()

1299

sub drizzle_client_test_arguments()

1300

{

1301

my $exe= $exe_mysql_client_test;

1301

my $exe= $exe_drizzle_client_test;

1302

1303

my $args;

1304

mtr_init_args(\$args);

1305

if ( $opt_valgrind_mysqltest )

1305

if ( $opt_valgrind_drizzletest )

1306

{

1307

valgrind_arguments($args, \$exe);

1308

}

1320

if ( $opt_debug )

1321

{

1322

mtr_add_arg($args,

1323

"--debug=d:t:A,$path_vardir_trace/log/mysql_client_test.trace");

1323

"--debug=d:t:A,$path_vardir_trace/log/drizzle_client_test.trace");

1324

}

1325

1326

return join(" ", $exe, @$args);

1428

1429

$ENV{MTR_BUILD_THREAD}= $opt_mtr_build_thread;

1430

1431

$ENV{'EXE_MYSQL'}= $exe_mysql;

1431

$ENV{'EXE_MYSQL'}= $exe_drizzle;

1432

1433

# ----------------------------------------------------

1434

# Setup env so childs can execute mysqlcheck

1435

# ----------------------------------------------------

1436

my $cmdline_mysqlcheck=

1437

mtr_native_path($exe_mysqlcheck) .

1437

mtr_native_path($exe_drizzlecheck) .

1438

" --no-defaults --debug-check -uroot " .

1439

"--port=$master->[0]->{'port'} ";

1440

1484

# Setup env so childs can execute mysqlimport

1485

# ----------------------------------------------------

1486

my $cmdline_mysqlimport=

1487

mtr_native_path($exe_mysqlimport) .

1487

mtr_native_path($exe_drizzleimport) .

1488

" -uroot --debug-check " .

1489

"--port=$master->[0]->{'port'} ";

1490

1500

# Setup env so childs can execute mysqlbinlog

1501

# ----------------------------------------------------

1502

my $cmdline_mysqlbinlog=

1503

mtr_native_path($exe_mysqlbinlog) .

1503

mtr_native_path($exe_drizzlebinlog) .

1504

" --no-defaults --disable-force-if-open --debug-check";

1505

if ( !$opt_extern && $mysql_version_id >= 50000 )

1506

{

1518

# Setup env so childs can execute mysql

1519

# ----------------------------------------------------

1520

my $cmdline_mysql=

1521

mtr_native_path($exe_mysql) .

1521

mtr_native_path($exe_drizzle) .

1522

" --no-defaults --debug-check --host=localhost --user=root --password= " .

1523

"--port=$master->[0]->{'port'} " .

1524

"--character-sets-dir=$path_charsetsdir";

1531

$ENV{'MYSQL_BUG25714'}= $exe_bug25714;

1532

1533

# ----------------------------------------------------

1534

# Setup env so childs can execute mysql_client_test

1534

# Setup env so childs can execute drizzle_client_test

1535

# ----------------------------------------------------

1536

$ENV{'MYSQL_CLIENT_TEST'}= mysql_client_test_arguments();

1536

$ENV{'MYSQL_CLIENT_TEST'}= drizzle_client_test_arguments();

1537

1538

1539

# ----------------------------------------------------

1543

if ( 0 )

1544

{

1545

my $cmdline_mysql_fix_system_tables=

1546

"$exe_mysql_fix_system_tables --no-defaults --host=localhost " .

1546

"$exe_drizzle_fix_system_tables --no-defaults --host=localhost " .

1547

"--user=root --password= " .

1548

"--basedir=$glob_basedir --bindir=$path_client_bindir --verbose " .

1549

"--port=$master->[0]->{'port'} ";

1559

# ----------------------------------------------------

1560

# Setup env so childs can execute mysqladmin

1561

# ----------------------------------------------------

1562

$ENV{'MYSQLADMIN'}= mtr_native_path($exe_mysqladmin);

1562

$ENV{'MYSQLADMIN'}= mtr_native_path($exe_drizzleadmin);

1563

1564

# ----------------------------------------------------

1565

# Setup env so childs can execute perror

2066

# If marked to skip, just print out and return.

2067

# Note that a test case not marked as 'skip' can still be

2068

# skipped later, because of the test case itself in cooperation

2069

# with the mysqltest program tells us so.

2069

# with the drizzletest program tells us so.

2070

# ----------------------------------------------------------------------

2071

2072

if ( $tinfo->{'skip'} )

2080

}

2081

2082

2083

sub do_before_run_mysqltest($)

2083

sub do_before_run_drizzletest($)

2084

{

2085

my $tinfo= shift;

2086

my $args;

2087

2088

# Remove old files produced by mysqltest

2088

# Remove old files produced by drizzletest

2089

my $base_file= mtr_match_extension($tinfo->{'result_file'},

2090

"result"); # Trim extension

2091

unlink("$base_file.reject");

2110

2111

my $sql= "include/set_binlog_format_".$tinfo->{binlog_format}.".sql";

2112

mtr_verbose("Setting binlog format:", $tinfo->{binlog_format});

2113

if (mtr_run($exe_mysql, $args, $sql, "", "", "") != 0)

2113

if (mtr_run($exe_drizzle, $args, $sql, "", "", "") != 0)

2114

{

2115

mtr_error("Failed to switch binlog format");

2116

}

2119

}

2120

}

2121

2122

sub do_after_run_mysqltest($)

2122

sub do_after_run_drizzletest($)

2123

{

2124

my $tinfo= shift;

2125

2126

# Save info from this testcase run to mysqltest.log

2127

mtr_appendfile_to_file($path_current_test_log, $path_mysqltest_log)

2126

# Save info from this testcase run to drizzletest.log

2127

mtr_appendfile_to_file($path_current_test_log, $path_drizzletest_log)

2128

if -f $path_current_test_log;

2129

mtr_appendfile_to_file($path_timefile, $path_mysqltest_log)

2129

mtr_appendfile_to_file($path_timefile, $path_drizzletest_log)

2130

if -f $path_timefile;

2131

}

2132

2155

# Set default message

2156

$tinfo->{'comment'}= "Detected by testcase(no log file)";

2157

2158

# Open mysqltest-time(the mysqltest log file)

2158

# Open drizzletest-time(the drizzletest log file)

2159

my $F= IO::File->new($path_timefile)

2160

or return;

2161

my $reason;

2246

}

2247

2248

{

2249

do_before_run_mysqltest($tinfo);

2249

do_before_run_drizzletest($tinfo);

2250

2251

my $res= run_mysqltest($tinfo);

2251

my $res= run_drizzletest($tinfo);

2252

mtr_report_test_name($tinfo);

2253

2254

do_after_run_mysqltest($tinfo);

2254

do_after_run_drizzletest($tinfo);

2255

2256

if ( $res == 0 )

2257

{

2261

{

2262

# Testcase itself tell us to skip this one

2263

2264

# Try to get reason from mysqltest.log

2264

# Try to get reason from drizzletest.log

2265

find_testcase_skipped_reason($tinfo);

2266

mtr_report_test_skipped($tinfo);

2267

}

2272

}

2273

elsif ( $res == 1 )

2274

{

2275

# Test case failure reported by mysqltest

2275

# Test case failure reported by drizzletest

2276

report_failure_and_restart($tinfo);

2277

}

2278

else

2279

{

2280

# mysqltest failed, probably crashed

2280

# drizzletest failed, probably crashed

2281

$tinfo->{comment}=

2282

"mysqltest returned unexpected code $res, it has probably crashed";

2282

"drizzletest returned unexpected code $res, it has probably crashed";

2283

report_failure_and_restart($tinfo);

2284

}

2285

}

2286

2287

# Remove the file that mysqltest writes info to

2287

# Remove the file that drizzletest writes info to

2288

unlink($path_timefile);

2289

2290

# ----------------------------------------------------------------------

2485

$sidx= $idx;

2486

}

2487

2488

my $prefix= ""; # If mysqltest server arg

2488

my $prefix= ""; # If drizzletest server arg

2489

2490

mtr_add_arg($args, "%s--no-defaults", $prefix);

2491

3111

mtr_add_arg($args, "--record");

3112

}

3113

3114

my $res = mtr_run_test($exe_mysqltest,$args,

3114

my $res = mtr_run_test($exe_drizzletest,$args,

3115

"include/check-testcase.test", "", "", "");

3116

3117

if ( $res == 1 and $mode eq "after")

3157

$tinfo->{'slave_opt'} = [];

3158

$tinfo->{'slave_mi'} = [];

3159

$tinfo->{'comment'} = 'report server features';

3160

run_mysqltest($tinfo);

3160

run_drizzletest($tinfo);

3161

3162

{

3163

stop_all_servers();

3165

}

3166

3167

3168

sub run_mysqltest ($) {

3168

sub run_drizzletest ($) {

3169

my ($tinfo)= @_;

3170

my $exe= $exe_mysqltest;

3170

my $exe= $exe_drizzletest;

3171

my $args;

3172

3173

mtr_init_args(\$args);

3193

{

3194

$exe= "strace"; # FIXME there are ktrace, ....

3195

mtr_add_arg($args, "-o");

3196

mtr_add_arg($args, "%s/log/mysqltest.strace", $opt_vardir);

3197

mtr_add_arg($args, "$exe_mysqltest");

3196

mtr_add_arg($args, "%s/log/drizzletest.strace", $opt_vardir);

3197

mtr_add_arg($args, "$exe_drizzletest");

3198

}

3199

3200

if ( $opt_timer )

3214

3215

if ( $opt_debug )

3216

{

3217

mtr_add_arg($args, "--debug=d:t:A,%s/log/mysqltest.trace",

3217

mtr_add_arg($args, "--debug=d:t:A,%s/log/drizzletest.trace",

3218

$path_vardir_trace);

3219

}

3220

3221

# ----------------------------------------------------------------------

3222

# export MYSQL_TEST variable containing <path>/mysqltest <args>

3222

# export MYSQL_TEST variable containing <path>/drizzletest <args>

3223

# ----------------------------------------------------------------------

3224

$ENV{'MYSQL_TEST'}=

3225

mtr_native_path($exe_mysqltest) . " " . join(" ", @$args);

3225

mtr_native_path($exe_drizzletest) . " " . join(" ", @$args);

3226

3227

# ----------------------------------------------------------------------

3228

# Add arguments that should not go into the MYSQL_TEST env var

3229

# ----------------------------------------------------------------------

3230

3231

if ( $opt_valgrind_mysqltest )

3231

if ( $opt_valgrind_drizzletest )

3232

{

3233

# Prefix the Valgrind options to the argument list.

3234

# We do this here, since we do not want to Valgrind the nested invocations

3235

# of mysqltest; that would mess up the stderr output causing test failure.

3235

# of drizzletest; that would mess up the stderr output causing test failure.

3236

my @args_saved = @$args;

3237

mtr_init_args(\$args);

3238

valgrind_arguments($args, \$exe);

3604

3605

Options for debugging the product

3606

3607

client-ddd Start mysqltest client in ddd

3608

client-debugger=NAME Start mysqltest in the selected debugger

3609

client-gdb Start mysqltest client in gdb

3607

client-ddd Start drizzletest client in ddd

3608

client-debugger=NAME Start drizzletest in the selected debugger

3609

client-gdb Start drizzletest client in gdb

3610

ddd Start mysqld in ddd

3611

debug Dump trace output for all servers and client programs

3612

debugger=NAME Start mysqld in the selected debugger

3619

test(s)

3620

master-binary=PATH Specify the master "mysqld" to use

3621

slave-binary=PATH Specify the slave "mysqld" to use

3622

strace-client Create strace output for mysqltest client

3622

strace-client Create strace output for drizzletest client

3623

max-save-core Limit the number of core files saved (to avoid filling

3624

up disks for heavily crashing server). Defaults to

3625

$opt_max_save_core, set to 0 for no limit.

3628

3629

gcov FIXME

3630

gprof FIXME

3631

valgrind Run the "mysqltest" and "mysqld" executables using

3631

valgrind Run the "drizzletest" and "mysqld" executables using

3632

valgrind with default options

3633

valgrind-all Synonym for --valgrind

3634

valgrind-mysqltest Run the "mysqltest" and "mysql_client_test" executable

3634

valgrind-drizzletest Run the "drizzletest" and "drizzle_client_test" executable

3635

with valgrind

3636

valgrind-mysqld Run the "mysqld" executable with valgrind

3637

valgrind-options=ARGS Deprecated, use --valgrind-option

3658

suite-timeout=MINUTES Max test suite run time (default $default_suite_timeout)

3659

warnings | log-warnings Pass --log-warnings to mysqld

3660

3661

sleep=SECONDS Passed to mysqltest, will be used as fixed sleep time

3661

sleep=SECONDS Passed to drizzletest, will be used as fixed sleep time

3662

3663

HERE

3664

mtr_exit(1);