tests/testthat/test-formatting.R

context("Formatting")

test_that("basic formatting", {
  ten <- as.currency(10)

  expect_equal(show(ten), "$10")
  expect_equal(show(-ten), "-$10")
})
NumerousHats/currency documentation built on June 13, 2019, 5:41 p.m.