tests/testthat/test-num_currency.R

In renkun-ken/formattable: Create 'Formattable' Data Structures

test_that("currency", {
  expect_identical(format(currency(numeric())), character())

  expect_warning(currency("a"))
  expect_s3_class(currency(NA), "numeric")

  data <- c(-5300, 10500, 20300, 35010)
  obj <- currency(data)
  expect_s3_class(obj, c("formattable", "numeric"))

  expect_equal(
    format(currency("$ 123,234.50")),
    format(currency(123234.50, symbol = "$", digits = 2))
  )
  expect_equal(
    format(currency(c("$ 123,234.50", "$123.503"), digits = 3)),
    format(currency(c(123234.500, 123.503), symbol = "$", digits = 3))
  )
  expect_equal(
    format(currency(c("HK$ 123,234.50", "HK$ 123.503"), symbol = "HK$", digits = 3)),
    format(currency(c(123234.500, 123.503), symbol = "HK$", digits = 3))
  )
  expect_equal(
    format(currency(c("HK$ 123,234.50", "HK$ 123.503"), digits = 3)),
    format(currency(c(123234.500, 123.503), symbol = "HK$", digits = 3))
  )

  expect_snapshot({
    format(obj, symbol = "$")
    format(currency(data, symbol = "$", digits = 0))
    format(currency(obj, symbol = "$", digits = 0, big.mark = "/"))
    format(currency(1000, "USD", digits = 0, sep = " "))
    format(currency("$ 123,234.50", symbol = "$", sep = " "))
  })
})