Artifact 91f3c57960f7f21bfa359310f1967f4c75c109be:

• File build/test/tests/16-itcl.tcl — part of check-in [36e900cf16] at 2011-05-08 19:16:45 on branch trunk — Added basic Incr Tcl test (user: rkeene, size: 360) [annotate] [blame] [check-ins using] [more...]

#! /usr/bin/env tclsh

if {[catch {
	set buildflags [split [lindex $argv 1] -]

	# Determine if Itcl was was requested
	## Minimal builds don't come with Itcl
	set hasitcl 1
	if {[lsearch -exact $buildflags "min"] != -1} {
		set hasitcl 0
	}

	if {!$hasitcl} {
		exit 0
	}

	package require Itcl

	exit 0
}]} {
	puts "Error in Itcl Test: $errorInfo"
	exit 1
}