linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Most instrument test files have been tested

Browse Source 
- sinqcom undwerwent extension to cover more devices and is now more or
  less finished
This commit is contained in:
koennecke
2007-04-26 14:34:58 +00:00
parent 524dac0fbf
commit a24f56e7fb
14 changed files with 303 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
insttest/dmctest
View File

@ -19,12 +19,12 @@ initSicsDebug $instrument
config rights lnsmanager lnsSICSlns
#---------- configuration
set notList [list nvs]
lappend commandList "counter setthreshold 1 0"
standardPrelude $instrument count
lappend notList ""
lappend commandList "count timer 2"
lappend commandList "repeat 2"
lappend commandList "counter setthreshold 1 2"
lappend commandList "wwwsics"
lappend varList [list "mono dd" 3.3537 .1]
@ -33,12 +33,8 @@ lappend varList [list "mono vk1" -.00259 .1]
lappend varList [list "mono vk2" 5.35166 .1]
set om [SICSValue a3]
exe upload
exe append drive a3 180.
exe append drive a3 $om
exe forcesave insttestbatch.tcl
lappend interruptList "drive a3 180"
lappend interruptList "drive a3 20"
lappend interruptList "count timer 120"
lappend interruptList "exe insttestbatch.tcl"
@ -72,6 +68,8 @@ if {$det == 1} {
}
drive a3 $om
standardRestore
#------------ print a summary
set inst [string toupper $instrument]
puts stdout "Test Summary for $inst"