--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__MeasurementValueTests.st	Mon Jan 07 14:43:08 2008 +0100
@@ -0,0 +1,158 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#MeasurementValueTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression'
+!
+
+!MeasurementValueTests class methodsFor:'documentation'!
+
+documentation
+"
+    documentation to be added.
+
+    [author:]
+        cg (cg@FUSI)
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
+!
+
+history
+    "Created: / 04-01-2008 / 14:16:08 / cg"
+! !
+
+!MeasurementValueTests methodsFor:'initialize / release'!
+
+setUp
+    "common setup - invoked before testing."
+
+    super setUp
+!
+
+tearDown
+    "common cleanup - invoked after testing."
+
+    super tearDown
+! !
+
+!MeasurementValueTests methodsFor:'tests'!
+
+test01_creation
+    |m1 m2 v1|
+
+    m1 := MeasurementValue new value:10 error:0.1.
+    self assert: ( m1 value = 10 ).
+    self assert: ( m1 between:9 and:11 ).
+    self assert: ( m1 between:8 and:12 ).
+    self assert: ( m1 between:9.5 and:11 ) not.
+    self assert: ( m1 > 8 ).
+    self assert: ( m1 >= 9 ).
+    self assert: ( m1 <= 11 ).
+    self assert: ( m1 <= 12 ).
+
+    v1 := m1 * 10.
+    self assert: ( v1 between:90 and:110 ).
+
+    m2 := MeasurementValue new value:20 error:0.2.
+    self assert: ( m2 value = 20 ).
+    self assert: ( m2 between:16 and:24 ).
+
+    "
+     self run:#test01_creation
+     self new test01_creation
+    "
+!
+
+test02_arithmetic
+    |m1 m2 v2|
+
+    m1 := MeasurementValue new value:10 error:0.1.
+    m2 := MeasurementValue new value:20 error:0.2.
+
+    v2 := m1 + 2.
+    self assert: ( v2 minValue = (9+2)  ).
+    self assert: ( v2 maxValue = (11+2) ).
+    self assert: ( v2 between:9+2 and:11+2 ).
+
+    v2 := m1 - 2.
+    self assert: ( v2 minValue = (9-2)  ).
+    self assert: ( v2 maxValue = (11-2) ).
+    self assert: ( v2 between:9-2 and:11-2 ).
+
+    v2 := m1 * 2.
+    self assert: ( v2 minValue = (9*2)  ).
+    self assert: ( v2 maxValue = (11*2) ).
+    self assert: ( v2 between:9*2 and:11*2 ).
+
+    v2 := m1 / 2.
+    self assert: ( v2 minValue = (9/2)  ).
+    self assert: ( v2 maxValue = (11/2) ).
+    self assert: ( v2 between:9/2 and:11/2 ).
+
+
+    v2 := m1 + m2.
+    self assert: ( v2 minValue = (9+16)  ).
+    self assert: ( v2 maxValue = (11+24) ).
+    self assert: ( v2 between:9+16 and:11+24 ).
+
+    v2 := m1 - m2.
+    self assert: ( v2 minValue = (9-24)  ).
+    self assert: ( v2 maxValue = (11-16) ).
+    self assert: ( v2 between:9-24 and:11-16 ).
+
+    v2 := m1 * m2.
+    self assert: ( v2 minValue = (9*16)  ).
+    self assert: ( v2 maxValue = (11*24) ).
+    self assert: ( v2 between:9*16 and:11*24 ).
+
+    v2 := m1 / m2.
+    self assert: ( v2 minValue = (9/24)  ).
+    self assert: ( v2 maxValue = (11/16) ).
+    self assert: ( v2 between:9/24 and:11/16 ).
+
+    "
+     self run:#test02_arithmetic
+     self new test02_arithmetic
+    "
+!
+
+test03_compare
+    |m1 m2 m3|
+
+    m1 := MeasurementValue new value:10 error:0.1.
+    m2 := MeasurementValue new value:11 error:0.1.
+    m3 := MeasurementValue new value:20 error:0.2.
+
+    self assert: ( m1 > 8 ).
+    self assert: ( m1 >= 9 ).
+    self assert: ( m1 >= 10 ).
+    self assert: ( m1 >= 11 ).
+    self assert: ( m1 >= 12 ) not.
+
+    self assert: ( m2 >= m1 ).
+    self assert: ( m3 >= m2 ).
+    self assert: ( m3 >= m1 ).
+
+    self assert: ( m1 <= m2 ).
+
+    "
+     self run:#test03_compare
+     self new test03_compare
+    "
+! !
+
+!MeasurementValueTests class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !