这种情况我之前也碰到过，大概率不是testthat的计算错误，更可能是某个容易被忽略的细节导致的。给你几个实用的排查方向，你可以逐一尝试：

• 仔细检查控制台输出的完整内容：当测试用例数量较多时，失败信息可能被滚动到输出的上方，你可以把控制台拉到最顶部，逐段查找有没有标注Failed的测试条目，有时候这类信息可能被大量的OK条目掩盖。
• 生成并查看详细测试报告：运行devtools::test(reporter = "detailed")可以得到更详尽的测试结果，或者直接查看包目录下tests/testthat/生成的测试报告文件，里面会精准定位到失败测试所在的文件、行号以及具体的失败原因。
• 验证警告是否被判定为失败：如果你在测试代码中使用了expect_no_warning()这类严格断言，触发的警告会被testthat统计为失败而非警告。你可以全局搜索测试文件中的expect_no_warning、expect_no_message等函数，检查对应的测试是否触发了未预期的输出。
• 逐个运行测试文件缩小范围：用testthat::test_file("tests/testthat/test-xxx.R")单独运行每个测试文件，这样可以快速定位到包含失败测试的文件，进而找到具体的问题测试用例。
• 更新testthat到最新版本：旧版本的testthat可能存在一些边缘场景下的统计bug，执行install.packages("testthat")更新到最新稳定版后，重新运行测试看问题是否解决。
• 检查是否有特殊测试状态：排查测试代码中是否存在skip()跳过测试的情况，虽然这种情况很少导致统计错误，但也可以确认下是否有跳过的测试被错误归类为失败。

内容的提问来源于stack exchange，提问作者Doctor G