URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [tk/] [tests/] [all] - Rev 1775
Go to most recent revision | Compare with Previous | Blame | View Log
# 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.1.1.1 2002-01-16 10:25:58 markom Exp $
# If the srcdir variable exists, tests are looked for in that
# directory. Otherwise they are looked for in ".".
if {! [info exists srcdir]} then {
set srcdir .
}
# Always explicitly load `defs', so tests don't have to. This avoids
# the need for each .test file to know about $srcdir.
source $srcdir/defs
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 $srcdir/*.tes]]
} else {
set tests [lsort [glob $srcdir/*.test]]
}
foreach i $tests {
set tail [file tail $i]
if [string match l.*.test $tail] {
# This is an SCCS lock file; ignore it.
continue
}
if [lsearch $exclude [string tolower $tail]]>=0 {
# Do not source this file; it exercises a known bug at this time.
puts stdout "Skipping $tail"
continue
}
puts stdout $tail
if [catch {source $i} msg] {
puts $msg
}
}
puts "Tests all done"
Go to most recent revision | Compare with Previous | Blame | View Log