more tests

ropensci · Jan 29, 2016 · 24c29f4 · 24c29f4
1 parent f9be5f3
commit 24c29f4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/tests/testthat/test-physprop.R b/tests/testthat/test-physprop.R
@@ -19,6 +19,8 @@ test_that("physprop returns correct results", {
   fl <- pp_query('50-00-0')
   fl2 <- pp_query('55-38-9')
   fl3 <- pp_query('50-29-3')
+  fl4 <- pp_query('4151-50-2')
+
 
   expect_error(pp_query(c('xxxxx', 'xxxxx')))
   expect_equal(fl$cas, "50-00-0")
@@ -29,8 +31,9 @@ test_that("physprop returns correct results", {
   expect_equal(xx, NA)
   expect_equal(names(fl$prop), c("variable", "value", "unit", "temp", "type", "ref"))
 
-  expect_equal(fl2$cas, "50-38-9")
+  expect_equal(fl2$cas, "55-38-9")
   expect_equal(fl3$cas, "50-29-3")
+  expect_true(is.na(fl4$prop$type[2]))
 })