aboutsummaryrefslogtreecommitdiff
path: root/test/runner.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test/runner.scm')
-rw-r--r--test/runner.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/test/runner.scm b/test/runner.scm
index 5555dc2..da42235 100644
--- a/test/runner.scm
+++ b/test/runner.scm
@@ -10,6 +10,12 @@
(test-begin "runner")
+(test-equal "species short names"
+ (get-species-shortnames (get-species)) #f)
+
+(test-equal "species binominal identifiers"
+ (get-species-binominal-names (get-species)) '("Solanum_lycopersicum" "Rattus_norvegicus" "Populus_trichocarpa" "Mus_musculus" "Hordeum_vulgare" "Homo_sapiens" "Glycine_max" "Arabidopsis_thaliana" "Oryzias_latipes" "Macaca_nemestrina" "Glossophaga_soricina" "Drosophila_melanogaster"))
+
(test-assert "species-meta is expected contain a link to tomato"
(assoc "tomato" (cdr (assoc "links" (get-species-meta)))))