Skip to content

Commit

Permalink
forgot
Browse files Browse the repository at this point in the history
  • Loading branch information
Melkiades committed Nov 6, 2024
1 parent bba6778 commit f3324d0
Showing 1 changed file with 2 additions and 5 deletions.
7 changes: 2 additions & 5 deletions tests/testthat/test-utils_default_stats_formats_labels.R
Original file line number Diff line number Diff line change
Expand Up @@ -199,14 +199,11 @@ testthat::test_that("labels_use_control works as expected", {
})

testthat::test_that("summary_formats works as expected", {
testthat::expect_warning(
result <- summary_formats() %>%
unlist() # More compact fruition
)
result <- summary_formats() %>% unlist() # More compact fruition
res <- testthat::expect_silent(result)
testthat::expect_snapshot(res)

testthat::expect_warning(result <- summary_formats(type = "counts", include_pval = TRUE))
result <- summary_formats(type = "counts", include_pval = TRUE)
testthat::expect_true(all(result[c("n", "count", "n_blq")] == "xx."))
testthat::expect_identical(result[["pval_counts"]], "x.xxxx | (<0.0001)")
})
Expand Down

0 comments on commit f3324d0

Please sign in to comment.