r - 你如何用 R 的 testthat 做测试助手？

Question

有谁知道如何使用 testthat 包中的辅助方法进行测试？

例如，我测试数组的分布离高斯分布不远:

expect_not_too_ungaussian <- function(x){
    x <- (x - mean(x)) / sd(x)
    test <- ks.test(x, pnorm)
    expect_true(test$p.value > .2)
}

Answer 1

您可以返回一个逻辑并测试它。

expect_not_too_ungaussian <- function(x){
    x <- (x - mean(x)) / sd(x)
    test <- ks.test(x, pnorm)
    return(test$p.value > .2)
}

expect_true(expect_not_too_ungaussian(x))