view release on metacpan or  search on metacpan

t/01_hasJVM.t  view on Meta::CPAN

#
# JVM Error : 
# 
if ( $javaVersion =~ m/ERROR/gis) {
  $errorMessage = $javaVersion;

  $diagMessage .=  "\nJVM is returning an Error when querying version information ...  stopping tests.\n";
  $diagMessage .=  "!!!!!!!!!!  Error Message !!!!!!!: = $errorMessage\n";

  # flag as missing/not runnable
  $javaVersion = 'missing';
}


SKIP: { 
      
      # skip all tests if you cannot run JAVA (how can you test without a prerequisite, you cannot).
      skip $missingMessage, 1 unless ($javaVersion && $errorMessage eq 'NONE');
 
      isnt ($javaVersion, 'missing', 'Tested that JVM is *NOT* Missing');