tests/testthat/test-convector.R

In misasa/chelyabinsk: Express geochemical datasets

test_that("With unit 'ppm', cbk.convector should return 1000000",{
	expect_equivalent(cbk.convector("ppm"), 1000000)
})

## test_that("With unit 'qqm', cbk.convector should return NA",{
## 	expect_equivalent(cbk.convector("qqm"), NA)
## })