Artifact
5829a29d96d98c02f357c12ecfdf3ac20530d65da40ec7bc07b033e53550c27e:
Attachment "testconstraints.tcl" to
ticket [9d579f1450]
added by
erikleunissen
2017-12-09 22:27:14.
(unpublished)
#! /bin/sh
# If executed as a shell script, the next line replaces the shell with wish \
exec tclsh "$0" ${1+"$@"}
puts "tcltest version: [package require tcltest]"
namespace import tcltest::*
tcltest::configure -verbose {pass error}
testConstraint tcl>=11.1 [expr {$tcl_version >= 11.1}]
testConstraint abc-def-ghi 1
# This test ought be skipped
test foo {foo} -constraints {tcl>=11.1} -body {
# no need to do anything here
} -result ""
# This test ought be run
test bar {bar} -constraints {abc-def-ghi} -body {
# no need to do anything here
} -result ""
tcltest::cleanupTests