(define
  lua-parse-tests
  (list
    (list "empty" "" (list (quote lua-block)))
    (list
      "int literal"
      "return 42"
      (list
        (quote lua-block)
        (list (quote lua-return) (list (list (quote lua-num) 42)))))
    (list
      "local"
      "local x = 1"
      (list
        (quote lua-block)
        (list
          (quote lua-local)
          (list "x")
          (list (list (quote lua-num) 1)))))
    (list
      "binop"
      "return 1 + 2"
      (list
        (quote lua-block)
        (list
          (quote lua-return)
          (list
            (list
              (quote lua-binop)
              "+"
              (list (quote lua-num) 1)
              (list (quote lua-num) 2))))))))