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

- changes to trics tests

Browse Source
This commit is contained in:
koennecke
2009-03-16 14:26:13 +00:00
parent c7f5857022
commit 133129c8c9
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/testsinglex.tcl
View File

@ -9,6 +9,7 @@ puts stdout "Testing Four Circle Codes"
set testub ".1215666 -.138694 -.0021278 -.1386887 -.1216454 .0010515 -.0049867 .0020612 -.081156" set testub ".1215666 -.138694 -.0021278 -.1386887 -.1216454 .0010515 -.0049867 .0020612 -.081156"
set testcell "5.4202 5.4202 12.3228 90. 90. 90." set testcell "5.4202 5.4202 12.3228 90. 90. 90."
singlex mode bi singlex mode bi
#--------------------------------------------------------------- #---------------------------------------------------------------
proc testReflection {ref} { proc testReflection {ref} {
drive h [lindex $ref 0] k [lindex $ref 1] l [lindex $ref 2] drive h [lindex $ref 0] k [lindex $ref 1] l [lindex $ref 2]
@ -122,6 +123,7 @@ singlex mode nb
config rights User User config rights User User
singlex ub 0.0228379 0.0773564 0.0476423 -0.1007840 0.0437923 0.0051331 -0.0213284 -0.0568516 0.0940093 singlex ub 0.0228379 0.0773564 0.0476423 -0.1007840 0.0437923 0.0051331 -0.0213284 -0.0568516 0.0940093
set testub "0.0228379 0.0773564 0.0476423 -0.1007840 0.0437923 0.0051331 -0.0213284 -0.0568516 0.0940093"
singlex cell 9.663 9.663 9.663 81.496 81.496 81.496 singlex cell 9.663 9.663 9.663 81.496 81.496 81.496
ref clear ref clear
ref addax 1 -2 -1 17.889732 -123.9175 -0.1104 ref addax 1 -2 -1 17.889732 -123.9175 -0.1104
@ -161,7 +163,7 @@ test singlex-1.10 {Driving NB- Reflection though hkl} -body {
return OK return OK
} -result OK } -result OK
test singlex-1.6 {UB Calculation,NB, 2 Reflections, Cell} -body { test singlex-1.11 {UB Calculation,NB, 2 Reflections, Cell} -body {
ubcalc ub2ref 0000 0001 ubcalc ub2ref 0000 0001
ubcalc activate ubcalc activate
set ubr [SICSValue "singlex ub"] set ubr [SICSValue "singlex ub"]
@ -169,7 +171,7 @@ test singlex-1.6 {UB Calculation,NB, 2 Reflections, Cell} -body {
return OK return OK
} -result OK } -result OK
test singlex-1.7 {UB Calculation,NB, 3 Reflections} -body { test singlex-1.12 {UB Calculation,NB, 3 Reflections} -body {
ubcalc ub3ref 0000 0001 0002 ubcalc ub3ref 0000 0001 0002
ubcalc activate ubcalc activate
set ubr [SICSValue "singlex ub"] set ubr [SICSValue "singlex ub"]

4
test/testtricslist.tcl
View File

@ -35,8 +35,8 @@ proc configureBiList {} {
test tricslist-1.0 {Test Reflectionlist Bisecting} -body { test tricslist-1.0 {Test Reflectionlist Bisecting} -body {
configureBiList configureBiList
configureBiList configureBiList
refsave test/test.dat refsave test/testbi.dat
set status [catch {exec diff test.dat testbi.ref} msg] set status [catch {exec diff testbi.dat testbi.ref} msg]
if {$status != 0} { if {$status != 0} {
error "Differences found in reflection list for bisecting, investigate!" error "Differences found in reflection list for bisecting, investigate!"
} }