tests/private/compiler.ss
#lang scheme
(require (planet schematics/schemeunit:3)
         (for-template "../../eval.ss")
         "../../parse.ss"
         "../../private/compiler.ss")

(provide compiler-tests)

(define s1
  (parse-statement
   (open-input-string
    "parent(john,douglas).")))
  
(define compiler-tests
  (test-suite
   "compiler"
   
   (test-equal? "stmt"
                (syntax->datum (compile-stmt s1))
                `(eval-statement ,s1))
   (test-equal? "module"
                (syntax->datum (compile-module (list s1)))
                `(begin (eval-statement ,s1)))))