forked from livecode/livecode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathreplace.livecodescript
More file actions
59 lines (50 loc) · 2.01 KB
/
Copy pathreplace.livecodescript
File metadata and controls
59 lines (50 loc) · 2.01 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
script "CoreStringReplace"
/*
Copyright (C) 2016 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/>. */
on TestReplace
local tNeedle, tNewNeedle, tHaystack
put "é" into tNeedle
put "e" into tNewNeedle
put "héllo" into tHaystack
replace tNeedle with tNewNeedle in tHaystack
TestAssert "replace composed with base in composed", tHaystack is "hello"
put normalizeText("é", "NFD") into tNeedle
put "e" into tNewNeedle
put "héllo" into tHaystack
replace tNeedle with tNewNeedle in tHaystack
TestAssert "replace decomposed with base in composed", tHaystack is "hello"
put "é" into tNeedle
put "e" into tNewNeedle
put normalizeText("héllo", "NFD") into tHaystack
replace tNeedle with tNewNeedle in tHaystack
TestAssert "replace composed with base in decomposed", tHaystack is "hello"
put normalizeText("é", "NFD") into tNeedle
put "e" into tNewNeedle
put normalizeText("héllo", "NFD") into tHaystack
replace tNeedle with tNewNeedle in tHaystack
TestAssert "replace decomposed with base in decomposed", tHaystack is "hello"
end TestReplace
on TestReplace_Bug22536
try
local tPattern
put "и" into tPattern
put tPattern after tPattern
get the number of chars in tPattern
get textDecode("foobardsdadadasdasd", "native")
if true then
replace tPattern with empty in it
end if
catch tError
end try
TestAssert "replace never-native unciode in native string", tError is empty
end TestReplace_Bug22536