forked from livecode/livecode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcodeunitoffset.livecodescript
More file actions
37 lines (28 loc) · 1.84 KB
/
Copy pathcodeunitoffset.livecodescript
File metadata and controls
37 lines (28 loc) · 1.84 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
script "CoreStringCodeunitOffset"
/*
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 TestCodeunitOffsetSingleUnicodeChar
local tNativeNeedle, tUnicodeNeedle, tNativeHaystack, tUnicodeHaystack
put "B" into tNativeNeedle
put numToCodepoint(0x391) into tUnicodeNeedle
put "aAbBcC" into tNativeHaystack
put "aAbBcC" & numToCodepoint(0x3B1) & numToCodepoint(0x391) into tUnicodeHaystack
set the caseSensitive to true
TestAssert "codeunit offset of native needle in unicode string - case-sensitive", codeunitOffset(tNativeNeedle, tUnicodeHaystack) is 4
TestAssert "codeunit offset of unicode needle in unicode string - case-sensitive", codeunitOffset(tUnicodeNeedle, tUnicodeHaystack) is 8
TestAssert "codeunit offset of native needle in native string - case-sensitive", codeunitOffset(tNativeNeedle, tNativeHaystack) is 4
set the caseSensitive to false
TestAssert "codeunit offset of native needle in unicode string - caseless", codeunitOffset(tNativeNeedle, tUnicodeHaystack) is 3
TestAssert "codeunit offset of unicode needle in unicode string - caseless", codeunitOffset(tUnicodeNeedle, tUnicodeHaystack) is 7
TestAssert "codeunit offset of native needle in native string - caseless", codeunitOffset(tNativeNeedle, tNativeHaystack) is 3
end TestCodeunitOffsetSingleUnicodeChar