more tests

Author: Enchufa2

tests/testthat/test_unit_creation.R

@@ -128,6 +128,8 @@ test_that("set_units default enforces NSE", {
 
 expect_symbolic <- function(u, n, d)
   expect_equal(units(as_units(u)), units:::.symbolic_units(n, d))
+expect_symbolic_nocheck <- function(u, n, d)
+  expect_equal(units(as_units(u, check_is_valid=FALSE)), units:::.symbolic_units(n, d))
 
 test_that("exotic units work", {
   # check what udunits support
@@ -138,6 +140,7 @@ test_that("exotic units work", {
   #expect_symbolic("2.2.m.s", c("2.2", "m", "s"), character(0))
 
   expect_symbolic("m2/s", c("m", "m"), "s")
+  expect_symbolic("m20/s", rep("m", 20), "s")
   expect_symbolic("m^2/s", c("m", "m"), "s")
   expect_symbolic("m 2/s", c("m", "2"), "s")
   expect_symbolic("m-2/s", character(0), c("m", "m", "s"))
@@ -154,7 +157,14 @@ test_that("exotic units work", {
   expect_symbolic("ml/min/1.73m-2", c("ml", "m", "m"), c("min", "1.73"))
 
   old <- unlist(units_options(strict_tokenizer=TRUE))
-  on.exit(units_options(strict_tokenizer=old))
   expect_symbolic("ml/min/1.73m^2", c("ml", "m", "m"), c("min", "1.73"))
   expect_symbolic("ml/min/1.73m-2", "ml", c("min", "1.73", "m", "m"))
+  units_options(strict_tokenizer=old)
+
+  expect_symbolic_nocheck("inH2O", "inH2O", character(0))
+  expect_symbolic_nocheck("inH2O2", c("inH2O", "inH2O"), character(0))
+
+  expect_symbolic("m/(g/(s/L))", c("m", "s"), c("g", "L"))
+  expect_error(expect_warning(as_units("m/(g/s")))
+  expect_error(expect_warning(as_units("m^m")))
 })