Subversion Repositories or1k_old

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