tests/testthat/test_remove_print_statements.R

context("Remove print statements")

test_that("Print statements are removed correctly", {
  expect_equal(remove_print_statements("printed and sold by R. Marchbank"), "r. marchbank")
  expect_equal(remove_print_statements("Printed in London"), "london")
  expect_equal(remove_print_statements("Tryckt i Vpsala"), "vpsala")
  expect_equal(remove_print_statements("Imprimé á Stockholm"), "stockholm")  

})
rOpenGov/bibliographica documentation built on Oct. 13, 2018, 11:46 a.m.