forked from livecode/livecode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathmessage-box.livecodescript
More file actions
63 lines (53 loc) · 2.03 KB
/
Copy pathmessage-box.livecodescript
File metadata and controls
63 lines (53 loc) · 2.03 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
script "CoreEngineMessageBox"
/*
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/>. */
local sTarget, sHandler, sLine, sMsg
on TestSetup
-- On server, the msg variable isn't used. All
-- put <expr> [(before | after) msg] statements are directed to
-- stdout
TestSkipIf "environment", "server"
end TestSetup
on TestMessageBox
local tPutIntoLine, tPutBeforeLine, tPutAfterLine, tScript
put the script of me into tScript
put lineOffset("put" && quote & "bar" & quote, tScript) into \
tPutIntoLine
put lineOffset("put" && quote & "foo" & quote && "before msg", \
tScript) into tPutBeforeLine
put lineOffset("put" && quote & "baz" & quote && "after msg", \
tScript) into tPutAfterLine
put "bar"
__CheckMessage "Put into", "bar", tPutIntoLine
put "foo" before msg
__CheckMessage "Put before", "foobar", tPutBeforeLine
put "baz" after msg
__CheckMessage "Put after", "foobarbaz", tPutAfterLine
end TestMessageBox
on msgChanged pHandler, pLine
put the long id of the target into sTarget
put pHandler into sHandler
put pLine into sLine
put msg into sMsg
end msgChanged
on __CheckMessage pTest, pMsg, pLine
TestDiagnostic "target:" && sTarget
TestAssert pTest && "target is correct", sTarget is the long id of me
TestAssert pTest && "handler is correct", sHandler is "TestMessageBox"
TestAssert pTest && "line is correct", sLine is pLine
TestAssert pTest && "msg is correct", sMsg is pMsg
put empty into sTarget
put empty into sHandler
put empty into sLine
put empty into sMsg
end __CheckMessage