forked from livecode/livecode
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathdashes.livecodescript
More file actions
46 lines (37 loc) · 1.48 KB
/
Copy pathdashes.livecodescript
File metadata and controls
46 lines (37 loc) · 1.48 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
script "CoreGraphicsDashes"
/*
Copyright (C) 2015 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 TestEmptyInTheBeginning
local tDashes
create graphic "myGraphic"
set the dashes of graphic "myGraphic" to empty,10,20,30
put the dashes of graphic "myGraphic" into tDashes
TestAssert "empty dashes in the beginning", tDashes is "0,10,20,30"
delete graphic "myGraphic"
end TestEmptyInTheBeginning
on TestEmptyInTheMiddle
local tDashes
create graphic "myGraphic"
set the dashes of graphic "myGraphic" to 10,empty,20,30
put the dashes of graphic "myGraphic" into tDashes
TestAssert "empty dashes in the middle", tDashes is "10,0,20,30"
delete graphic "myGraphic"
end TestEmptyInTheMiddle
on TestEmptyInTheEnd
local tDashes
create graphic "myGraphic"
set the dashes of graphic "myGraphic" to 10,20,empty
put the dashes of graphic "myGraphic" into tDashes
TestAssert "empty dashes in the end", tDashes is "10,20"
delete graphic "myGraphic"
end TestEmptyInTheEnd