tests/testthat/test-fxe-layer-complete.R

In sflippl/tectr: User Interface for Complex Datasets

context("fxe-layer-complete")

test_that("nominate", {
  nom <- fxe_layer_complete_nominate(fxGeom("Continuous"), AesName("x"),
                                       data.frame())
  purrr::walk(nom, ~ expect_true(is_nomination(.)))
  nom <- fxe_layer_complete_nominate(fxGeom("Continuous"), AesName("y"),
                                       data.frame())
  purrr::walk(nom, ~ expect_true(is_nomination(.)))
  nom <- fxe_layer_complete_nominate(fxGeom("Discrete"), AesName("x"),
                                       data.frame())
  purrr::walk(nom, ~ expect_true(is_nomination(.)))
  nom <- fxe_layer_complete_nominate(fxGeom("Discrete"), AesName("y"),
                                       data.frame())
  purrr::walk(nom, ~ expect_true(is_nomination(.)))
})