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 pathparser.livecodescript
More file actions
56 lines (46 loc) · 1.8 KB
/
parser.livecodescript
File metadata and controls
56 lines (46 loc) · 1.8 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
script "TestLCSParser"
/*
Copyright (C) 2017 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/>. */
/* TODO 15/05/2017: Turn these tests into an LCS parser test when merging
up into develop branch */
private command __CompileCheck pMessage
local tCompileTest, tCompileResult
--checks to see if the message compiles
lock messages
create script only stack "compilationTest"
put "on compileTest" & return & pMessage & return \
& "end compileTest" into tCompileTest
set the script of stack "compilationTest" to tCompileTest
put the result into tCompileResult
delete stack "compilationTest"
unlock messages
repeat for each line tError in tCompileResult
if item 2 of tError is not 0 then
return tError
end if
end repeat
return empty
end __CompileCheck
on TestBug19688
__CompileCheck "get the width"
TestAssert "'get the <objprop>' parse error", the result is not empty
end TestBug19688
on TestBug20293
__CompileCheck format("get the last char to -4 of \"string\"")
TestAssert "'badrange parse error'", the result is not empty
end TestBug20293
on TestBug20269
__CompileCheck "dispatch" && quote & "something" & quote && "with"
TestAssert "dispatch command with 'with' and no params throws", \
the result is not empty
end TestBug20269