tests/testthat/test-verbs.R

In edgararuiz/pivotable: Create pivot tables

context("drill")

pv <- retail_orders %>%
  pivot_columns(country) %>%
  pivot_rows(status) %>%
  pivot_values(n())

test_that("drill", {
  expect_is(pivot_drill(pv), "pivot_table")
})

test_that("mqy dimension", {
  expect_is(
    dim_hierarchy_mqy(as.Date("2012-01-01")),
    "dim_hierarchy"
  )
})

context("focus")

test_that("focus", {
  expect_is(
    pivot_focus(pv, country == "Australia"),
    "pivot_table"
  )
})

context("filter")

test_that("filter", {
  expect_is(
    filter(pv, country == "Australia"),
    "pivot_table"
  )
})

context("totals")

test_that("totals", {
  expect_is(
    pivot_totals(
      pv,
      include_column_totals = FALSE,
      include_row_totals = FALSE
    ),
    "pivot_table"
  )
})

context("default")

test_that("default", {
  pivot_default_values(n())
  expect_is(
    pivot_columns(
      retail_orders,
      country
      ),
    "pivot_table"
  )
})