#!/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 # Mark Koennecke, February 2009 #------------------------------------------------------------------------------ # 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 Miscellaneous stuff source testmisc.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 #-------------- Test batch processing source batchtest.tcl #-------------- Test scans source scantest.tcl #------------ Test peak optimization source optitest.tcl #----------- test histogram memory source histtest.tcl #----------- test sics data source testsicsdata.tcl #----------- test nxscript source nxscripttest.tcl #------------ test SANS MultiMotor source testmumo.tcl #------------ test SingleX source testsinglex.tcl #------------ print test summary cleanupTests exit 1