tests/testthat/test-fx-obj-fxGeom.R

context("fx-obj-fxGeom")

test_that("fxGeom instantiation", {
  expect_true(is(fxGeom(), "fxGeom"))
  expect_false(is(fxGeom(), "fxGeomContinuous"))
  expect_true(is(fxGeom("Continuous"), "fxGeomContinuous"))
  expect_error(fxGeom("x"))
})
sflippl/tectr documentation built on May 6, 2019, 8:51 a.m.