blob: bafbf83763e9b57d31c97f3362eebe139ccc319e (
plain)
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
|
# This file contains a top-level script to run all of the Tcl
# tests. Execute it by invoking "source all" when running tclTest
# in this directory.
#
# SCCS: @(#) all 1.28 97/12/23 15:00:50
# These tests are not done because they cause the new configuration package
# to crash.
set exclude {}
switch $tcl_platform(platform) {
"windows" {
# Tests that cause tk to crash under windows.
set crash { safe.test }
# Tests that fail under windows.
set fail { grid.test }
set exclude [string tolower [concat $exclude $crash $fail]]
}
"macintosh" {
set x [pwd]
cd $tk_library
set tk_library [pwd]
cd $x
# Tests that cause tk to crash under mac.
set crash {}
# Tests that fail under mac.
set fail {bind.test entry.test send.test textDisp.test}
set exclude [string tolower [concat $exclude $crash $fail]]
}
"unix" {
# Tests that cause tk to crash under unix.
set crash {}
# Tests that fail under unix.
set fail {}
set exclude [concat $exclude $crash $fail]
}
}
if {$tcl_platform(os) == "Win32s"} {
set tests [lsort [glob *.tes]]
} else {
set tests [lsort [glob *.test]]
}
foreach i $tests {
if [string match l.*.test $i] {
# This is an SCCS lock file; ignore it.
continue
}
if [lsearch $exclude [string tolower $i]]>=0 {
# Do not source this file; it exercises a known bug at this time.
puts stdout "Skipping $i"
continue
}
puts stdout $i
source $i
}
|