PSI sics-cvs-psi-2008-10-02
This commit is contained in:
60
test/testsics
Executable file
60
test/testsics
Executable file
@@ -0,0 +1,60 @@
|
||||
#!/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 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
|
||||
|
||||
#------------ print test summary
|
||||
cleanupTests
|
||||
exit 1
|
||||
|
||||
Reference in New Issue
Block a user