tests/testthat/test-parse_numeric.R

In BAAQMD/strtools: Parse, Format, and Manipulate Strings

test_that("integers work", {

  expect_equal(-10:10, parse_numeric(-10:10))

})

test_that("decimals work", {

  x <- 1e6 * rnorm(10)

  expect_equal(
    parse_numeric(format_count(x)),
    round(x))

  expect_equal(
    parse_numeric(format_count(x, digits = 2)),
    round(x, digits = 2))

})

test_that("scientific notation works", {

  expect_equal(
    parse_numeric("1.4e-3"),
    1.4e-3)

  expect_equal(
    parse_numeric("1.4E+3"),
    1.4e3)

  expect_equal(
    parse_numeric("1.4e03"),
    1.4e03)

  expect_equal(
    parse_numeric("5.5 E-6"),
    5.5e-6)

})