tests/testthat/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())
})

Try the plspm package in your browser

Any scripts or data that you put into this service are public.

plspm documentation built on May 2, 2019, 7:05 a.m.