unit-tests/test/script/lexer/first-token.test


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

# file      : unit-tests/test/script/lexer/first-token.test
# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd
# license   : MIT; see accompanying LICENSE file

# Note: this mode auto-expires after each token.
#
test.arguments = first-token

: dot
:
$* <"." >>EOO
.
<newline>
EOO

: semi
:
$* <";" >>EOO
;
<newline>
EOO

: colon
:
$* <":" >>EOO
:
<newline>
EOO

: lcbrace
:
$* <"{" >>EOO
{
<newline>
EOO

: rcbrace
:
$* <"}" >>EOO
}
<newline>
EOO

: setup
:
$* <"+foo" >>EOO
+
'foo'
<newline>
EOO

: tdown
:
$* <"- foo" >>EOO
-
'foo'
<newline>
EOO

: plus-leading
:
$* <"foo+bar" >>EOO
'foo+bar'
<newline>
EOO

: minus-leading
:
$* <"foo- x" >>EOO
'foo-'
'x'
<newline>
EOO

: assign
:
$* <"foo=" >>EOO
'foo'
'='
<newline>
EOO

: append
:
$* <"foo+=" >>EOO
'foo'
'+='
<newline>
EOO

: prepend
:
$* <"foo=+" >>EOO
'foo'
'=+'
<newline>
EOO