tests/tcltests.tcl


1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/env tclsh

package require tcltest 2.2
namespace import -force ::tcltest::*

testConstraint exec          [llength [info commands exec]]
testConstraint fcopy         [llength [info commands fcopy]]
testConstraint fileevent     [llength [info commands fileevent]]
testConstraint thread        [
    expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint notValgrind   [expr {![testConstraint valgrind]}]