tests/testthat/test-format_print.R

In caayala/desuctools: Funciones para trabajo en DESUC

test_that("Formato CLP, $ y numerico", {
  val <- 10000.07

  expect_equal(format_clp(val, digits = 1),
               'CLP 10.000,1')

  expect_equal(format_dinero(val, digits = 1),
                 '$ 10.000,1')

  expect_equal(format_num(val, digits = 1),
               '10.000,1')
})