gcc/libjava/testsuite/libjava.jacks/jacks.exp

# Run the Jacks test suite.
# See http://www-124.ibm.com/developerworks/oss/cvs/jikes/~checkout~/jacks/jacks.html

proc load_gcc_lib { filename } {
    global srcdir
    load_file $srcdir/../../gcc/testsuite/lib/$filename
}

load_gcc_lib target-libpath.exp

proc gcj_jacks_setup_xfail {ary} {
  upvar $ary array
  global srcdir

  set fd [open $srcdir/libjava.jacks/jacks.xfail]
  while {! [eof $fd]} {
    set array([gets $fd]) {}
  }
  close $fd
}

proc gcj_jacks_write {filename} {
  global GCJ_UNDER_TEST
  global libgcj_jar
  global libjava_libgcc_s_path
  global ld_library_path

  set gcjl [split $GCJ_UNDER_TEST]
  set gcj_cmd [lindex $gcjl 0]
  set rest [join [lreplace $gcjl 0 0]]
  append rest " -C"

  set fd [open $filename w]
  puts $fd "set JAVAC $gcj_cmd"
  puts $fd "set JAVA_CLASSPATH \"$libgcj_jar\""
  puts $fd "set JAVAC_FLAGS [list $rest]"
  puts $fd "set JAVA [list [libjava_find_gij]]"

  # Without an explicit limit on the heap size, tests depending on
  # an OutOfMemoryError (e.g. "15.9.4-runtime-creation-2") can result
  # in a lot of unnecessary thrashing.
  puts $fd "set JAVA_FLAGS \"-mx=64m\""

  puts $fd "set JAVAC_ENCODING_FLAG --encoding="
  puts $fd "set JAVAC_DEPRECATION_FLAG -Wdeprecated"
  puts $fd "set tcltest::testConstraints(encoding) 1"
  puts $fd "set tcltest::testConstraints(gcj) 1"
  puts $fd "set tcltest::testConstraints(assert) 1"
  # "Time-consuming JVM limitation tests".
  # puts $fd "set tcltest::testConstraints(jvm) 1"
  close $fd

  set ld_library_path $libjava_libgcc_s_path
  set_ld_library_path_env_vars
}

proc gcj_jacks_parse {file} {
  if {[catch {open $file} fd]} {
    verbose "couldn't parse Jacks output: $fd"
    return
  }

  verbose "Reading jacks.xfail"
  gcj_jacks_setup_xfail xfails

  while {! [eof $fd]} {
    set line [gets $fd]
    if {[string match RESULT* $line]} {
      set linelist [split $line]
      set test [lindex $linelist 1]
      if {[info exists xfails($test)]} {
	setup_xfail "*-*-*"
      }
      if {[lindex $linelist 2] == "PASSED"} {
	pass $test
      } else {
	fail $test
      }
    }
  }

  close $fd
}

proc gcj_jacks_run {} {
  global srcdir

  if {! [file isdirectory $srcdir/libjava.jacks/jacks]} {
    # No tests.
    verbose "Jacks tests not found"
    return
  }

  # Jacks forces us to do this.  You can't run it from a separate
  # tree.
  verbose "Copying Jacks..."
  catch {system "rm -rf jacks"}
  catch {system "cp -r $srcdir/libjava.jacks/jacks jacks"}

  set here [pwd]
  cd jacks

  verbose "Writing Jacks setup file"
  gcj_jacks_write gcj_setup

  verbose "Running Jacks..."
  # Just ignore error exits from the jacks program.
  # It will always error exit for us, since don't completely pass.
  # At the moment jacks has a hardcoded call to tclsh8.3. To override this,
  # we check here on the version and launch the script directly with the
  # tclsh$tcl_ver.
  set tcl_ver [info tclversion]
  if {[package vcompare  $tcl_ver 8.3] >= 0 } {
    if {[catch {exec tclsh$tcl_ver jacks gcj} msg]} {
	send_log "Couldn't run jacks: $msg\n"
	return
    }
    gcj_jacks_parse logging/gcj.log
  } else {
      send_log "No suitable tclsh found, you need at least version 8.3 or up.\n"
      return
  }

  cd $here
}

gcj_jacks_run