ralsina/tartrazine
1
0
Fork 0
mirror of https://github.com/ralsina/tartrazine.git synced 2025-06-19 06:33:06 -03:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Reorganize tests into a real spec suite

Browse Source
This commit is contained in:
Roberto Alsina
2024-08-04 19:18:43 -03:00
parent 57c160173c
commit e7c2053222
693 changed files with 136 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

131
spec/tests/tcl/test_comma_and_at.txt Normal file
View File

@ -0,0 +1,131 @@
---input---
# Alt and arrow keys to scroll
set scroll_amount 2
bind Text <Alt-Up> {
%W yview scroll -$scroll_amount units
%W mark set insert @0,[expr [winfo height %W] / 2]
}
bind Text <Alt-Down> {
%W yview scroll $scroll_amount units
%W mark set insert @0,[expr [winfo height %W] / 2]
}
---tokens---
'#' Comment
' Alt and arrow keys to scroll\n' Comment
'set' Keyword
' ' Text.Whitespace
'scroll_amount' Text
' ' Text.Whitespace
'2' Literal.Number.Integer
'\n' Text
'bind' Name.Variable
' ' Text.Whitespace
'Text' Text
' ' Text.Whitespace
'<' Operator
'Alt-Up' Text
'>' Operator
' ' Text.Whitespace
'{' Keyword
'\n ' Text.Whitespace
'%' Operator
'W' Name.Variable
' ' Text.Whitespace
'yview' Text
' ' Text.Whitespace
'scroll' Text
' ' Text.Whitespace
'-' Operator
'$scroll_amount' Name.Variable
' ' Text.Whitespace
'units' Text
'\n' Text
' ' Text.Whitespace
'%' Operator
'W' Name.Variable
' ' Text.Whitespace
'mark' Text
' ' Text.Whitespace
'set' Text
' ' Text.Whitespace
'insert' Text
' ' Text.Whitespace
'@0,' Text
'[' Keyword
'expr' Keyword
' ' Text.Whitespace
'[' Keyword
'winfo' Name.Variable
' ' Text.Whitespace
'height' Text
' ' Text.Whitespace
'%' Operator
'W' Text
']' Keyword
' ' Text.Whitespace
'/' Operator
' ' Text.Whitespace
'2' Literal.Number.Integer
']' Keyword
'\n' Text
'}' Keyword
'\n' Text
'bind' Name.Variable
' ' Text.Whitespace
'Text' Text
' ' Text.Whitespace
'<' Operator
'Alt-Down' Text
'>' Operator
' ' Text.Whitespace
'{' Keyword
'\n ' Text.Whitespace
'%' Operator
'W' Name.Variable
' ' Text.Whitespace
'yview' Text
' ' Text.Whitespace
'scroll' Text
' ' Text.Whitespace
'$scroll_amount' Name.Variable
' ' Text.Whitespace
'units' Text
'\n' Text
' ' Text.Whitespace
'%' Operator
'W' Name.Variable
' ' Text.Whitespace
'mark' Text
' ' Text.Whitespace
'set' Text
' ' Text.Whitespace
'insert' Text
' ' Text.Whitespace
'@0,' Text
'[' Keyword
'expr' Keyword
' ' Text.Whitespace
'[' Keyword
'winfo' Name.Variable
' ' Text.Whitespace
'height' Text
' ' Text.Whitespace
'%' Operator
'W' Text
']' Keyword
' ' Text.Whitespace
'/' Operator
' ' Text.Whitespace
'2' Literal.Number.Integer
']' Keyword
'\n' Text
'}' Keyword
'\n' Text

17
spec/tests/tcl/test_vars.txt Normal file
View File

@ -0,0 +1,17 @@
---input---
set size 10; puts ${size}x${size}
---tokens---
'set' Keyword
' ' Text.Whitespace
'size' Text
' ' Text.Whitespace
'10' Literal.Number.Integer
';' Keyword
' ' Text.Whitespace
'puts' Name.Builtin
' ' Text.Whitespace
'${size}' Name.Variable
'x' Text
'${size}' Name.Variable
'\n' Text