tests/testthat/test-atcol.R

In ELKHMISSI/RSDK: Sudoku with R

test_that("atcol", {
  A <- matrix(c(
    4,    5,    9,    8,    3,    2,    7,    1,    6,
    3,    2,    8,    7,    1,    6,    9,    4,    5,
    1,    6,    7,    9,    4,    5,    8,    3,    2,
    8,    3,    2,    6,    7,    1,    5,    9,    4,
    7,    1,    6,    5,    9,    4,    2,    8,    3,
    9,    4,    5,    2,    8,    3,    6,    7,    1,
    6,    7,    1,    4,    5,    9,    3,    2,    8,
    2,    8,    3,    1,    6,    7,    4,    5,    9,
    5,    9,    4,    3,    2,    8,    1,    6,    7),nrow=9, ncol=9, byrow=FALSE)
  expect_true(atcol(A,1,4))
})