From 133129c8c92dba9b8e0031fb0ef61fe676cff17f Mon Sep 17 00:00:00 2001
From: koennecke <koennecke>
Date: Mon, 16 Mar 2009 14:26:13 +0000
Subject: [PATCH] - changes to trics tests

---
 test/testsinglex.tcl   | 6 ++++--
 test/testtricslist.tcl | 4 ++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/test/testsinglex.tcl b/test/testsinglex.tcl
index b43b71ca..239168da 100644
--- a/test/testsinglex.tcl
+++ b/test/testsinglex.tcl
@@ -9,6 +9,7 @@ puts stdout "Testing Four Circle Codes"
 set testub ".1215666 -.138694 -.0021278 -.1386887 -.1216454 .0010515 -.0049867 .0020612 -.081156"
 set testcell "5.4202 5.4202 12.3228 90. 90. 90."
 singlex mode bi
+
 #---------------------------------------------------------------
 proc testReflection {ref} {
     drive h [lindex $ref 0] k [lindex $ref 1] l [lindex $ref 2]
@@ -122,6 +123,7 @@ singlex mode nb
 config rights User User
 
 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
 ref clear
 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
 } -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 activate
     set ubr [SICSValue "singlex ub"]
@@ -169,7 +171,7 @@ test singlex-1.6 {UB Calculation,NB, 2 Reflections, Cell} -body {
     return 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 activate
     set ubr [SICSValue "singlex ub"]
diff --git a/test/testtricslist.tcl b/test/testtricslist.tcl
index dc6520db..b9884b0d 100644
--- a/test/testtricslist.tcl
+++ b/test/testtricslist.tcl
@@ -35,8 +35,8 @@ proc configureBiList {} {
 test tricslist-1.0 {Test Reflectionlist Bisecting} -body {
     configureBiList
     configureBiList
-    refsave test/test.dat
-    set status [catch {exec diff test.dat testbi.ref} msg]
+    refsave test/testbi.dat
+    set status [catch {exec diff testbi.dat testbi.ref} msg]
     if {$status != 0} {
 	error "Differences found in reflection list for bisecting, investigate!"
     }