;; To run the tests: ;; ;; (require (planet "tests/grammar-tests.ss" ("dvanhorn" "grammar.plt" 1 2)) ;; (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