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)"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.