tests/testthat/test-pad_chi.R

In graemegowans/chi: CHI Functions

context("output characters")

test_that("padding works", {
  expect_equal(nchar(pad_chi(123456789)), 10)
})

test_that("padding works", {
  expect_equal(nchar(pad_chi(12345678)), 8)
})

test_that("padding works", {
  expect_equal(nchar(pad_chi(1234567890)), 10)
})

test_that("padding works", {
  expect_equal(nchar(pad_chi(01234567890)), 10)
})