rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

uh. fix Tests.Lexer

Browse source
This commit is contained in:
rhiannon morris 2023-03-17 21:51:28 +01:00
parent 8cf260ee2e
commit 1c53b63bdf
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/Tests/Lexer.idr
View file

@ -1,7 +1,7 @@
module Tests.Lexer module Tests.Lexer
import Quox.Name import Quox.Name
import Quox.Lexer import Quox.Parser.Lexer
import TAP import TAP
@ -66,7 +66,7 @@ tests = "lexer" :- [
lexes "δελτα" [Name "δελτα"], lexes "δελτα" [Name "δελτα"],
lexes "★★" [Name "★★"], lexes "★★" [Name "★★"],
lexes "Types" [Name "Types"], lexes "Types" [Name "Types"],
lexes "a.b.c.d.e" [Name $ MakeName [< "a","b","c","d"] "e"], lexes "a.b.c.d.e" [Name $ MakePName [< "a","b","c","d"] "e"],
lexes "normalïse" [Name "normalïse"], lexes "normalïse" [Name "normalïse"],
-- ↑ replace i + combining ¨ with precomposed ï -- ↑ replace i + combining ¨ with precomposed ï
lexes "map#" [Name "map#"], lexes "map#" [Name "map#"],
@ -85,16 +85,16 @@ tests = "lexer" :- [
lexes "***" [Name "***"], lexes "***" [Name "***"],
lexes "+**" [Name "+**"], lexes "+**" [Name "+**"],
lexes "+#" [Name "+#"], lexes "+#" [Name "+#"],
lexes "+.+.+" [Name $ MakeName [< "+", "+"] "+"], lexes "+.+.+" [Name $ MakePName [< "+", "+"] "+"],
lexes "a.+" [Name $ MakeName [< "a"] "+"], lexes "a.+" [Name $ MakePName [< "a"] "+"],
lexes "+.a" [Name $ MakeName [< "+"] "a"], lexes "+.a" [Name $ MakePName [< "+"] "a"],
lexes "+a" [Name "+", Name "a"], lexes "+a" [Name "+", Name "a"],
lexes "x." [Name "x", Reserved "·"], lexes "x." [Name "x", Reserved "·"],
lexes "&." [Name "&", Reserved "·"], lexes "&." [Name "&", Reserved "·"],
lexes ".x" [Reserved "·", Name "x"], lexes ".x" [Reserved "·", Name "x"],
lexes "a.b.c." [Name $ MakeName [< "a", "b"] "c", Reserved "·"], lexes "a.b.c." [Name $ MakePName [< "a", "b"] "c", Reserved "·"],
lexes "case" [Reserved "case"], lexes "case" [Reserved "case"],
lexes "caseω" [Reserved "caseω"], lexes "caseω" [Reserved "caseω"],