48 lines
971 B
PHP
48 lines
971 B
PHP
--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
|