tests/testthat/test_location_name.R

context("eq_location_name")

test_that("location names has lowercase at second letter", {
  data <- data.frame(LOCATION_NAME = "FINLAND:  KORVATUNTURI")
  location_name <- eq_location_clean(data)
  expect_true(grepl("[a-z]", substr(location_name, 2, 2) ))
})
piavat/eqPlotc5 documentation built on Feb. 20, 2021, 12:15 a.m.