tests/testthat/test-utils.R

In krlmlr/dm: Relational Data Models

test_that("utils-methods work", {
  expect_equivalent_tbl(
    dm_zoomed() %>% arrange(d) %>% head(3) %>% tbl_zoomed(),
    head(tf_2() %>% arrange(d), 3)
  )

  # Not implemented for remote sources:
  skip_if_remote_src()
  expect_equivalent_tbl(
    dm_zoomed() %>% tail(2) %>% tbl_zoomed(),
    tail(tf_2(), 2)
  )
})