"{ Package: 'stx:goodies/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:'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$'
! !