tests/testthat/test-format_SCC.R

In BAAQMD/strtools: Parse, Format, and Manipulate Strings

context("format_SCC")

test_that("6 digits", {
  expect_identical(format_SCC(8745, digits = 6), "008745")
})

test_that("8 digits", {
  expect_identical(format_SCC(8192373, digits = 8), "08192373")
})

test_that("10 digits", {
  expect_identical(format_SCC(128192373, digits = 10), "0128192373")
})