From e07c1aae40ce1f63922a02ed30504405800cecc4 Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 27 Jun 2024 01:25:16 -0600 Subject: Add ss-generator, a simple sentence generator --- ss-generator/ss-gen-test.scm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 ss-generator/ss-gen-test.scm (limited to 'ss-generator/ss-gen-test.scm') diff --git a/ss-generator/ss-gen-test.scm b/ss-generator/ss-gen-test.scm new file mode 100644 index 0000000..b550421 --- /dev/null +++ b/ss-generator/ss-gen-test.scm @@ -0,0 +1,24 @@ +;; -*- 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") -- cgit v1.2.3