tests/testthat/test-numValueString.R

In psychReport: Reproducible Reports in Psychology

context("numValueString")

test_that("numValueString", {

  testthat::expect_equal(numValueString(100.321, numDigits = 2, unit = "ms"), "100.32 ms")
  testthat::expect_equal(numValueString(100.329, numDigits = 2, unit = "ms"), "100.33 ms")
  testthat::expect_equal(numValueString(100.329, numDigits = 0, unit = "ms"), "100 ms")
  testthat::expect_equal(numValueString( 80.256, numDigits = 1, unit = "%"),  "80.3 \\%")
  testthat::expect_equal(numValueString( 4.129,  numDigits = 2, unit = "mv"), "4.13 $\\mu$V")
  testthat::expect_error(numValueString( 4.129,  numDigits = 2, unit = "abc"))

})