library(testthat) if (Sys.info()[["sysname"]] == "Darwin") { test_that("Warning if multibyte support is not detected", { withr::with_locale(new = c("LC_CTYPE" = "en_US.US-ASCII"), code = { expect_message(library(datefixR), paste0( "The current locale does not support multibyte characters. ", "You may run into difficulties if any months are given as ", "non-English language names. \n" )) }) }) }