tests/testthat/test_d_qr_code.R

In ThierryO/qrcode: Generate QRcodes with R

test_that("qr_code() returns a qr_code object", {
  expect_s3_class(qr_code("0"), "qr_code")
  expect_s3_class(qr_code("100"), "qr_code")
  expect_s3_class(qr_code("0.1"), "qr_code")
  expect_s3_class(qr_code("A"), "qr_code")
  expect_s3_class(qr_code("AB"), "qr_code")
  expect_s3_class(qr_code("ABC"), "qr_code")
  expect_s3_class(qr_code("ABCD"), "qr_code")
  expect_s3_class(qr_code("a"), "qr_code")
  x <- "fa\xE7ile"
  Encoding(x) <- "latin1"
  expect_s3_class(qr_code(x), "qr_code")
  expect_s3_class(qr_code("\u00E6"), "qr_code")
})

test_that("qr_code() has a stable output for numeric", {
  skip_if_not(Sys.getenv("DETAILED") != "", "Skipping detailed checks.")
  skip_on_cran()
  skip_on_covr()
  test_string <- c(
    "0", "1", "12", "123", "1234", "12345", "123456", "1230", "12300", "123000"
  )
  for (i in seq_len(length(test_string) * 4) - 1) {
    x <- test_string[i %/% 4 + 1]
    ecl <- c("L", "M", "Q", "H")[i %% 4 + 1]
    expect_true(validate_qr(x = x, ecl = ecl))
  }
})

test_that("qr_code() has a stable output for alphanumeric", {
  skip_if_not(Sys.getenv("DETAILED") != "", "Skipping detailed checks.")
  skip_on_cran()
  skip_on_covr()
  test_string <- c(LETTERS, 0:9, " ", "$", "%", "*", "+", "-", ".", "/", ":")
  test_string <- rep(
    test_string, ceiling(max(qrCodeSpec$Alphanumeric) / length(test_string))
  )
  for (i in seq_along(qrCodeSpec$Alphanumeric)) {
    x <- paste(head(test_string, qrCodeSpec$Alphanumeric[i]), collapse = "")
    ecl <- as.character(qrCodeSpec$ECL[i])
    expect_true(validate_qr(x = x, ecl = ecl))
  }
})