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 April 10, 2022, 8:51 p.m.