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")
})