← Back to branch summary

~ubuntu-branches/ubuntu/warty/dejagnu/warty

« back to all changes in this revision

Viewing changes to testsuite/runtest.all/config.test

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Jacobowitz
  • Date: 2004-02-09 15:07:58 UTC
  • Revision ID: james.westby@ubuntu.com-20040209150758-oaj7r5zrop60v8sb
Tags: upstream-1.4.4
Import upstream version 1.4.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/runtest.all/config.test
 
1
# 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