tests/testthat/test_utf8.R

In shug0131/cctu: In-House Functions for Report Writing at Cambridge Clinical Trials Unit

context("utf8")


rm(list = ls())

library(cctu)

load(test_path("fixtures", "sysdata.rda"))

test_that(
  "check inputs for detection",
  {
    expect_equal(dim(detect_invalid_utf8(ae_df[rep(69:71, 3), rep(2:4, 2)])), c(6, 3))
    expect_equal(dim(detect_invalid_utf8(ae_df)), c(1, 3))
    expect_equal(dim(detect_invalid_utf8(ae_df[, -3])), c(0, 3))
    expect_error(detect_invalid_utf8(1:10), "input a data.frame")
  }
)


test_that("check removal", {
  ae2 <- remove_invalid_utf8(ae_df)
  expect_s3_class(ae2, "data.frame")
  expect_equal(nrow(detect_invalid_utf8(ae2)), 0)
  expect_error(remove_invalid_utf8(1:4), "input a data.frame")
})

test_that("non-breaking spaces", {
  x <- data.frame(x = "A\u00A0space")
  expect_equal(nrow(detect_invalid_utf8(x)), 1)
  y <- remove_invalid_utf8(x)
  expect_equal(y[1, 1], "A space")
})



test_that("write_table warning", {
  .old_meta <- get_meta_table()
  set_meta_table(cctu::meta_table_example)
  expect_warning(
    write_table(ae_df, number = "1.10"),
    "Invalid non-UTF8 characters found"
  )
  set_meta_table(.old_meta)
  rm(.old_meta, .parent)
})