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
|
local utf8 = require("init")
utf8.config = {
debug = nil, --utf8:require("util").debug
}
utf8:init()
local cl = utf8:require("charclass.runtime.init")
local equals = require('test.util').equals
local assert = require('test.util').assert
local assert_equals = require('test.util').assert_equals
assert_equals(true, cl.new()
:with_codes(utf8.byte' ')
:invert()
:in_codes(utf8.byte' '))
assert_equals(false, cl.new()
:with_codes(utf8.byte' ')
:invert()
:test(utf8.byte' '))
assert_equals(false, cl.new()
:with_codes()
:with_ranges()
:with_classes('space')
:without_classes()
:with_subs()
:invert()
:test(utf8.byte(' ')))
assert_equals(true, cl.new()
:with_codes()
:with_ranges()
:with_classes()
:without_classes('space')
:with_subs()
:invert()
:test(utf8.byte(' ')))
assert_equals(false, cl.new()
:with_codes()
:with_ranges()
:with_classes()
:without_classes()
:with_subs(cl.new():with_classes('space'))
:invert()
:test(utf8.byte(' ')))
assert_equals(true, cl.new()
:with_codes()
:with_ranges()
:with_classes()
:without_classes()
:with_subs(cl.new():with_classes('space'):invert())
:invert()
:test(utf8.byte(' ')))
assert_equals(true, cl.new()
:with_codes()
:with_ranges()
:with_classes('punct', 'digit', 'space', 'cntrl')
:without_classes()
:with_subs()
:invert()
:test(utf8.byte'П')
)
assert_equals(true, cl.new()
:with_codes()
:with_ranges()
:with_classes('punct', 'digit', 'space', 'cntrl')
:without_classes()
:with_subs()
:invert()
:test(utf8.byte'и')
)
assert_equals(true, cl.new()
:with_codes()
:with_ranges()
:with_classes()
:without_classes('space')
:with_subs()
:test(utf8.byte'f')
)
assert_equals(false, cl.new()
:with_codes()
:with_ranges()
:with_classes()
:without_classes('space')
:with_subs()
:test(utf8.byte'\n')
)
assert_equals(false, cl.new()
:with_codes()
:with_ranges()
:with_classes('lower')
:without_classes()
:with_subs()
:invert()
:test(nil)
)
assert_equals(false, cl.new()
:with_codes()
:with_ranges()
:with_classes('lower')
:without_classes()
:with_subs()
:test(nil)
)
print "OK"
|
