diff options
| author | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
| commit | 2a8ae48a36cc88105c9a4c056132c9a47e2f120a (patch) | |
| tree | e89080e0c5b9f614e2035686d0898cadba2a8dc2 /test | |
| parent | afbbd86f316c2bfa70b86c1c51a4147a83f285ec (diff) | |
| download | gn-guile-2a8ae48a36cc88105c9a4c056132c9a47e2f120a.tar.gz | |
Shortnames
Diffstat (limited to 'test')
| -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))))) |