1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
--perl
use strict;
use File::Basename;
use IO::File;
use lib "lib/";
use My::Find;
#
# Look for
# - RQG_HOME
# - binaries needed to run ndb rqg scripts
#
#
# Set up paths
#
my $vardir = $ENV{MYSQLTEST_VARDIR} or die "Need MYSQLTEST_VARDIR";
my $mysql_test_dir = $ENV{MYSQL_TEST_DIR} or die "Need MYSQL_TEST_DIR";
my $basedir = dirname($mysql_test_dir);
my $bindir = $ENV{MTR_BINDIR} || $basedir; # Out of source set MTR_BINDIR
#
# Check if the needed jars and libs are available
#
my $runall = my_find_file($basedir,
["storage/ndb/test/rqg" ],
"load_and_run.sh", NOT_REQUIRED);
my $loadrqg = my_find_file($basedir,
["storage/ndb/test/rqg" ],
"load_rqg.sh", NOT_REQUIRED);
my $runrqg = my_find_file($basedir,
["storage/ndb/test/rqg" ],
"run_rqg.sh", NOT_REQUIRED);
my $exe_mysqltest = my_find_bin($bindir,
["client", "bin"],
"mysqltest", NOT_REQUIRED);
my $F = IO::File->new("$vardir/tmp/have_ndb_rqg.inc", 'w') or die;
if ($ENV{RQG_HOME}) {
print $F "--echo RQG_HOME: $ENV{RQG_HOME}\n"
} else {
print $F "skip Could not find RQG, set environment variable RQG_HOME\n";
}
my $env_mysqltest="";
if ($exe_mysqltest) {
$env_mysqltest="EXE_MYSQLTEST=$exe_mysqltest"
}
else {
print $F "skip Could find mysqltest binary\n";
}
if ($runall) {
print $F "--let \$RUN_ALL= $env_mysqltest bash $runall -p \$MASTER_MYPORT\n"
} else {
print $F "skip Could not find load_and_run.sh\n";
}
if ($loadrqg) {
print $F "--let \$LOAD_RQG= $env_mysqltest bash $loadrqg -p \$MASTER_MYPORT\n"
} else {
print $F "skip Could not find load_rqg.sh\n";
}
if ($runrqg) {
print $F "--let \$RUN_RQG= $env_mysqltest bash $runrqg -p \$MASTER_MYPORT\n"
} else {
print $F "skip Could not find run_rqg.sh\n";
}
$F->close();
EOF
--source $MYSQLTEST_VARDIR/tmp/have_ndb_rqg.inc
|
