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

- Added many more regression tests for the SICServer

Browse Source
This commit is contained in:
koennecke
2006-11-24 15:57:41 +00:00
parent e58bd5fc30
commit dca149c242
13 changed files with 995 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/histtest.tcl
View File

@ -284,7 +284,7 @@ test hm-1.14 {Test Setting Time Binning} -body {
return OK
} -result OK
#-------------------------------------------------------------------------
test hm-1.14 {Test Reading Time Binning} -body {
test hm-1.15 {Test Reading Time Binning} -body {
set tst [SICSValue "tof notimebin"]
if {$tst != 70} {
error "NTOF bad, expected 70, got $tst"
@ -310,7 +310,7 @@ test hm-1.14 {Test Reading Time Binning} -body {
tof countmode timer
tof preset 2
tof countblock
test hm-1.14 {Test Reading TOF Data} -body {
test hm-1.16 {Test Reading TOF Data} -body {
set ntof [SICSValue "tof notimebin"]
set dim [SICSValue "tof configure dim0"]
set alldata [expr $ntof*$dim]
@ -330,3 +330,13 @@ test hm-1.14 {Test Reading TOF Data} -body {
}
return OK
} -result OK
#----------------------------------------------------------------------
tof initval 1
test hm-1.16 {Test TOF Sum} -body {
set val [SICSValue "tof sum 2 3 0 20"]
if {$val != 20 } {
error " tof sum failed, expected 20 received $val"
}
return OK
} -result OK