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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [all] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
# This file contains a top-level script to run all of the Tcl
2
# tests.  Execute it by invoking "source all" when running tclTest
3
# in this directory.
4
#
5
# RCS: @(#) $Id: all,v 1.1.1.1 2002-01-16 10:25:35 markom Exp $
6
 
7
if {$tcl_platform(os) == "Win32s"} {
8
    set files [glob *.tes]
9
} else {
10
    set files [glob *.test]
11
}
12
 
13
foreach i [lsort $files] {
14
    if [string match l.*.test $i] {
15
        # This is an SCCS lockfile
16
        continue
17
    }
18
    puts stdout $i
19
    if [catch {source $i} msg] {
20
        puts $msg
21
    }
22
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.