URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [itcl/] [itcl/] [tests/] [all] - Diff between revs 578 and 1765

Rev 578	Rev 1765
`# This file contains a top-level script to run all of the Tcl`	`# This file contains a top-level script to run all of the Tcl`
`# tests. Execute it by invoking "source all" when running tclTest`	`# tests. Execute it by invoking "source all" when running tclTest`
`# in this directory.`	`# in this directory.`
`#`	`#`
`# SCCS: @(#) all 1.7 96/02/16 08:55:38`	`# SCCS: @(#) all 1.7 96/02/16 08:55:38`

`foreach i [lsort [glob *.test]] {`	`foreach i [lsort [glob *.test]] {`
`if [string match l.*.test $i] {`	`if [string match l.*.test $i] {`
`# This is an SCCS lock file; ignore it.`	`# This is an SCCS lock file; ignore it.`
`continue`	`continue`
`}`	`}`
`puts stdout $i`	`puts stdout $i`
`if [catch {source $i} msg] {`	`if [catch {source $i} msg] {`
`puts $msg`	`puts $msg`
`}`	`}`
`}`	`}`