tests/testthat/test-utils.R

context("utils")

test_that("camel to underscore works", {
  x <- c("heyIAmCool", "HelloGoodbye")
  actual <- camel_to_underscore(x)
  expected <- c("hey_i_am_cool", "hello_goodbye")
  expect_equal(actual, expected)
})
zamorarr/msf documentation built on May 3, 2019, 9:01 p.m.