;; -*- compile-command: "guile -L . ss-gen-test.scm"; -*-
(use-modules (srfi srfi-64)
             (ss-gen))

(test-begin "harness")


(test-equal "default Noun is a list of non-terminals"
  '(Noun man ball woman table)
  (assoc 'Noun *grammer*))

(test-equal "default verb-phrase is a list of terminals"
  '(verb-phrase (Verb noun-phrase))
  (assoc 'verb-phrase *grammer*))

(test-equal "default Verb resolve to expected words"
  '(hit took saw liked)
  (rewrites 'Verb))

(test-assert "rewrites non-existent"
  (not (rewrites 'Item)))


(test-end "harness")