author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 05 Jan 2017 23:36:28 +0000 | |
branch | jv |
changeset 1567 | e17701a073f9 |
parent 1500 | d406a10b2965 |
permissions | -rw-r--r-- |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
342 | 2 |
|
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#MeasurementValueTests |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'tests-Regression' |
|
10 |
! |
|
11 |
||
12 |
!MeasurementValueTests class methodsFor:'documentation'! |
|
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
documentation to be added. |
|
17 |
||
18 |
[author:] |
|
1447 | 19 |
cg (cg@FUSI) |
342 | 20 |
|
21 |
[instance variables:] |
|
22 |
||
23 |
[class variables:] |
|
24 |
||
25 |
[see also:] |
|
26 |
||
27 |
" |
|
28 |
! |
|
29 |
||
30 |
history |
|
31 |
"Created: / 04-01-2008 / 14:16:08 / cg" |
|
32 |
! ! |
|
33 |
||
34 |
!MeasurementValueTests methodsFor:'initialize / release'! |
|
35 |
||
36 |
setUp |
|
37 |
"common setup - invoked before testing." |
|
38 |
||
39 |
super setUp |
|
40 |
! |
|
41 |
||
42 |
tearDown |
|
43 |
"common cleanup - invoked after testing." |
|
44 |
||
45 |
super tearDown |
|
46 |
! ! |
|
47 |
||
48 |
!MeasurementValueTests methodsFor:'tests'! |
|
49 |
||
50 |
test01_creation |
|
51 |
|m1 m2 v1| |
|
52 |
||
53 |
m1 := MeasurementValue new value:10 error:0.1. |
|
54 |
self assert: ( m1 value = 10 ). |
|
55 |
self assert: ( m1 between:9 and:11 ). |
|
56 |
self assert: ( m1 between:8 and:12 ). |
|
57 |
self assert: ( m1 between:9.5 and:11 ) not. |
|
58 |
self assert: ( m1 > 8 ). |
|
59 |
self assert: ( m1 >= 9 ). |
|
60 |
self assert: ( m1 <= 11 ). |
|
61 |
self assert: ( m1 <= 12 ). |
|
62 |
||
63 |
v1 := m1 * 10. |
|
64 |
self assert: ( v1 between:90 and:110 ). |
|
65 |
||
66 |
m2 := MeasurementValue new value:20 error:0.2. |
|
67 |
self assert: ( m2 value = 20 ). |
|
68 |
self assert: ( m2 between:16 and:24 ). |
|
69 |
||
70 |
" |
|
71 |
self run:#test01_creation |
|
72 |
self new test01_creation |
|
73 |
" |
|
74 |
! |
|
75 |
||
76 |
test02_arithmetic |
|
77 |
|m1 m2 v2| |
|
78 |
||
79 |
m1 := MeasurementValue new value:10 error:0.1. |
|
80 |
m2 := MeasurementValue new value:20 error:0.2. |
|
81 |
||
82 |
v2 := m1 + 2. |
|
83 |
self assert: ( v2 minValue = (9+2) ). |
|
84 |
self assert: ( v2 maxValue = (11+2) ). |
|
85 |
self assert: ( v2 between:9+2 and:11+2 ). |
|
86 |
||
87 |
v2 := m1 - 2. |
|
88 |
self assert: ( v2 minValue = (9-2) ). |
|
89 |
self assert: ( v2 maxValue = (11-2) ). |
|
90 |
self assert: ( v2 between:9-2 and:11-2 ). |
|
91 |
||
92 |
v2 := m1 * 2. |
|
93 |
self assert: ( v2 minValue = (9*2) ). |
|
94 |
self assert: ( v2 maxValue = (11*2) ). |
|
95 |
self assert: ( v2 between:9*2 and:11*2 ). |
|
96 |
||
97 |
v2 := m1 / 2. |
|
98 |
self assert: ( v2 minValue = (9/2) ). |
|
99 |
self assert: ( v2 maxValue = (11/2) ). |
|
100 |
self assert: ( v2 between:9/2 and:11/2 ). |
|
101 |
||
102 |
||
103 |
v2 := m1 + m2. |
|
104 |
self assert: ( v2 minValue = (9+16) ). |
|
105 |
self assert: ( v2 maxValue = (11+24) ). |
|
106 |
self assert: ( v2 between:9+16 and:11+24 ). |
|
107 |
||
108 |
v2 := m1 - m2. |
|
109 |
self assert: ( v2 minValue = (9-24) ). |
|
110 |
self assert: ( v2 maxValue = (11-16) ). |
|
111 |
self assert: ( v2 between:9-24 and:11-16 ). |
|
112 |
||
113 |
v2 := m1 * m2. |
|
114 |
self assert: ( v2 minValue = (9*16) ). |
|
115 |
self assert: ( v2 maxValue = (11*24) ). |
|
116 |
self assert: ( v2 between:9*16 and:11*24 ). |
|
117 |
||
118 |
v2 := m1 / m2. |
|
119 |
self assert: ( v2 minValue = (9/24) ). |
|
120 |
self assert: ( v2 maxValue = (11/16) ). |
|
121 |
self assert: ( v2 between:9/24 and:11/16 ). |
|
122 |
||
123 |
" |
|
124 |
self run:#test02_arithmetic |
|
125 |
self new test02_arithmetic |
|
126 |
" |
|
127 |
! |
|
128 |
||
129 |
test03_compare |
|
130 |
|m1 m2 m3| |
|
131 |
||
132 |
m1 := MeasurementValue new value:10 error:0.1. |
|
133 |
m2 := MeasurementValue new value:11 error:0.1. |
|
134 |
m3 := MeasurementValue new value:20 error:0.2. |
|
135 |
||
136 |
self assert: ( m1 > 8 ). |
|
137 |
self assert: ( m1 >= 9 ). |
|
138 |
self assert: ( m1 >= 10 ). |
|
139 |
self assert: ( m1 >= 11 ). |
|
140 |
self assert: ( m1 >= 12 ) not. |
|
141 |
||
142 |
self assert: ( m2 >= m1 ). |
|
143 |
self assert: ( m3 >= m2 ). |
|
144 |
self assert: ( m3 >= m1 ). |
|
145 |
||
146 |
self assert: ( m1 <= m2 ). |
|
147 |
||
148 |
" |
|
149 |
self run:#test03_compare |
|
150 |
self new test03_compare |
|
151 |
" |
|
152 |
! ! |
|
153 |
||
154 |
!MeasurementValueTests class methodsFor:'documentation'! |
|
155 |
||
156 |
version |
|
157 |
^ '$Header$' |
|
158 |
! ! |
|
1567
e17701a073f9
Added abstract VMSpawningTestCase
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
1500
diff
changeset
|
159 |