From ab898002fa7b3e354703c6a4a84c34f9482cf9f4 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sun, 17 Sep 2017 19:34:02 +1000 Subject: tcltest: Support 'needs package xxx' Makes it easy to skip all tests if the package isn't available Signed-off-by: Steve Bennett --- tcltest.tcl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tcltest.tcl') diff --git a/tcltest.tcl b/tcltest.tcl index b7e3983..5b0198a 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -44,6 +44,12 @@ proc needs {type what {packages {}}} { } skiptest " (command $what)" } + if {$type eq "package"} { + if {[catch {package require $what}]} { + skiptest " (package $what)" + } + return + } error "Unknown needs type: $type" } -- cgit v1.1