36 lines
1.0 KiB
Tcl
Executable File
36 lines
1.0 KiB
Tcl
Executable File
#!/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
|
|
|
|
#-------------- Test Counter
|
|
set countername aba
|
|
set errorname aba
|
|
#source countertest.tcl
|
|
|
|
#-------------- Test Multi Counter
|
|
set countername multi
|
|
source countertest.tcl
|
|
|
|
#------------ print test summary
|
|
cleanupTests
|
|
exit 1
|
|
|