OpenCores
URL https://opencores.org/ocsvn/or1k_old/or1k_old/trunk

Subversion Repositories or1k_old

[/] [or1k_old/] [trunk/] [insight/] [dejagnu/] [testsuite/] [runtest.all/] [config.test] - Blame information for rev 1782

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom 
# test clone_output
2 
 
3 
set srcdir [lindex $argv 0]
4 
set subdir [lindex $argv 1]
5 
set objdir [lindex $argv 2]
6 
 
7 
if [ file exists $objdir/setval.tmp ] {
8 
    source $objdir/setval.tmp
9 
} else {
10 
    puts "ERROR: $objdir/setval.tmp doesn't exist"
11 
}
12 
if [ file exists $srcdir/$subdir/default_procs.tcl ] {
13 
    source "$srcdir/$subdir/default_procs.tcl"
14 
} else {
15 
    puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist"
16 
}
17 
if [ file exists $srcdir/../lib/framework.exp] {
18 
    source $srcdir/../lib/framework.exp
19 
} else {
20 
    puts "ERROR: $srcdir/../lib/framework.exp doesn't exist"
21 
}
22 
 
23 
set all_flag 1
24 
 
25 
set host_triplet i586-unknown-linux
26 
set target_triplet i586-unknown-linux
27 
set target_cpu i586
28 
set target_os linux
29 
set build_triplet i586-unknown-linux
30 
 
31 
# FIXME: should use run_tests here, but due to Tcl's weird scoping rules, I get
32 
# problems.
33 
 
34 
#
35 
# Tests for a native configuration
36 
#
37 
if [isbuild $build_triplet] {
38 
    puts "PASSED: isbuild, native"
39 
} else {
40 
    puts "FAILED: isbuild, native"
41 
}
42 
 
43 
if [isbuild $target_cpu-*-$target_os ] {
44 
    puts "PASSED: isbuild, native regexp"
45 
} else {
46 
    puts "FAILED: isbuild, native regexp"
47 
}
48 
 
49 
if [isbuild hppa-ibm-macos ] {
50 
    puts "FAILED: isbuild, native bogus config string"
51 
} else {
52 
    puts "PASSED: isbuild, native bogus config string"
53 
}
54 
 
55 
# ishost tests
56 
if [ishost $host_triplet] {
57 
    puts "PASSED: ishost, native"
58 
} else {
59 
    puts "FAILED: ishost, native"
60 
}
61 
 
62 
if [ishost $target_cpu-*-$target_os] {
63 
    puts "PASSED: ishost, native regexp"
64 
} else {
65 
    puts "FAILED: ishost, native regexp"
66 
}
67 
 
68 
if [ishost hppa-ibm-macos] {
69 
    puts "FAILED: ishost, native bogus config string"
70 
} else {
71 
    puts "PASSED: ishost, native bogus config string"
72 
}
73 
 
74 
# istarget tests
75 
if [istarget $target_triplet] {
76 
    puts "PASSED: istarget, native"
77 
} else {
78 
    puts "FAILED: istarget, native"
79 
}
80 
 
81 
if [istarget $target_cpu-*-$target_os] {
82 
    puts "PASSED: istarget, native regexp"
83 
} else {
84 
    puts "FAILED: istarget, native regexp"
85 
}
86 
 
87 
if [istarget hppa-ibm-macos] {
88 
    puts "FAILED: istarget, native bogus config string"
89 
} else {
90 
    puts "PASSED: istarget, native bogus config string"
91 
}
92 
 
93 
# native tests
94 
if [isnative] {
95 
    puts "PASSED: isnative, native"
96 
} else {
97 
    puts "FAILED: isnative, native"
98 
}
99 
 
100 
if [is3way] {
101 
     puts "FAILED: is3way, native"
102 
} else {
103 
    puts "PASSED: is3way, native"
104 
}
105 
 
106 
#
107 
# Tests for a normal cross configuration
108 
#
109 
set target_triplet m68k-unknown-elf
110 
if [isnative] {
111 
    puts "FAILED: isnative, cross"
112 
} else {
113 
    puts "PASSED: isnative, cross"
114 
}
115 
 
116 
if [is3way] {
117 
     puts "FAILED: is3way, cross"
118 
} else {
119 
    puts "PASSED: is3way, cross"
120 
}
121 
 
122 
#
123 
# Tests for a canadian cross configuration
124 
#
125 
set host_triplet  i386-unknown-winnt
126 
if [isnative] {
127 
    puts "FAILED: isnative, canadian cross"
128 
} else {
129 
    puts "PASSED: isnative, canadian cross"
130 
}
131 
 
132 
if [is3way] {
133 
     puts "PASSED: is3way, canadian cross"
134 
} else {
135 
    puts "FAILED: is3way, canadian cross"
136 
}
137 
 
138 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.