| # 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" |
| } |
| |
| |