units(log1p(ux)) (`actual`) not equal to units(as_units("ln(re 1 m)", force_single_symbol = TRUE)) (`expected`).

`actual$numerator`:   "1 ln(re 1 m)"
`expected$numerator`: "ln(re 1 m)"

test_that("we can call math functions on units", {
test_that("we can take logarithms units", {
expect_equal(units(log2(ux)), units(as_units("lb(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log(ux, 2)), units(as_units("lb(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log10(ux)), units(as_units("lg(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log(ux, 10)), units(as_units("lg(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log1p(ux)), units(as_units("ln(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log(ux)), units(as_units("ln(re 1 m)", force_single_symbol=TRUE)))
expect_equal(units(log(ux, exp(2))), units(as_units("0.5 ln(re 1 m)", force_single_symbol=TRUE)))

units(log(ux)) (`actual`) not equal to units(as_units("ln(re 1 m)", force_single_symbol = TRUE)) (`expected`).

`actual$numerator`:   "1 ln(re 1 m)"
`expected$numerator`: "ln(re 1 m)"