tests/testthat/test-liste.R

test_that("list of directions works", {
  expect_equal(liste(c("(0, 1)", "(1, 1)"))[[1]][1], 0)
  expect_equal(liste(c("(0, 1)", "(1, 1)"))[[1]][2], 1)
  expect_equal(liste(c("(0, 1)", "(1, 1)"))[[2]][1], 1)
  expect_equal(liste(c("(0, 1)", "(1, 1)"))[[2]][2], 1)
})
C-Juliette/randomfields documentation built on Sept. 3, 2023, 5:56 a.m.