tests/testthat/test-fix_names.r

context("Fix names")

# Test 1
test_that("fix_names_encoding is working", {
  expect_equal(leafletDK::fix_names_encoding(c("æ", "ø", "å", "Æ", "Ø", "Å")),
               c("æ", "ø", "å", "Æ", "Ø", "Å"))
  })

# Test 2
test_that("fix_names_join is working", {
  expect_equal(leafletDK::fix_names_join(c("æ", "ø", "å", "Æ", "Ø", "Å", "-", " "),  to_lower = TRUE),
              tolower(c("ae", "oe", "aa", "Ae", "Oe", "Aa", "", "")))
})
56north/leafletDK documentation built on May 5, 2019, 11:27 a.m.