tests/testthat/test_current_mps.R

library(parlitools)
context("current_mps")

test_that("current_mps return expected format", {
  skip_on_cran()

  xcm <- current_mps(tidy_style = "camelCase")
  # expect_length(xcm, 29)
  expect_type(xcm, "list")
  expect_true(tibble::is_tibble(xcm))
})
EvanOdell/parlitools documentation built on May 8, 2023, 6:57 a.m.