tests/testthat/test-helpers.R

In rmoriebricklayer: Reproducible Data Capsules with Provenance and Fallback

# Tests for Unicode-safe text helpers (to_ascii, ascii_fallback, write_text_fallback).
# Source file kept pure ASCII (CRAN policy): the accented A is a \u escape.

ang <- "\u00c1ngela"  # R parses \u00c1 as accented A; source stays ASCII

test_that("to_ascii transliterates accents to plain ASCII", {
  res <- to_ascii(ang)
  expect_false(grepl("[^ -~]", res))      # pure 7-bit ASCII
  expect_equal(res, "Angela")
  expect_equal(to_ascii(paste("Prof.", ang, "Zorro Medina")),
               "Prof. Angela Zorro Medina")
})

test_that("ascii_fallback preserves valid UTF-8 by default", {
  expect_equal(ascii_fallback(ang), ang)  # accent kept
  expect_equal(ascii_fallback("plain text"), "plain text")
})

test_that("ascii_fallback(force = TRUE) transliterates to ASCII", {
  res <- ascii_fallback(ang, force = TRUE)
  expect_equal(res, "Angela")
  expect_false(grepl("[^ -~]", res))
})

test_that("write_text_fallback writes a readable file for accented input", {
  tmp <- tempfile(fileext = ".txt")
  on.exit(unlink(tmp), add = TRUE)
  write_text_fallback(c("Supervisor:", ang), tmp)
  expect_true(file.exists(tmp))
  expect_gt(file.info(tmp)$size, 0)
})

test_that("agent_bundle validates its request and reports a missing binary", {
  expect_error(agent_bundle(""), "nzchar")
  expect_error(agent_bundle(c("a", "b")), "length")

  # An empty PATH guarantees Sys.which() finds no rmorie binary.
  old_path <- Sys.getenv("PATH")
  on.exit(Sys.setenv(PATH = old_path), add = TRUE)
  Sys.setenv(PATH = tempdir())
  expect_match(agent_bundle("scaffold demo bundle"), "rmorie CLI not found")
})

test_that(".to_ascii_fallback (no-stringi path) transliterates deterministically", {
  # The iconv("ASCII//TRANSLIT") it replaces gave "?" under a C locale;
  # the table-driven fallback must not depend on stringi or the locale.
  expect_equal(rmoriebricklayer:::.to_ascii_fallback(ang), "Angela")
  expect_equal(
    rmoriebricklayer:::.to_ascii_fallback("J\u00fcrgen Stra\u00dfe"),
    "Jurgen Strasse"
  )
  expect_equal(
    rmoriebricklayer:::.to_ascii_fallback("\u0141ukasz \u017bak"),
    "Lukasz Zak"
  )
  out <- rmoriebricklayer:::.to_ascii_fallback("\u0152uvre \u00c6on")
  expect_equal(out, "OEuvre AEon")
  expect_false(any(grepl("[^ -~]", out)))
})