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 223
Expand file tree
/
Copy pathgo.livecodescript
More file actions
119 lines (96 loc) · 3.02 KB
/
Copy pathgo.livecodescript
File metadata and controls
119 lines (96 loc) · 3.02 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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
script "CoreInterfaceGo"
/*
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 TestGoStackUnquotedName
-- unquoted literal chunk parsing exception for `go stack "stack foo"`
local tStackName
create stack "stackToGo"
put the short name of it into tStackName
local tToGo
put "stack stackToGo" into tToGo
try
go tToGo
catch tError
end try
TestAssert "unquoted literal chunk parsing exception for go stack", \
tError is empty
end TestGoStackUnquotedName
on TestGoCardUnquotedName
-- unquoted literal chunk parsing exception for `go "card foo of this stack"`
local tStackName
create stack
put the short name of it into tStackName
set the defaultStack to tStackName
create card "cardToGo"
local tToGo
put "card cardToGo of" && the long id of stack tStackName into tToGo
try
go tToGo
catch tError
end try
TestAssert "unquoted literal chunk parsing exception for go card", \
tError is empty
end TestGoCardUnquotedName
local sStackFileName
command _TestCreateStack pBinary
local tStack
put "stackToGo" into tStack
if pBinary then
create stack tStack
else
create script only stack tStack
end if
put the tempname into sStackFileName
save stack tStack as sStackFileName
delete stack tStack
return tStack for value
end _TestCreateStack
command _TestCleanupStack
delete file sStackFileName
end _TestCleanupStack
command _TestGoStackUrl pWhich
TestSkipIfNot "write"
local tStack
_TestCreateStack pWhich is "binary"
put it into tStack
go url ("file:" & sStackFileName)
TestDiagnostic the result
TestAssert "go" && pWhich && "stack url", there is a stack tStack
_TestCleanupStack
end _TestGoStackUrl
on TestGoBinaryStackUrl
_TestGoStackUrl "binary"
end TestGoBinaryStackUrl
on TestGoScriptOnlyStackUrl
_TestGoStackUrl "script only"
end TestGoScriptOnlyStackUrl
on TestGoTwice
create stack
lock screen
go it
go it
unlock screen
TestAssert "go stack twice does not cause crash", true
end TestGoTwice
on TestGoToCard
create stack
set the defaultstack to the short name of it
create card
set the script of this card to \
"on closeCard; set the cClosed of me to true; end closeCard"
set the script of card 1 to \
"on openCard; set the cOpened of me to true; end openCard"
go card 1
TestAssert "openCard sent to opened card", the cOpened of card 1
TestAssert "closeCard sent to closed card", the cClosed of card 2
end TestGoToCard