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 March 31, 2023, 11:54 p.m.