aboutsummaryrefslogtreecommitdiff
path: root/test/runner.scm
diff options
context:
space:
mode:
authorPjotr Prins2023-08-19 12:27:34 +0200
committerPjotr Prins2023-08-19 12:27:34 +0200
commitdcc41148727ec5f68fbeb0504a295981728327a1 (patch)
tree67982ada1c32c7f17421f178b41745b050d32e4e /test/runner.scm
parentafd3d25530401569a5953dc1c411f43a56ebd02c (diff)
downloadgn-guile-dcc41148727ec5f68fbeb0504a295981728327a1.tar.gz
Adding test infrastructure and reorganizing modules
Diffstat (limited to 'test/runner.scm')
-rw-r--r--test/runner.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/test/runner.scm b/test/runner.scm
index 0123d9a..45f2b0c 100644
--- a/test/runner.scm
+++ b/test/runner.scm
@@ -10,7 +10,13 @@
(test-begin "runner")
-(test-assert "Make sure species-meta contains a link to tomato"
+(test-assert "species-meta is expected contain a link to tomato"
(assoc "tomato" (cdr (assoc "links" (get-species-meta)))))
+(test-assert "tomato-meta should have a document link"
+ (assoc "doc" (get-expanded-taxon-meta "tomato")))
+
+(test-equal "tomato-data should have a description"
+ (assoc-ref (get-expanded-taxon-data "tomato") "description") "type of plant species with edible, often red, berry fruit")
+
(test-end "runner")