Subversion Repositories openrisc

# Tests for class verifier.

global gcj_verify_xfail

set {gcj_verify_xfail(gij verify of call.fail.Static)} 1

set {gcj_verify_xfail(gij verify of simple.fail.dupfield)} 1

set {gcj_verify_xfail(gij verify of simple.fail.dupinterface)} 1

set {gcj_verify_xfail(gij verify of simple.fail.dupmethod)} 1

set {gcj_verify_xfail(gij verify of subr.fail.jsr10)} 1

set {gcj_verify_xfail(gij verify of subr.fail.jsr8)} 1

proc gcj_verify_list_tests {srcdir} {

  set result {}

  if {[file exists $srcdir]} {

    set here [pwd]

    cd $srcdir

    foreach item [lsort [glob -nocomplain */*/*.class]] {

      lappend result [file rootname $item]

    }

    cd $here

  }

  return $result

}

proc gcj_verify_test_gij {gij srcdir test shouldfail} {

  global gcj_verify_xfail

  set testname "gij verify of $test"

  verbose "invoking gij $test  - shouldfail=$shouldfail"

  set result [libjava_load $gij [list --cp $srcdir $test] ""]

  set status [lindex $result 0]

  set output [lindex $result 1]

  if {$shouldfail} {

    # We match the few exceptions that are allowed.  This may need

    # updating from time to time.  We do this rather than check the

    # exit status because we want to catch the case where gij dies in

    # some inappropriate way.

    if {[string match *VerifyError* $output]

        || [string match *AbstractMethodError* $output]

        || [string match *IncompatibleClassChangeError* $output]} {

      set cmd pass

    } else {

      set cmd fail

    }

    if {[info exists gcj_verify_xfail($testname)]} {

      setup_xfail *-*-*

    }

  } else {

    if {$status == "pass"} {

      set cmd pass

    } else {

      set cmd fail

    }

  }

  $cmd $testname

}

proc gcj_verify_run {} {

  global INTERPRETER srcdir

  set gij [libjava_find_gij]

  set interpret 1

  # libjava_find_gij will return "" if it couldn't find the

  # program; in this case we want to skip the test.

  if {$INTERPRETER != "yes" || $gij == ""} {

    set interpret 0

  }

  set testsdir $srcdir/libjava.verify/verify

  foreach test [gcj_verify_list_tests $testsdir] {

    set shouldfail [string match */fail/* $test]

    if {$interpret} {

      regsub -all -- / $test . gijname

      gcj_verify_test_gij $gij $testsdir $gijname $shouldfail

    }

    # FIXME: run gcj --syntax-only here.

  }

}

gcj_verify_run