tests/testthat/test_standardise_titles.R

In globalgov/qCreate: Support for Creating Ensembled Global Governance Data

test_that("capitalisation works", {
  expect_match(standardise_titles("A treaty to do things"),
               "A Treaty To Do Things")
})

test_that("white space is stripped", {
  expect_match(standardise_titles("A treaty to do things  "),
               "A Treaty To Do Things")
})

test_that("end of a sentence points are taken off", {
  expect_match(standardise_titles("A treaty to do things."),
               "A Treaty To Do Things")
})

test_that("special character like ’ are deleted", {
  expect_equal(standardise_titles(
    "Management Of Ships’ Ballast Water And Sediments"),
               "Management Of Ships Ballast Water And Sediments")
})

test_that("Most of special charactes are deleted", {
  expect_equal(standardise_titles("Agreement - on specific ? topic (FAO)"),
               "Agreement On Specific Topic (FAO)")
})

test_that("Regions are spelled correctly", {
  expect_equal(standardise_titles(c("A treaty for the South-Eastern region",
                                    "The Convention for Northwest states")),
               c("A Treaty For The South Eastern Region",
                 "The Convention For North West States"))
})

test_that("Words are corrected", {
  example <- c("Co-operation Agreement",
               "Treaty Between U.S. and U.S.S.R.",
               "Treaty About Deep-Sea", "Vietnam Treaty")
  expect_equal(correct_words(example), c("Cooperation Agreement",
                                         "Treaty Between USA and USSR",
                                         "Treaty About Deep Sea",
                                         "Viet Nam Treaty"))
})