#!/usr/bin/tclsh #------------------------------------------------------------------------------ # This is a regression test for SICS. Before this can be used a SICServer must # have been started with: SICServer testini.tcl. This file uses the # tcltest package which comes with SICS for tests. # # copyright: see file COPYRIGHT # # Started: Mark Koennecke, July 2006 #------------------------------------------------------------------------------ # as of now we have tcl8.3 which has an outdated version of tcltest. We use # a better version in a local file. Once tcl8.4 has made it into the distro # I use, use the line below. We need tcltest 2.+ # package require tcltest source tcltest.tcl namespace import tcltest::* source testutil.tcl source sicstcldebug.tcl #-------------- Test for motors source mottest.tcl #------------ print test summary cleanupTests exit 1