test_that("parsing tests for multiple architectures", { tgz <- test_path("fixtures", "bad-tests.tar.gz") dir.create(tmp <- tempfile()) on.exit(unlink(tmp, recursive = TRUE), add = TRUE) file.copy(tgz, tmp) withr::local_dir(tmp) untar(basename(tgz), tar = "internal") tf <- get_test_fail("ps.Rcheck") expect_equal(length(tf), 2) expect_equal(names(tf), c("testthat (i386)", "testthat (x64)")) })
Generated by dwww version 1.15 on Thu Jun 20 14:07:26 CEST 2024.