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
--perl
#
# Look for Apache OpenJPA library, if not found: skip test.
#
use strict;
use IO::File;
use lib "lib/";
use My::Platform;
my $ok = 0;
my $classpath = $ENV{'MTR_CLASSPATH'} || '';
my $vardir = $ENV{MYSQLTEST_VARDIR} or die "Need MYSQLTEST_VARDIR";
my $jar;
my $notfound;
my $sep = (IS_WINDOWS) ? ';' : ':';
# -- look for the openjpa jar file
foreach $jar (split $sep, $classpath) {
if($jar =~ m/openjpa/ && -f $jar) {
$ok = 2;
}
elsif($jar =~ m/openjpa/) {
$ok = 1;
$notfound = $jar;
}
}
# -- write the result to the output file
my $F = IO::File->new("$vardir/tmp/have_openjpa_result.inc", 'w') or die;
if($ok == 2) {
print $F "--echo Found clusterj-openjpa.jar in MTR_CLASSPATH\n"
}
elsif($ok == 1) {
print $F "--skip JAR file not found: \"$notfound\"\n";
}
else {
print $F "--skip Could not find Apache OpenJPA jar in MTR_CLASSPATH ($classpath)\n";
}
$F->close();
EOF
--source $MYSQLTEST_VARDIR/tmp/have_openjpa_result.inc