diff options
Diffstat (limited to 't/parse.lisp')
| -rw-r--r-- | t/parse.lisp | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/t/parse.lisp b/t/parse.lisp index 2ab3e76..bd1310f 100644 --- a/t/parse.lisp +++ b/t/parse.lisp @@ -11,10 +11,16 @@ (test extract-label-not-a-label-one (let ((lst '("NICE" "TRY"))) - (is (equal lst - (parse:extract-label lst))))) + (is (equal lst + (parse:extract-label lst))))) (test extract-label-not-a-label-two (let ((lst '("LOOP" lex::colon lex::colon))) - (is (equal lst - (parse:extract-label lst))))) + (is (equal lst + (parse:extract-label lst))))) + +(test extract-line-invalid-type + (handler-case + (progn (parse:tokens->ast '(("foo" LEX::DOLLAR))) + (fail)) + (lex:parser-error ()))) |