(import (scheme base)
        (scheme write)
        (lexer))

(define test
  (lambda (input want)
    (let ((got (tokenize input)))
      (unless (equal? got want)
        (display "test fail: input = ")
        (display input)
        (display "; want = ")
        (display want)
        (display "; got = ")
        (display got)
        (newline)))))

(test "Struct Enum" '(Struct Enum))
(test "this is identifier" '("this" "is" "identifier"))
(test "+ - = != :=" '(+ - = != :=))