diff options
Diffstat (limited to 'test/runner.scm')
| -rw-r--r-- | test/runner.scm | 6 |
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))))) |