tests/testthat/test-construct_url.R

In TIBHannover/BacDiveR: Programmatic Interface For The Bacterial Diversity Metadatabase by DSMZ

context("test-construct_url.R")

test_that("URL constructions work", {
  expect_equal(
    construct_url(717),
    construct_url("717"),
    "https://bacdive.dsmz.de/api/bacdive/bacdive_id/717/?format=json"
  )

  expect_equal(
    construct_url("AJ000733", searchType = "sequence"),
    "https://bacdive.dsmz.de/api/bacdive/sequence/AJ000733/?format=json"
  )

  expect_equal(
    construct_url("DSM 319", searchType = "culturecollectionno"),
    "https://bacdive.dsmz.de/api/bacdive/culturecollectionno/DSM%20319/?format=json"
  )

  expect_equal(
    construct_url("Pseudomonas", searchType = "taxon"),
    "https://bacdive.dsmz.de/api/bacdive/taxon/Pseudomonas/?format=json"
  )
})