AMR/tests/testthat/test-ab_property.R

context("ab_property.R")

test_that("ab_property works", {
  expect_equal(ab_certe("amox"), "amox")
  expect_equal(ab_official("amox"), "Amoxicillin")
  expect_equal(ab_official_nl("amox"), "Amoxicilline")
  expect_equal(ab_trivial_nl("amox"), "Amoxicilline")
  expect_equal(ab_umcg("amox"), "AMOX")
  expect_equal(class(ab_tradenames("amox")), "character")
  expect_equal(class(ab_tradenames(c("amox", "amox"))), "list")
})
ab_* functions, mo_* functions, 180 new microorganisms, speed improvement for bactid 2018-08-28 13:51:13 +02:00			`context("ab_property.R")`

			`test_that("ab_property works", {`
			`expect_equal(ab_certe("amox"), "amox")`
			`expect_equal(ab_official("amox"), "Amoxicillin")`
			`expect_equal(ab_official_nl("amox"), "Amoxicilline")`
			`expect_equal(ab_trivial_nl("amox"), "Amoxicilline")`
			`expect_equal(ab_umcg("amox"), "AMOX")`
163 new trade names, added ab_tradenames 2018-08-29 12:27:37 +02:00			`expect_equal(class(ab_tradenames("amox")), "character")`
			`expect_equal(class(ab_tradenames(c("amox", "amox"))), "list")`
ab_* functions, mo_* functions, 180 new microorganisms, speed improvement for bactid 2018-08-28 13:51:13 +02:00			`})`