-
Notifications
You must be signed in to change notification settings - Fork 14
/
Copy pathunicodable.t
executable file
·265 lines (205 loc) · 10.9 KB
/
unicodable.t
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
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
#!/usr/bin/env perl6
BEGIN %*ENV<PERL6_TEST_DIE_ON_FAIL> = 1;
%*ENV<TESTABLE> = 1;
use lib <lib xt/lib>;
use Test;
use IRC::Client;
use Testable;
my $t = Testable.new: bot => ‘Unicodable’;
$t.common-tests: help => ‘Just type any Unicode character or part of a character name.’
~ ‘ Alternatively, you can also provide a code snippet.’;
$t.shortcut-tests: <u: u6: uni: uni6: propdump: propdump, unidump: unidump,>,
<u u, u6 u6, uni uni, uni6 uni6, propdump unidump>;
# Basics
$t.test(‘basic “nick:” query’,
“{$t.bot-nick}: 🦋”,
“{$t.our-nick}, U+1F98B BUTTERFLY [So] (🦋)”);
$t.test(‘basic “nick,” query’,
“{$t.bot-nick}, 🍋”,
“{$t.our-nick}, U+1F34B LEMON [So] (🍋)”);
$t.test(‘“u:” shortcut’,
‘u: ⮟’,
“{$t.our-nick}, U+2B9F BLACK DOWNWARDS EQUILATERAL ARROWHEAD [So] (⮟)”);
$t.test(‘Two symbols’,
‘u: ⢯🁿’,
“{$t.our-nick}, U+28AF BRAILLE PATTERN DOTS-123468 [So] (⢯)”,
“{$t.our-nick}, U+1F07F DOMINO TILE VERTICAL-04-00 [So] (🁿)”);
$t.test(‘Three symbols’,
‘u: ⇲ ⮬’,
“{$t.our-nick}, U+21F2 SOUTH EAST ARROW TO CORNER [So] (⇲)”,
“{$t.our-nick}, U+0020 SPACE [Zs] ( )”,
“{$t.our-nick}, U+2BAC BLACK CURVED LEFTWARDS AND UPWARDS ARROW [So] (⮬)”);
$t.test(‘More than three uploaded (with preview)’,
‘u: ㈰🁍⩟⏛℧’,
“{$t.our-nick}, U+3230 PARENTHESIZED IDEOGRAPH SUN [So] (㈰)”,
“{$t.our-nick}, U+1F04D DOMINO TILE HORIZONTAL-04-00 [So] (🁍)”,
“{$t.our-nick}, 5 characters in total (㈰🁍⩟⏛℧): https://whatever.able/fakeupload”);
$t.test(‘More than three uploaded (without preview)’,
‘u: Zs EM’,
“{$t.our-nick}, U+2001 EM QUAD [Zs] ( )”,
“{$t.our-nick}, U+2003 EM SPACE [Zs] ( )”,
“{$t.our-nick}, 6 characters in total: https://whatever.able/fakeupload”);
$t.test(‘Many characters to describe (with preview)’,
‘u: !Onyetenyevwe!’,
“{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”,
“{$t.our-nick}, U+004F LATIN CAPITAL LETTER O [Lu] (O)”,
“{$t.our-nick}, 14 characters in total (!Onyetenyevwe!): https://whatever.able/fakeupload”);
$t.test(‘Search by words’,
‘u: POO PILE’,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”);
$t.test(‘Search by words’,
‘u: PILE POO ’,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”);
$t.test(‘Search by general property and words’,
‘u: Nd two BoL -’,
“{$t.our-nick}, U+1D7EE MATHEMATICAL SANS-SERIF BOLD DIGIT TWO [Nd] (𝟮)”);
$t.test(‘Search by word (numeric)’,
‘u: 125678’,
“{$t.our-nick}, U+28F3 BRAILLE PATTERN DOTS-125678 [So] (⣳)”);
$t.test(‘Search by codepoint number’,
‘u: Ü+1F40D u±1f40F 𝟎ẍ1F40B’,
“{$t.our-nick}, U+1F40D SNAKE [So] (🐍)”,
“{$t.our-nick}, U+1F40F RAM [So] (🐏)”,
“{$t.our-nick}, U+1F40B WHALE [So] (🐋)”);
# https://github.com/Raku/whateverable/issues/234
$t.test(｢\U lookup by code｣,
“{$t.bot-nick}: \\U0010ffff”,
/^ <me($t)>‘, U+10FFFF <noncharacter-10FFFF> [Cn] ()’ $/);
$t.test(｢\U lookup by code｣,
“{$t.bot-nick}: \\U2665”,
/^ <me($t)>‘, U+2665 BLACK HEART SUIT [So] (♥)’ $/);
$t.test(‘Search using the code block’,
‘u: { .uniname.uc eq ‘BUTTERFLY’ }’,
“{$t.our-nick}, U+1F98B BUTTERFLY [So] (🦋)”);
$t.test(‘Found nothing!’,
‘u: sohurbkuraoehu’,
“{$t.our-nick}, Found nothing!”);
$t.test(‘Some control characters’,
‘u: 0x0 0x7 0X7F’,
“{$t.our-nick}, U+0000 <control-0000> [Cc] (control character)”,
“{$t.our-nick}, U+0007 <control-0007> [Cc] (control character)”,
“{$t.our-nick}, U+007F <control-007F> [Cc] (control character)”);
$t.test(‘Some interesting ASCII characters’,
｢u: \"<｣,
$t.our-nick ~｢, U+005C REVERSE SOLIDUS [Po] (\)｣,
“{$t.our-nick}, U+0022 QUOTATION MARK [Po] (")”,
“{$t.our-nick}, U+003C LESS-THAN SIGN [Sm] (<)”);
$t.test(‘Combining characters’,
‘u: Xͫ⃝’,
“{$t.our-nick}, U+0058 LATIN CAPITAL LETTER X [Lu] (X)”,
“{$t.our-nick}, U+036B COMBINING LATIN SMALL LETTER M [Mn] (\c[NBSP]\x036B)”,
“{$t.our-nick}, U+20DD COMBINING ENCLOSING CIRCLE [Me] (\c[NBSP]\x20DD)”);
$t.test(‘Invalid characters’,
‘u: 0x11FFFF 0x99999999’,
“{$t.our-nick}, U+11FFFF <unassigned> [] (unencodable character)”,
“{$t.our-nick}, U+99999999 (invalid codepoint)”);
$t.test(‘Parens’,
‘u: ()’,
“{$t.our-nick}, U+0028 LEFT PARENTHESIS [Ps] (()”,
“{$t.our-nick}, U+0029 RIGHT PARENTHESIS [Pe] ())”);
# URLs
$t.test(‘fetching code from urls’,
‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test’,
“{$t.our-nick}, Successfully fetched the code from the provided URL”,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
“{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
$t.test(‘comment after a url’,
‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test # this is a comment’,
“{$t.our-nick}, Successfully fetched the code from the provided URL”,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
“{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
$t.test(‘comment after a url (without #)’,
‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test ← like this!’,
“{$t.our-nick}, Successfully fetched the code from the provided URL”,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
“{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
$t.test(‘wrong url’,
‘u: http://github.com/sntoheausnteoahuseoau’,
“{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (HTTP status line is 404 Not Found)”);
$t.test(‘wrong mime type’,
‘u: https://www.wikipedia.org/’,
“{$t.our-nick}, It looks like a URL, but mime type is ‘text/html’ while I was expecting something with ‘text/plain’ or ‘perl’ in it. I can only understand raw links, sorry.”);
$t.test(‘malformed link (failed to resolve)’,
‘u: https://perl6.or’,
/^ <me($t)>‘, It looks like a URL, but for some reason I cannot download it (Failed to resolve host name 'perl6.or' with family ’\w+‘. Error: 'Name or service not known')’ $/);
$t.test(‘malformed link (could not parse)’,
‘u: https://:P’,
“{$t.our-nick}, It looks like a URL, but for some reason I cannot download it (Could not parse URI: https://:P)”);
# Yoleaux replacement
$t.test(‘Answers on ‘.u’ when yoleaux is not around’,
‘.u ㊷’,
/^ <me($t)>‘, U+32B7 CIRCLED NUMBER FORTY TWO [No] (㊷)’ $/);
my $yoleaux = IRC::Client.new(:nick(‘yoleaux’)
:host<127.0.0.1> :port(%*ENV<TESTABLE_PORT>)
:channels<#whateverable_unicodable6>);
start $yoleaux.run;
sleep 1;
$t.test(‘Yoleaux is back, be silent’,
‘.u ㊸’);
$yoleaux.quit;
sleep 1;
$t.test(‘Answers on ‘.u’ when yoleaux is not around again’,
‘.u ㊹’,
/^ <me($t)>‘, U+32B9 CIRCLED NUMBER FORTY FOUR [No] (㊹)’ $/);
$t.test(‘Space character required after ‘.u’’,
‘.unau ululation’);
# Make sure queries starting with no-break space (or other spaces) are working correctly
$t.test(‘just one no-break space’,
‘u: ’,
“{$t.our-nick}, U+00A0 NO-BREAK SPACE [Zs] ( )”);
$t.test(‘just one no-break space (yoleaux-like query)’,
‘.u ’,
“{$t.our-nick}, U+00A0 NO-BREAK SPACE [Zs] ( )”);
#`〈 TODO our testing server seems to trim trailing spaces
$t.test(‘just one space’,
‘u: ’,
“{$t.our-nick}, U+0020 SPACE [Zs] ( )”);
$t.test(‘just one space (yoleaux-like query)’,
‘.u ’,
“{$t.our-nick}, U+0020 SPACE [Zs] ( )”);
〉
$t.test(‘no-break space and a word’,
‘u: ab’,
“{$t.our-nick}, U+00A0 NO-BREAK SPACE [Zs] ( )”,
“{$t.our-nick}, U+0061 LATIN SMALL LETTER A [Ll] (a)”,
“{$t.our-nick}, U+0062 LATIN SMALL LETTER B [Ll] (b)”);
$t.test(‘no-break space and a word (yoleaux-like query)’,
‘.u ab’,
“{$t.our-nick}, U+00A0 NO-BREAK SPACE [Zs] ( )”,
“{$t.our-nick}, U+0061 LATIN SMALL LETTER A [Ll] (a)”,
“{$t.our-nick}, U+0062 LATIN SMALL LETTER B [Ll] (b)”);
$t.test(‘spaces before urls are still ignored’,
‘u: https://gist.githubusercontent.com/AlexDaniel/1892f93da146cb6057e6f3ca38fb1e56/raw/3d007a9ec3782f756054a322e8710656e2e4e7c6/test’,
“{$t.our-nick}, Successfully fetched the code from the provided URL”,
“{$t.our-nick}, U+1F4A9 PILE OF POO [So] (💩)”,
“{$t.our-nick}, U+0021 EXCLAMATION MARK [Po] (!)”);
# Timeouts
$t.test(:!both, :31timeout, ‘timeout’,
‘u: { sleep 1 }’,
“{$t.our-nick}, «timed out after 30 seconds» «exit signal = SIGHUP (1)»”);
# Trailing whitespace
$t.test("Trailing whitespace is fixed",
'u: GREEK SMALL THETA ',
"{$t.our-nick}, U+03B8 GREEK SMALL LETTER THETA [Ll] (θ)");
# Gists
$t.test(‘refusing to gist too many lines’,
‘u: Lo’,
“{$t.our-nick}, U+00AA FEMININE ORDINAL INDICATOR [Lo] (ª)”,
“{$t.our-nick}, U+00BA MASCULINE ORDINAL INDICATOR [Lo] (º)”,
“{$t.our-nick}, Cowardly refusing to gist more than 5000 lines”);
# Extra tests
$t.test(‘last basic query, just in case’,
“{$t.bot-nick}: 🐵⨴𝈧”,
/^ <me($t)>‘, U+1F435 MONKEY FACE [So] (🐵)’ $/,
/^ <me($t)>‘, U+2A34 MULTIPLICATION SIGN IN LEFT HALF CIRCLE [Sm] (⨴)’ $/,
/^ <me($t)>‘, U+1D227 GREEK INSTRUMENTAL NOTATION SYMBOL-17 [So] (𝈧)’ $/);
$t.test('good MIME type',
'u: https://raw.githubusercontent.com/Raku/whateverable/master/xt/lib/Testable.pm6',
"{$t.our-nick}, Successfully fetched the code from the provided URL",
"{$t.our-nick}, U+0075 LATIN SMALL LETTER U [Ll] (u)",
"{$t.our-nick}, U+0073 LATIN SMALL LETTER S [Ll] (s)",
"{$t.our-nick}, Cowardly refusing to gist more than 5000 lines");
$t.last-test;
done-testing;
END $t.end;
# vim: expandtab shiftwidth=4 ft=perl6