Skip to content

Commit e74f4d0

Browse files
b4nnyamatongwe
b4n
authored and
nyamatongwe
committed
#343 Tests: Perl: Update keywords with current SciTE's
This will be useful for an upcoming test.
1 parent 0ffa2ad commit e74f4d0

File tree

4 files changed

+39
-36
lines changed

4 files changed

+39
-36
lines changed

‎test/examples/perl/SciTE.properties‎

Lines changed: 31 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -1,33 +1,36 @@
11
lexer.*.pl=perl
22
keywords.*.pl=\
3-
NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD \
4-
BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept \
5-
alarm and atan2 bind binmode bless caller chdir chmod chomp chop \
6-
chown chr chroot close closedir cmp connect continue cos crypt \
7-
dbmclose dbmopen defined delete die do dump each else elsif endgrent \
8-
endhostent endnetent endprotoent endpwent endservent eof eq eval \
9-
exec exists exit exp fcntl fileno flock for foreach fork format \
10-
formline ge getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname \
11-
gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername \
12-
getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent \
13-
getpwent getpwnam getpwuid getservbyname getservbyport getservent \
14-
getsockname getsockopt glob gmtime goto grep gt hex if index \
15-
int ioctl join keys kill last lc lcfirst le length link listen \
16-
local localtime lock log lstat lt map mkdir msgctl msgget msgrcv \
17-
msgsnd my ne next no not oct open opendir or ord our pack package \
18-
pipe pop pos print printf prototype push quotemeta qu \
19-
rand read readdir readline readlink readpipe recv redo \
20-
ref rename require reset return reverse rewinddir rindex rmdir \
21-
scalar seek seekdir select semctl semget semop send setgrent \
22-
sethostent setnetent setpgrp setpriority setprotoent setpwent \
23-
setservent setsockopt shift shmctl shmget shmread shmwrite shutdown \
24-
sin sleep socket socketpair sort splice split sprintf sqrt srand \
25-
stat study sub substr symlink syscall sysopen sysread sysseek \
26-
system syswrite tell telldir tie tied time times truncate \
27-
uc ucfirst umask undef unless unlink unpack unshift untie until \
28-
use utime values vec wait waitpid wantarray warn while write \
29-
xor \
30-
given when default break say state UNITCHECK __SUB__ fc
3+
ADJUST AUTOLOAD BEGIN CHECK CORE DESTROY END EQ GE GT INIT LE LT NE NULL \
4+
UNITCHECK __CLASS__ __DATA__ __END__ __FILE__ __LINE__ __PACKAGE__ \
5+
__SUB__ abs accept alarm all and any atan2 attributes autodie autouse \
6+
base bigfloat bigint bignum bigrat bind binmode bless blib break builtin \
7+
bytes caller catch charnames chdir chmod chomp chop chown chr chroot \
8+
class close closedir cmp connect constant continue cos crypt dbmclose \
9+
dbmopen default defer defined delete deprecate diagnostics die do dump \
10+
each else elseif elsif encoding endgrent endhostent endnetent \
11+
endprotoent endpwent endservent eof eq eval evalbytes exec exists exit \
12+
exp experimental fc fcntl feature field fields fileno filetest finally \
13+
flock for foreach fork format formline ge getc getgrent getgrgid \
14+
getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr \
15+
getnetbyname getnetent getpeername getpgrp getppid getpriority \
16+
getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid \
17+
getservbyname getservbyport getservent getsockname getsockopt given glob \
18+
gmtime goto grep gt hex if import index int integer ioctl isa join keys \
19+
kill last lc lcfirst le length less lib link listen local locale \
20+
localtime lock log lstat lt map meta_notation method mkdir mro msgctl \
21+
msgget msgrcv msgsnd my ne next no not oct ok open opendir ops or ord \
22+
our overload overloading pack package parent perlfaq pipe pop pos print \
23+
printf prototype push qu quotemeta rand re read readdir readline \
24+
readlink readpipe recv redo ref rename require reset return reverse \
25+
rewinddir rindex rmdir say scalar seek seekdir select semctl semget \
26+
semop send setgrent sethostent setnetent setpgrp setpriority setprotoent \
27+
setpwent setservent setsockopt shift shmctl shmget shmread shmwrite \
28+
shutdown sigtrap sin size sleep socket socketpair sort splice split \
29+
sprintf sqrt srand stable stat state strict study sub subs substr \
30+
symlink syscall sysopen sysread sysseek system syswrite tell telldir \
31+
threads tie tied time times truncate try uc ucfirst umask undef unless \
32+
unlink unpack unshift untie until use utf8 utime values vars vec version \
33+
vmsish wait waitpid wantarray warn warnings when while write xor
3134

3235
fold=1
3336
fold.comment=1

‎test/examples/perl/perl-test-5220delta.pl.styled‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -19,8 +19,8 @@
1919
# New bitwise operators
2020
#--------------------------------------------------------------------------
2121
{0}
22-
{5}use{0} {11}feature{0} {7}'bitwise'{0} {2}# enable feature, warning enabled
23-
{5}use{0} {11}experimental{0} {6}"bitwise"{10};{0} {2}# enable feature, warning disabled
22+
{5}use{0} {5}feature{0} {7}'bitwise'{0} {2}# enable feature, warning enabled
23+
{5}use{0} {5}experimental{0} {6}"bitwise"{10};{0} {2}# enable feature, warning disabled
2424
{0}
2525
{2}# numerical operands
2626
{4}10{10}&{4}20{0} {4}10{10}|{4}20{0} {4}10{10}^{4}20{0} {10}~{4}10{0}
@@ -77,12 +77,12 @@
7777

7878
{2}# example snippet from brian d foy's blog post
7979
{0}
80-
{5}use{0} {11}feature{0} {30}qw(refaliasing){10};{0}
80+
{5}use{0} {5}feature{0} {30}qw(refaliasing){10};{0}
8181

8282
{10}\{14}%other_hash{0} {10}={0} {10}\{14}%hash{10};{0}
8383

8484
{5}use{0} {6}v5.22{10};{0}
85-
{5}use{0} {11}feature{0} {30}qw(refaliasing){10};{0}
85+
{5}use{0} {5}feature{0} {30}qw(refaliasing){10};{0}
8686

8787
{5}foreach{0} {10}\{5}my{0} {14}%hash{0} {10}({0} {13}@array_of_hashes{0} {10}){0} {10}{{0} {2}# named hash control variable
8888
{0} {5}foreach{0} {5}my{0} {12}$key{0} {10}({0} {5}keys{0} {14}%hash{0} {10}){0} {10}{{0} {2}# named hash now!
@@ -115,7 +115,7 @@
115115
{5}sub{0} {11}Y{10}::{11}bar{0} {10}:{0} {11}lvalue{0} {10};{0}
116116

117117
{2}# built-in attributes for subroutines:
118-
{11}lvalue{0} {11}method{0} {5}prototype{10}(..){0} {11}locked{0} {11}const{0}
118+
{11}lvalue{0} {5}method{0} {5}prototype{10}(..){0} {11}locked{0} {11}const{0}
119119

120120
{2}#--------------------------------------------------------------------------
121121
# Repetition in list assignment

‎test/examples/perl/perl-test-sub-prototypes.pl.styled‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,7 @@
130130
# notation which are highlighted as operators (all other parameters are
131131
# highlighted as vars of some sort), a minor aesthetic issue
132132
{0}
133-
{5}use{0} {11}feature{0} {7}'signatures'{10};{0}
133+
{5}use{0} {5}feature{0} {7}'signatures'{10};{0}
134134

135135
{5}sub{0} {11}foo{0} {10}({12}$left{10},{0} {12}$right{10}){0} {10}{{0} {2}# mandatory positional parameters
136136
{0} {5}return{0} {12}$left{0} {10}+{0} {12}$right{10};{0}
@@ -232,7 +232,7 @@
232232
{5}sub{0} {11}Y{10}::{11}bar{0} {10}:{0} {11}lvalue{0} {10};{0}
233233

234234
{2}# built-in attributes for subroutines:
235-
{11}lvalue{0} {11}method{0} {5}prototype{10}(..){0} {11}locked{0} {11}const{0}
235+
{11}lvalue{0} {5}method{0} {5}prototype{10}(..){0} {11}locked{0} {11}const{0}
236236

237237
{2}#--------------------------------------------------------------------------
238238
# end of test file

‎test/examples/perl/x.pl.styled‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
{5}use{0} {11}strict{10};{0}
1+
{5}use{0} {5}strict{10};{0}
22
{5}while{0} {10}({0} {12}$r{0} {10}){0} {10}{{0}
33
{5}printf{0} {10}({0} {6}"Example text \n"{0} {10});{0}
44
{5}sleep{0} {4}1{10};{0}

0 commit comments

Comments
 (0)