问题标签 [test-more]

我有一个 Perl 单元测试，它为每个通过的测试输出“ok”。我发现自己向上滚动以找到第一个失败的测试，因为这是我唯一感兴趣的东西。我正在使用 Test::More。

我希望只出现失败的测试。我尝试了使用的解决方案

它奏效了。但我想把它放在shebang行中，这样我就可以忘记它了。舍邦

消息失败Too late for "-MTest::Harness" option at ./test_JSONRegex.pl line 1.

strict在我的脚本中仍然使用时抑制通过的测试输出的最佳方法是什么？

我对属性使用 Moose 子类型，并想测试（Test::More）它们对违反约束的输入的正确处理。目前 Mooses 的内部错误处理使我的测试文件在看到无效数据时完全停止。

模块源（stackoverflow.com 最小化）：

测试来源：

我编写了简单的 Perl 测试用例示例：

屏幕上的输出：

现在我想在日志文件和屏幕上打印一条消息？

我无法使用现有的 Perl 模块IO::Tee来<test case name>.t满足我的要求。

你能告诉我如何在屏幕上和 Perl 测试用例的日志文件中写一条消息吗？

使用的命令：

我目前扩展了我的测试套件以增加测试覆盖率。我想测试我的控制器及其呈现的 html 输出，但我发现使用删除方法时出现问题。让我用一个例子来解释它。

我有一条路线：

指向backup控制器中的以下功能：

其中处理路由的方法backup_index只显示$msg并显示一些其他不相关的数据。

接下来，我想测试一下这个方法，所以我写了一个测试：

测试通过。但是现在，我想检查重定向后显示的网页上的文本是否正确。所以我做了以下事情：

测试失败。失败是因为内容为空，所以匹配完成：

这在这两种情况下当然都是错误的。当然，在浏览器中，重定向工作得很好，我看到了测试中设计的一切。我可以将方法更改为POSTorGET但我想以 API 的设计方式正确地进行路由。

问题：如何设计测试以使重定向后可以匹配内容？

对于那些想深入挖掘的人，我提供了 Github 的链接。

• 路由定义行 303
• 控制器备份功能 delete_backup 第 135 行
• 备用控制器线 53 的功能测试

我能够test_case.t为 Perl 模块编写单元测试ModuleOne.pm

测试用例.t

我正在尝试为 perl 脚本实现相同的单元测试用例script_one.pl

script_one.pl

如何包含这个 perl 文件并script_one.pl为方法和test_case.t编写测试用例？validate_paramsprint_name

我对随机生成的数据进行了很多检查。如何仅针对失败的测试获取报告消息并且如果检查正常则不显示任何内容？

我想知道如何单独测试 *.pl 文件中的每个子路由。但不能使用 'require' 子句，因为某些 *.pl 需要参数。

例如

将始终在“要求”处测试失败。
因为“some.pl”需要一个参数并以

的文件。

我只想单独测试“*.pl”中的每个子路由“Func1,usage,...whatever”。

some.pl 就是这样

如何通过“Test::More”为“sub Func1”编写测试代码？

任何建议表示赞赏。

PerlTest::More似乎没有提供内置的方式来表示“退出这个测试脚本，并继续下一个”。

你可以exit()或die()但它不会给你非常有用的 TAP 输出或prove输出，就像

这不是很有帮助。

如果您BAIL_OUT("reason")获得更多有用的输出，但所有测试都会中止，而不仅仅是当前的测试脚本。

是否有一种明智的方法来打印诊断消息，当线束退出时，该消息将在prove'stderr 和摘要输出中看到，然后跳转到下一个测试脚本？

当我们有一个截断的多行文本时，我想了解如何添加一些文本/按钮等以及最后一行省略号文本的结尾

例如：

如您所见，显示更多文本直接放置在文本块（最后一行）中。
问题是：在RN的情况下如何实现？

我们可以使用 numberOfLines={3}截断文本，我们可以使用ellipsizeMode='tail' 在行尾实现 ... 点，但我找不到如何将Show More文本放在那里的解决方案。

我尝试使用显示更多的绝对位置，但这是一个坏主意，因为每次文本可以在另一个地方截断取决于句子单词。

谢谢你的帮助！

Test::Moreis_deeply()在文档中提到应该使用它而不是eq_array()或者eq_hash()因为它具有更好的诊断功能，并且它指出......它们可能在未来的版本中被弃用

现在我正在替换eq_...()函数的使用，is_deeply()但我遇到了一个问题，没有is_not_deeply()或没有这样的函数，我有一个这样的测试：

是否有一种惯用的替代方法可以用来测试深度不等式，最好使用 Test::More？

与eq_hash()只返回 true 或 false 并需要包裹在 中的不同ok()，is_deeply()它本身就是一个测试。因此，如果您将其包装在“ok()”中，如下所示：

现在有两个测试，is_deeply()一个是失败的ok()，一个是通过的！