From 2a8ae48a36cc88105c9a4c056132c9a47e2f120a Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 27 Aug 2023 11:24:08 +0200
Subject: Shortnames

---
 test/runner.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'test/runner.scm')

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)))))
 
-- 
cgit v1.2.3