-
Notifications
You must be signed in to change notification settings - Fork 0
/
gregg_create.unit
251 lines (192 loc) · 56.7 KB
/
gregg_create.unit
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
#!/usr/local/bin/koios
# koios-polos (axis of heaven) unit testing meta-language
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
PREP include the prototype headers - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
incl include public header gregg.h - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify draw data collection primatives 0s data CREATE_draw_reset, CREATE_draw_point, CREATE_draw_wrap ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - char t [LEN_FULL] = "";
COND verify resetting a letter - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call reset CREATE_draw_reset 0 , SHAPE_DATA i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0æ
COND verify requesting a point - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call point CREATE_draw_point 0 , SHAPE_DATA , 1.0 , 1.0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 1.0 1.0 0.0 1æ
COND verify requesting another to right - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call point CREATE_draw_point 0 , SHAPE_DATA , 2.5 , 0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 2.5 1.0 0.0 2æ
COND verify requesting another below - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call point CREATE_draw_point 0 , SHAPE_DATA , 2.5 , -2.2 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 2.5 1.0 -2.2 3æ
COND verify requesting another to left - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call point CREATE_draw_point 0 , SHAPE_DATA , -1.1 , -2.2 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 -1.1 2.5 1.0 -2.2 4æ
COND verify resetting a letter - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call reset CREATE_draw_reset 0 , SHAPE_DATA i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0æ
COND verify requesting and wrapping a horizontal line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call reset CREATE_draw_reset 0 , SHAPE_DATA i_equal 0
exec call point CREATE_draw_point 0 , SHAPE_DATA , 5.0 , 0.0 i_equal 0
exec call wrap CREATE_draw_wrap 0 , SHAPE_DATA , 5.0 , 0.0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 5.0 0.0 0.0 5.0 0.0 5.0 0.0 0.0 1æ
COND verify requesting and wrapping an angled line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call reset CREATE_draw_reset 0 , SHAPE_DATA i_equal 0
exec call point CREATE_draw_point 0 , SHAPE_DATA , 5.0 , 5.0 i_equal 0
exec call wrap CREATE_draw_wrap 0 , SHAPE_DATA , 5.0 , 5.0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 5.0 5.0 45.0 7.1 0.0 5.0 5.0 0.0 1æ
COND verify requesting and wrapping a curve - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call reset CREATE_draw_reset 0 , SHAPE_DATA i_equal 0
exec call point CREATE_draw_point 0 , SHAPE_DATA , 5.0 , 5.0 i_equal 0
exec call point CREATE_draw_point 0 , SHAPE_DATA , 10.0 , 2.5 i_equal 0
exec call wrap CREATE_draw_wrap 0 , SHAPE_DATA , 10.0 , 2.5 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 10.0 2.5 14.0 10.3 0.0 10.0 5.0 0.0 2æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify combination data primiatives for data 0s combo CREATE_head, CREATE_single, CREATE_tail ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - char t [LEN_FULL] = "";
COND verify starting a letter - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call head CREATE_head 0 , SHAPE_DATA i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0æ
COND verify adding points - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call single CREATE_single 0 , SHAPE_DATA , 1.0 , 1.0 i_equal 0
exec call single CREATE_single 0 , SHAPE_DATA , 2.5 , 0 i_equal 0
exec call single CREATE_single 0 , SHAPE_DATA , 2.5 , -2.2 i_equal 0
exec call single CREATE_single 0 , SHAPE_DATA , -1.1 , -2.2 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 0.0 0.0 0.0 0.0 -1.1 2.5 1.0 -2.2 4æ
COND verify a horizontal line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call head CREATE_head 0 , SHAPE_DATA i_equal 0
exec call tail CREATE_tail 0 , SHAPE_DATA , 5.0 , 0.0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 5.0 0.0 0.0 5.0 0.0 5.0 0.0 0.0 1æ
COND verify a angled line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call head CREATE_head 0 , SHAPE_DATA i_equal 0
exec call tail CREATE_tail 0 , SHAPE_DATA , 5.0 , 5.0 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 5.0 5.0 45.0 7.1 0.0 5.0 5.0 0.0 1æ
COND verify a angled line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec call head CREATE_head 0 , SHAPE_DATA i_equal 0
exec call single CREATE_single 0 , SHAPE_DATA , 5.0 , 5.0 i_equal 0
exec call tail CREATE_tail 0 , SHAPE_DATA , 10.0 , 2.5 i_equal 0
exec call detail CREATE_detail 0 , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å0 bof - 0 0 0 0 0 0 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 10.0 2.5 14.0 10.3 0.0 10.0 5.0 0.0 2æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify displaying details 0s detail CREATE_detail ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - short n = 0;
local create working/return variable - - - - - - - - - - - - - char t [LEN_FULL] = "";
local create working/return variable - - - - - - - - - - - - - float x = 0.0, y = 0.0;
# COND verify a quick success - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec call find TABLE_letter_by_name "a" , LTRS_ALL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL , NULL i_greater 0 n
# exec call data update CREATE_letter SHAPE_DATA , "a" , &x , &y i_equal 0
# echo ... check final x - - - - - - - - - - - - - x i_equal 0
# echo ... check final y - - - - - - - - - - - - - y i_equal 0
# exec call detail CREATE_detail n , t i_equal 0
# echo ... check detail - - - - - - - - - - - - - t w_equal å34 a c 6 0 90 0 0 20 0 0 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬¬.¬ ¬¬¬æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify loading from lines 0s line_data CREATE_line ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - short n = 0;
local create working/return variable - - - - - - - - - - - - - float x, y;
local create working/return variable - - - - - - - - - - - - - char t [LEN_FULL] = "";
local create working/return variable - - - - - - - - - - - - - short r, a;
COND verify creating data for simple, horizontal line (N) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call find TABLE_letter_by_name "n" , LTRS_ALL , NULL , NULL , NULL , NULL , NULL , &r , NULL , &a , NULL i_greater 0 n
echo ... check rotation - - - - - - - - - - - - - r i_equal 5
echo ... check length/arc - - - - - - - - - - - - - a i_equal 12
exec call line CREATE_line n , SHAPE_DATA , r , a , &x , &y i_equal 0
exec call detail CREATE_detail n , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å12 n l 0 0 5 0 12 5 2 1 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 12.0 1.0 5.0 12.0 0.0 12.0 1.0 0.0 14æ
COND verify creating data for longer, horizontal line (M) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call find TABLE_letter_by_name "m" , LTRS_ALL , NULL , NULL , NULL , NULL , NULL , &r , NULL , &a , NULL i_greater 0 n
echo ... check rotation - - - - - - - - - - - - - r i_equal 5
echo ... check length/arc - - - - - - - - - - - - - a i_equal 24
exec call line CREATE_line n , SHAPE_DATA , r , a , &x , &y i_equal 0
exec call detail CREATE_detail n , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å13 m l 0 0 5 0 24 5 2 2 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 23.9 2.1 5.0 24.0 0.0 23.9 2.1 0.0 26æ
COND verify creating data for upward line (D) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call find TABLE_letter_by_name "d" , LTRS_ALL , NULL , NULL , NULL , NULL , NULL , &r , NULL , &a , NULL i_greater 0 n
echo ... check rotation - - - - - - - - - - - - - r i_equal 40
echo ... check length/arc - - - - - - - - - - - - - a i_equal 24
exec call line CREATE_line n , SHAPE_DATA , r , a , &x , &y i_equal 0
exec call detail CREATE_detail n , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å2 d l 0 0 40 0 24 1 1 2 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ 18.4 15.4 40.0 24.0 0.0 18.4 15.4 0.0 26æ
COND verify creating data for long, downward line (J) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call find TABLE_letter_by_name "j" , LTRS_ALL , NULL , NULL , NULL , NULL , NULL , &r , NULL , &a , NULL i_greater 0 n
echo ... check rotation - - - - - - - - - - - - - r i_equal -110
echo ... check length/arc - - - - - - - - - - - - - a i_equal 36
exec call line CREATE_line n , SHAPE_DATA , r , a , &x , &y i_equal 0
exec call detail CREATE_detail n , t i_equal 0
echo ... check detail - - - - - - - - - - - - - t w_equal å25 j l 0 0 -110 0 36 10 4 3 ¬¬¬¬ ¬¬¬¬ ¬¬ ¬¬ -12.3 -33.8 -110.0 36.0 -12.3 0.0 0.0 -33.8 38æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify loading from lines 0s line_load CREATE_line ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - float x, y;
COND verify drawing simple, simple line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call start FAKE_start i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0æ
exec call line CREATE_line 0 , SHAPE_LOAD , 0, 3, &x , &y i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0;1,0;2,0;3,0æ
COND verify drawing longer line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call start FAKE_start i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0æ
exec call line CREATE_line 0 , SHAPE_LOAD , 0, 10, &x , &y i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0;1,0;2,0;3,0;4,0;5,0;6,0;7,0;8,0;9,0;10,0æ
COND verify drawing longer line, at 45Ì - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call start FAKE_start i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0æ
exec call line CREATE_line 0 , SHAPE_LOAD , 45, 10, &x , &y i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0;1,1;2,2;3,3;4,4;5,5;6,6;7,7æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0
#23456789-12 123456789-123456789-123456789-12345 123456789-123456789-123456 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789- 123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789-123456789- 123456789-123456789-
#==(verb)=== ===========(description)=========== =====(function)=========== ========================(arguments)================================================================= ==(test)== ==========================(results)================================================================= ========(var)=======
SCRP (CREATE) verify drawing a circle 0s circle CREATE_circle ((01.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec start testing PROG__unit_quiet i_equal 0
local create working/return variable - - - - - - - - - - - - - float x, y;
COND verify drawing simple, simple line - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.003)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
code initialize coords - - - - - - - - - - - - - x = y = 0.0;
exec call start FAKE_start i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0æ
exec call circle CREATE_circle 0 , SHAPE_LOAD , 3, 45, &x , &y i_equal 0
echo ... check load - - - - - - - - - - - - - g_fake.load w_equal å;Õ0,0;1,0;2,0;3,0æ
COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.011)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
exec stop testing PROG__unit_end i_equal 0