标签: testthat

我正在开发一个R包，其中一个功能是通过的标准输入来实现与用户的交互readline。我现在想知道如何测试此功能的行为，最好是使用testthat库。

似乎test_that函数假定答案是""用户输入的。我希望我可以测试用户可以输入的各种答案的行为条件。

下面是一个小的示例代码。在实际开发中，该marryme函数在单独的文件中定义，并导出到名称空间。 devtools::test()在最后一行让我出错，因为答案永远不会是。我想测试用户输入时函数是否正确返回true "y"。

library(testthat)

test_that("input", {
  marryme <- function() {
    ans <- readline("will you marry me? (y/n) > ")
    return(ans == "y")
  }

  expect_false(marryme())  # this is good
  expect_true(marryme())   # this is no good
})

是否有一个简单的工作流来编写将对象存储为.rds或.rda的测试,以便将来运行的测试可以比较代码执行的结果与存储的对象？这样可以很容易地检查返回有些复杂值的函数是否仍然按预期运行.

例如,类似于:

test_obj(res <- lm(y ~ x, data.frame(x=1:3, y=5:7)))

如果*extdata/test_obj.res.rds*不存在,将在*inst/extdata/test_obj.res.rds*中创建它,res从上面开始,但如果确实存在,则会相同/ all.equal等新生成的对象与从rds中恢复的对象.

我会发现这样的测试超级有用,我有点惊讶RUnit/svUnit/test没有实现某种类型的东西(我希望他们这样做,我只是没有找到它).

testthat::make_expectation是接近,但我更喜欢有自动存储/检索rds,而不是将文本表示复制粘贴到文件,我认为你应该如何使用testthat::make_expectation(我想我可以管道stdout()到一个. R文件,但即使这样,也有一些自动化可以促进这个过程).

我想测试我的一个函数给出了一个特定的消息(或警告或错误).

good <- function() message("Hello")
bad <- function() message("Hello!!!!!")

我希望第一个期望成功,第二个期望失败.

library(testthat)
expect_message(good(), "Hello", fixed=TRUE)
expect_message(bad(), "Hello", fixed=TRUE)

不幸的是,他们两个目前都在通过.

为了澄清:这是一个最小的例子,而不是我正在测试的确切消息.如果可能的话,我希望避免为我的测试脚本添加复杂性(可能还有错误),因为需要为我要测试的每个新消息提供一个合适的正则表达式.

当我尝试在 test_dir 函数中定义路径时，它显示错误：

Error in UseMethod("xml_add_child") : no applicable method for 'xml_add_child' applied to an object of class "NULL"

我的 testthat.R 文件有以下几行：

library(testthat)
library(package)

options(testthat.junit.output_file = "test-out.xml")
test_dir("tests/testthat/0_utils/", reporter = 'junit')
test_package("package")

我的测试位于“tests/testthat/0_utils”文件夹中。我怎么解决这个问题？

我希望能够在不是r 包的项目中使用testthat和。实际上不使用任何第三方服务。只是一个普通的-old-r 源文件的集合covr