config root man

Current Path : /home/usr.opt/mysql57/mysql-test/suite/ndb/include/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //home/usr.opt/mysql57/mysql-test/suite/ndb/include/have_openjpa.inc

--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

Man Man