B4BY.588

: / usr / share / mysql-test / suite / ndb / include /
Filename : have_openjpa.inc
back
--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