test_that("platform_info", { pi <- platform_info() expect_equal( names(pi), c("version", "os", "system", "ui", "language", "collate", "ctype", "tz", "date", "pandoc") ) ## This can be a variety of strings, e.g. "R Under development" expect_match(pi$version, "R ") expect_true(is_string(pi$os)) expect_true(is_string(pi$system) && grepl(",", pi$system)) expect_true(is_string(pi$ui)) expect_true(is_string(pi$language)) expect_true(is_string(pi$tz) || identical(pi$tz, NA_character_)) expect_true(is_string(pi$date)) expect_equal(pi$date, as.character(as.Date(pi$date))) }) test_that("print.platform_info", { expect_output(print(platform_info()), "setting[ ]+value") }) test_that("print.platform_info ignores max.print", { pi <- platform_info() withr::local_options(list(max.print = 1)) out <- capture_output(print(pi)) out <- tail(strsplit(out, split = "\r?\n")[[1]], -1) expect_length(out, length(pi)) })
Generated by dwww version 1.15 on Sun Jun 16 03:41:16 CEST 2024.