;; To run the tests:
;;
;;   (require (planet "tests/grammar-tests.ss" ("dvanhorn" "grammar.plt" 1 3))
;;            (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2 8)))
;;   (test/text-ui grammar-tests)

(module grammar-tests mzscheme
  (provide grammar-tests)
  (require "grammar-procedures-tests.ss"
           "grammar-examples-tests.ss")
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2 8)))
  
  (define grammar-tests 
    (apply test-suite 
           "grammar tests"
           (append 
            (schemeunit-test-suite-tests grammar-procedures-tests)
            (schemeunit-test-suite-tests grammar-examples-tests))))

  ) ; end of module grammar-tests