inst/tests/test-get-metric.r

context("get metric")

test_that("get_metric works", {  
  expect_that(get_metric(NULL), is_true())
  expect_that(get_metric(c("ord", "ord")), is_false())
  expect_that(get_metric(c("num", "raw")), is_false())
})
gastonstat/plspm2 documentation built on May 16, 2019, 5:47 p.m.