# test clone_output set srcdir [lindex $argv 0] set subdir [lindex $argv 1] set objdir [lindex $argv 2] if [ file exists $objdir/setval.tmp ] { source $objdir/setval.tmp } else { puts "ERROR: $objdir/setval.tmp doesn't exist" } if [ file exists $srcdir/$subdir/default_procs.tcl ] { source "$srcdir/$subdir/default_procs.tcl" } else { puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist" } if [ file exists $srcdir/../lib/framework.exp] { source $srcdir/../lib/framework.exp } else { puts "ERROR: $srcdir/../lib/framework.exp doesn't exist" } set all_flag 1 set host_triplet i586-unknown-linux set target_triplet i586-unknown-linux set target_cpu i586 set target_os linux set build_triplet i586-unknown-linux # FIXME: should use run_tests here, but due to Tcl's weird scoping rules, I get # problems. # # Tests for a native configuration # if [isbuild $build_triplet] { puts "PASSED: isbuild, native" } else { puts "FAILED: isbuild, native" } if [isbuild $target_cpu-*-$target_os ] { puts "PASSED: isbuild, native regexp" } else { puts "FAILED: isbuild, native regexp" } if [isbuild hppa-ibm-macos ] { puts "FAILED: isbuild, native bogus config string" } else { puts "PASSED: isbuild, native bogus config string" } # ishost tests if [ishost $host_triplet] { puts "PASSED: ishost, native" } else { puts "FAILED: ishost, native" } if [ishost $target_cpu-*-$target_os] { puts "PASSED: ishost, native regexp" } else { puts "FAILED: ishost, native regexp" } if [ishost hppa-ibm-macos] { puts "FAILED: ishost, native bogus config string" } else { puts "PASSED: ishost, native bogus config string" } # istarget tests if [istarget $target_triplet] { puts "PASSED: istarget, native" } else { puts "FAILED: istarget, native" } if [istarget $target_cpu-*-$target_os] { puts "PASSED: istarget, native regexp" } else { puts "FAILED: istarget, native regexp" } if [istarget hppa-ibm-macos] { puts "FAILED: istarget, native bogus config string" } else { puts "PASSED: istarget, native bogus config string" } # native tests if [isnative] { puts "PASSED: isnative, native" } else { puts "FAILED: isnative, native" } if [is3way] { puts "FAILED: is3way, native" } else { puts "PASSED: is3way, native" } # # Tests for a normal cross configuration # set target_triplet m68k-unknown-elf if [isnative] { puts "FAILED: isnative, cross" } else { puts "PASSED: isnative, cross" } if [is3way] { puts "FAILED: is3way, cross" } else { puts "PASSED: is3way, cross" } # # Tests for a canadian cross configuration # set host_triplet i386-unknown-winnt if [isnative] { puts "FAILED: isnative, canadian cross" } else { puts "PASSED: isnative, canadian cross" } if [is3way] { puts "PASSED: is3way, canadian cross" } else { puts "FAILED: is3way, canadian cross" }