tests/testthat/test_a_galois.R

test_that("galois() and inv_galois() work as expected", {
  expect_identical(
    results <- vapply(seq_len(255) - 1, inv_galois, integer(1)),
    galois_series()
  )
  expect_identical(galois(results), 0:254)
})
ThierryO/qrcode documentation built on Oct. 2, 2024, 9:02 p.m.