FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
livecode-ide/tests/scripteditor/indentation.livecodescript at develop · livecode/livecode-ide · GitHub
Uh oh!
There was an error while loading.
Please reload this page
.
This repository was archived by the owner on Aug 31, 2021. It is now read-only.
livecode
/
livecode-ide
Public archive
Notifications
You must be signed in to change notification settings
Fork
71
Star
35
Code
Issues
28
Pull requests
42
Actions
Security and quality
0
Insights
Additional navigation options
Code
Issues
Pull requests
Actions
Security and quality
Insights
Expand file tree
Breadcrumbs
livecode-ide
/
tests
/
scripteditor
/
indentation.livecodescript
Copy path
More file actions
More file actions
Latest commit
History
History
History
68 lines (58 loc) · 2.33 KB
Breadcrumbs
livecode-ide
/
tests
/
scripteditor
/
indentation.livecodescript
Copy path
File metadata and controls
68 lines (58 loc) · 2.33 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
script
"ScriptEditorIndentation"
/*
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
sStack
on
TestSetup
local
tBehavior
put
TestGetIDERepositoryPath()
&
"/Toolset/palettes/script editor/behaviors/revsecommoneditorbehavior.livecodescript"
into
tBehavior
put
the
name
of
stack
tBehavior
into
sStack
end
TestSetup
on
TestIndents
set
the
itemDelimiter
to
slash
local
tPath
put
item
1
to
-
2
of
the
effective
filename
of
me
&
"/_indentation_tests"
into
tPath
set
the
itemDelimiter
to
"."
repeat
for
each
line
tFile
in
files
(
tPath
)
if
tFile
begins with
"."
then
next
repeat
end if
local
tScript
put
textDecode
(url (
"binfile:"
&
tPath
&
"/"
&
tFile
),
"UTF8"
)
into
tScript
--
normalise the snippet
if
the
last
char
of
tScript
is not
return
then
put
return
after
tScript
end if
replace
tab
with
" "
in
tScript
--
strip leading whitespace
local
tUnindented
put
replaceText
(
tScript
,
"\n +"
, return)
into
tUnindented
put
replaceText
(
tUnindented
,
"^ +"
,
""
)
into
tUnindented
dispatch
"scriptFormatSnippet"
to
sStack
with
tUnindented
local
tResult
put
the
result
into
tResult
if
the
last
char
of
tResult
is not
return
then
put
return
after
tResult
end if
TestAssert
"script snippet indented correctly:"
&&
item
1
of
tFile
,
tResult
is
tScript
if
tResult
is not
tScript
then
repeat
with
tIndex
=
1
to
the
number
of
lines
of
tResult
if
line
tIndex
of
tResult
is not
line
tIndex
of
tScript
then
put
"* "
before
line
tIndex
of
tResult
else
put
" "
before
line
tIndex
of
tResult
end if
end repeat
TestDiagnostic
tResult
end if
end repeat
end
TestIndents
Back
|
FazBrowse Home
|
New Git URL