From 24c29f4121ab864bbb903ceecf7214c395cbc8ec Mon Sep 17 00:00:00 2001 From: edisz Date: Fri, 29 Jan 2016 08:37:14 +0100 Subject: [PATCH] more tests --- tests/testthat/test-physprop.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-physprop.R b/tests/testthat/test-physprop.R index ac5fe051..08e50712 100644 --- 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])) })