tests/testthat/test-utils.R

In R4GoodPersonalFinances: Make Better Financial Decisions

test_that("printing percent", {

  print_percent(0.52366) |> expect_snapshot()
  print_percent(0.52366, accuracy = 0.01) |> expect_snapshot()
})

test_that("printing currency", {

  print_currency(234) |> expect_snapshot()
  print_currency(234, prefix = "$") |> expect_snapshot()
  print_currency(234, suffix = " PLN") |> expect_snapshot()
  print_currency(1234567.123456) |> expect_snapshot()
  print_currency(1234567.123456, accuracy = 0.01) |> expect_snapshot()
})