1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
# 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"
}
|
