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
|
#import "Basic";
#import "String";
#import "UTF8";
main :: () {
write_strings(
"#=======================#\n",
"# Basic tests #\n"
);
tmp_str: string;
tmp_bool: bool;
tmp_int: int;
assert(is_continuation_byte("0€1"[0]) == false);
assert(is_continuation_byte("0€1"[1]) == false);
assert(is_continuation_byte("0€1"[2]) == true);
assert(is_continuation_byte("0€1"[3]) == true);
assert(is_continuation_byte("0€1"[4]) == false);
write_strings("# count_character_bytes #\n");
assert(count_character_bytes("0£€𐍈1"[0]) == 1);
assert(count_character_bytes("0£€𐍈1"[1]) == 2);
assert(count_character_bytes("0£€𐍈1"[2]) == 1);
assert(count_character_bytes("0£€𐍈1"[3]) == 3);
assert(count_character_bytes("0£€𐍈1"[4]) == 1);
assert(count_character_bytes("0£€𐍈1"[5]) == 1);
assert(count_character_bytes("0£€𐍈1"[6]) == 4);
assert(count_character_bytes("0£€𐍈1"[7]) == 1);
assert(count_character_bytes("0£€𐍈1"[8]) == 1);
assert(count_character_bytes("0£€𐍈1"[9]) == 1);
assert(count_character_bytes("0£€𐍈1"[10]) == 1);
write_strings("# truncate #\n");
assert(compare(truncate("0£€𐍈1", 0), "") == 0);
assert(compare(truncate("0£€𐍈1", 1), "0") == 0);
assert(compare(truncate("0£€𐍈1", 2), "0") == 0);
assert(compare(truncate("0£€𐍈1", 3), "0£") == 0);
assert(compare(truncate("0£€𐍈1", 4), "0£") == 0);
assert(compare(truncate("0£€𐍈1", 5), "0£") == 0);
assert(compare(truncate("0£€𐍈1", 6), "0£€") == 0);
assert(compare(truncate("0£€𐍈1", 7), "0£€") == 0);
assert(compare(truncate("0£€𐍈1", 8), "0£€") == 0);
assert(compare(truncate("0£€𐍈1", 9), "0£€") == 0);
assert(compare(truncate("0£€𐍈1", 10), "0£€𐍈") == 0);
assert(compare(truncate("0£€𐍈1", 11), "0£€𐍈1") == 0);
assert(compare(truncate("0£€𐍈1", 12), "0£€𐍈1") == 0);
write_strings("# is_empty #\n");
assert(is_empty(""));
assert(is_empty("\0"));
assert(is_empty("\0\t"));
assert(is_empty("\0\t\n"));
assert(is_empty("\0\t\n\x0B"));
assert(is_empty("\0\t\n\x0B\x0C"));
assert(is_empty("\0\t\n\x0B\x0C\r"));
assert(is_empty("\0\t\n\x0B\x0C\r "));
assert(is_empty("\0\t\n\x0B\x0C\r .") == false);
assert(is_empty("| B A Z € N G A |") == false);
write_strings("# delete_character #\n");
tmp_str = copy_string("",, temporary_allocator);
assert(delete_character(*tmp_str, 0) == false);
tmp_str = copy_string("12£45€78𐍈",, temporary_allocator);
assert(delete_character(*tmp_str, -1) == false);
assert(delete_character(*tmp_str, 99999) == false);
assert(delete_character(*tmp_str, 7) == true);
assert(compare(tmp_str, "12£45€7𐍈") == 0);
assert(delete_character(*tmp_str, 2) == true);
assert(compare(tmp_str, "1245€7𐍈") == 0);
assert(delete_character(*tmp_str, 4) == true);
assert(compare(tmp_str, "12457𐍈") == 0);
assert(delete_character(*tmp_str, 3) == true);
assert(compare(tmp_str, "1247𐍈") == 0);
write_strings("# get_byte_index #\n");
tmp_str = copy_string("12£45€78𐍈X",, temporary_allocator);
tmp_int, tmp_bool = get_byte_index("", 0);
assert(tmp_int == -1 && tmp_bool == false, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, -1);
assert(tmp_int == -1 && tmp_bool == false, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, -99999);
assert(tmp_int == -1 && tmp_bool == false, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 99999);
assert(tmp_int == -1 && tmp_bool == false, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 0);
assert(tmp_int == 0 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 1);
assert(tmp_int == 1 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 2);
assert(tmp_int == 2 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 3);
assert(tmp_int == 4 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 4);
assert(tmp_int == 5 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 5);
assert(tmp_int == 6 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 6);
assert(tmp_int == 9 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 7);
assert(tmp_int == 10 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 8);
assert(tmp_int == 11 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
tmp_int, tmp_bool = get_byte_index(tmp_str, 9);
assert(tmp_int == 15 && tmp_bool == true, "(%, %)", tmp_int, tmp_bool);
write_strings("# count_characters #\n");
assert(count_characters("") == 0);
assert(count_characters("0") == 1);
assert(count_characters("0£") == 2);
assert(count_characters("0£€") == 3);
assert(count_characters("0£€𐍈") == 4);
assert(count_characters("0£€𐍈1") == 5);
tmp_str = copy_string("123€DELETE",, temporary_allocator);
tmp_str[6] = 0;
assert(count_characters(tmp_str) == 10);
assert(count_characters(tmp_str, true) == 4);
write_strings("# is_valid #\n");
assert(is_valid(""));
tmp_str = copy_string("123€DELETE",, temporary_allocator);
tmp_str[6] = 0;
tmp_bool, tmp_int = is_valid(tmp_str);
assert(tmp_bool == true && tmp_int == -1, "(%, %)", tmp_bool, tmp_int);
tmp_str = copy_string("123€DELETE",, temporary_allocator);
tmp_str[3] = 0; // Cut € at start.
tmp_bool, tmp_int = is_valid(tmp_str);
assert(tmp_bool == false && tmp_int == 4, "(%, %)", tmp_bool, tmp_int);
tmp_str = copy_string("123€DELETE",, temporary_allocator);
tmp_str[4] = 0; // Cut € at middle.
tmp_bool, tmp_int = is_valid(tmp_str);
assert(tmp_bool == false && tmp_int == 4, "(%, %)", tmp_bool, tmp_int);
tmp_str = copy_string("123€DELETE",, temporary_allocator);
tmp_str[5] = 0; // Cut € at end.
tmp_bool, tmp_int = is_valid(tmp_str);
assert(tmp_bool == false && tmp_int == 5, "(%, %)", tmp_bool, tmp_int);
write_strings(" No errors found.\n");
}
|
