tests/testthat/test-position.R

test_that("PositionIdentity returns identical data", {
  df <- tibble(x = 1)
  expect_identical(df, PositionIdentity$new()$compute_panel(df))
})
paleolimbot/ggr6 documentation built on Feb. 5, 2020, 2:17 p.m.