add some keywords
This commit is contained in:
parent
96e81584b6
commit
4973ce15bd
2 changed files with 18 additions and 1 deletions
|
@ -109,6 +109,16 @@ tests = "lexer" :- [
|
|||
rejects' "1abc"
|
||||
],
|
||||
|
||||
"keywords" :- [
|
||||
acceptsWith' "fun" [K Fun],
|
||||
acceptsWith' "λ" [K Fun],
|
||||
acceptsWith' "let" [K Let],
|
||||
acceptsWith' "in" [K In],
|
||||
acceptsWith' "case" [K Case],
|
||||
acceptsWith' "of" [K Of],
|
||||
acceptsWith' "funk" [Name "funk"]
|
||||
],
|
||||
|
||||
"numbers" :- [
|
||||
acceptsWith' "0" [N Zero],
|
||||
acceptsWith' "1" [N One],
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue