This repository was archived by the owner on Aug 31, 2021. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 227
Expand file tree
/
Copy pathstring.lcb
More file actions
88 lines (68 loc) · 2.32 KB
/
string.lcb
File metadata and controls
88 lines (68 loc) · 2.32 KB
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
/*
Copyright (C) 2015 LiveCode Ltd.
This file is part of LiveCode.
LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.
LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with LiveCode. If not see <http://www.gnu.org/licenses/>. */
module com.livecode.string.tests
use com.livecode.string
public handler TestPutBefore()
variable tString
put "y" into tString
put "x" before tString
test "put before" when tString is "xy"
end handler
public handler TestPutAfter()
variable tString
put "x" into tString
put "y" after tString
test "put after" when tString is "xy"
end handler
public handler TestReplace()
variable tString
put "x.x" into tString
replace "." with "x" in tString
test "replace (single instance)" when tString is "xxx"
put "..." into tString
replace "." with "x" in tString
test "replace (multiple instance)" when tString is "xxx"
put ".xx" into tString
replace ".x" with "x" in tString
test "replace (multichar)" when tString is "xx"
put ".xx" into tString
replace ".x" with "." in tString
test "replace (multichar non-recursing)" when tString is ".x"
end handler
public handler TestConcat()
test "concat" when "x" & "y" is "xy"
test "concat (space)" when "x" && "y" is "x y"
end handler
public handler TestUpper()
test "uppercase" when the upper of "xY" is "XY"
test diagnostic "TODO test some Unicode corner cases"
end handler
public handler TestLower()
test "lowercase" when the lower of "xY" is "xy"
test diagnostic "TODO test some Unicode corner cases"
end handler
public handler TestEquality()
test "equality" when "xy" is "xy"
test "equality (case sensitive)" when "xY" is not "xy"
test diagnostic "TODO case sensitivity options"
end handler
public handler TestCompare()
test "compare" when "X" < "y"
test "compare (case sensitive)" when "x" > "Y"
test "compare (empty)" when "" < "x"
end handler
public handler TestEmpty()
test "empty (syntax)" when "" is the empty string
test "empty (predicate)" when "" is empty
end handler
end module