-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgregg_dlist.unit
124 lines (118 loc) · 30.3 KB
/
gregg_dlist.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
#!/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 (DLIST) verify paginating dictionary 0s paginate DLIST_paginate ((02.---)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#
# COND initialize the testing environment - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.001)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec start testing PROG__unit_quiet i_equal 0
#
# COND verify empty database - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# code ... set words per page - - - - - - - - - - - - - my.w_ppage = 3;
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 0
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 0
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_null 0
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_null 0
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_null 0
# echo ... check page - - - - - - - - - - - - - g_pages [3] p_null 0
#
# COND add a word and variations - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
## exec call record parsing DICT__parse_easy 15, "teach § · § t·e·ch § v / · · · § ´) teaching § s) teaches § d) taught § r) teacher § b) teachable §" i_equal 0
## exec ... check number of words WORDS_eng_count i_equal 7
# echo ... check number of words - - - - - - - - - - - - - g_pages [0] p_null 0
#
# COND verify empty database - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 3
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 7
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal taught
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [1]->w_english s_equal teacher
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [2]->w_english s_equal teaching
# echo ... check page - - - - - - - - - - - - - g_pages [3] p_null 0
#
# COND verify re-run on higher per page - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# code ... set words per page - - - - - - - - - - - - - my.w_ppage = 5;
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 2
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 7
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal taught
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [1]->w_english s_equal teaches
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_null 0
# echo ... check page - - - - - - - - - - - - - g_pages [3] p_null 0
#
# COND add two more words and variations - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
## exec call record parsing DICT__parse_easy 15, "weak § · § u·e·k § · · · · · § ´) weakening § s) weakens § d) weakened § r) weakener § er) weaker § st) weakest § e) weakly § n) weakness § sh) weakish §" i_equal 0
## exec call record parsing DICT__parse_easy 15, "hope § · § h·o·p § · · · · · § ´) hoping § s) hopes § d) hoped § f) hopeful § n) hopefulness §" i_equal 0
## exec ... check number of words WORDS_eng_count i_equal 25
#
# COND verify paginate on the bigger sample - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 5
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 25
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal hope
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [1]->w_english s_equal hoping
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [2]->w_english s_equal teachers
# echo ... check page - - - - - - - - - - - - - g_pages [3] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [3]->w_english s_equal weakener
# echo ... check page - - - - - - - - - - - - - g_pages [4] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [4]->w_english s_equal weakest
# echo ... check page - - - - - - - - - - - - - g_pages [5] p_null 0
#
# COND verify re-run on lower per page and just for bases - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# code ... set words per page - - - - - - - - - - - - - my.w_ppage = 3;
# code ... set words per page - - - - - - - - - - - - - my.baseonly = 'y';
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 1
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 3
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal hope
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_null 0
#
# COND add two more words and variations - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
## exec call record parsing DICT__parse_easy 15, "draw § · § d·r·o § · · · · · § ´) drawing § s) draws § d) drew § n) drawn § r) drawer §" i_equal 0
## exec call record parsing DICT__parse_easy 15, "loan § · § l·o·n § · · · · · § ´) loaning § s) loans § b) loaned § r) loaner §" i_equal 0
## exec ... check number of words WORDS_eng_count i_equal 38
#
# COND verify re-run on new entries - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 2
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 5
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal draw
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [1]->w_english s_equal teach
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_null 0
#
# COND verify re-run on all entries - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((01.009)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# code ... set words per page - - - - - - - - - - - - - my.w_ppage = 10;
# code ... set words per page - - - - - - - - - - - - - my.baseonly = '-';
# exec call paginate DLIST_paginate i_equal 0
# echo ... number of pages - - - - - - - - - - - - - my.w_npage i_equal 4
# echo ... number of entries - - - - - - - - - - - - - my.w_entries i_equal 38
# echo ... check page - - - - - - - - - - - - - g_pages [0] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [0]->w_english s_equal draw
# echo ... check page - - - - - - - - - - - - - g_pages [1] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [1]->w_english s_equal hopefulness
# echo ... check page - - - - - - - - - - - - - g_pages [2] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [2]->w_english s_equal teach
# echo ... check page - - - - - - - - - - - - - g_pages [3] p_exists 0
# echo ... check the entry - - - - - - - - - - - - - g_pages [3]->w_english s_equal weakening
# echo ... check page - - - - - - - - - - - - - g_pages [4] p_null 0
#
#
#
# COND complete testing - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ((02.012)) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# exec stop testing PROG__unit_end i_equal 0