tests/all


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

# 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.
#
# RCS: @(#) $Id: all,v 1.2 1998/09/14 18:23:42 stanton Exp $

switch $tcl_platform(platform) {
    "windows" {
	# Tests that cause tk to crash under windows.
	set crash {}

	# Tests that fail under windows.

	set fail { grid.test }

	if {! [info exist exclude] } {
	    set exclude [string tolower "$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 "$crash $fail"]
    }    
    "unix" {
	set exclude ""
    }
}

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
}