tests/testthat/test-create_torus.R

context("create_torus")

test_that("torus output is correct", {
  d <- create_torus(cat_ls, 5)
  expect_equal(d, torus_5)
  
  d <- create_torus(cont_ls, 20)
  expect_equal(d, torus_20)
})
laurajanegraham/winmoveR documentation built on June 4, 2023, 3:15 p.m.