tests/testthat/test-5-bin-qr-code.R

skip_on_cran()

test_that("create QR code", {
  skip_on_os("windows")

  file <- bin_qr_code(BIN, QRCODE)
  file_type <- system2("file", file, stdout = TRUE)

  expect_true(file.exists(file))
  expect_match(file_type, "PNG")
})
datawookie/filebin documentation built on Sept. 3, 2023, 1:08 p.m.