tests/testthat/test-change_case.R

In FAOSTAT: Download Data from the FAOSTAT Database

context("Ensure that change case works consistently")

test_that("Snake case converts correctly",{
  
  expect_equal(to_snake("nochange"), "nochange")
  expect_equal(to_snake("^snake*"), "_snake_")
  expect_equal(to_snake("snAke"), "snake")
  expect_equal(to_snake("snake case"), "snake_case")
  expect_equal(to_snake(""), "")
  
  expect_equal(to_snake(NA_character_), NA_character_)
  
  
})