問題タブ [test-more]

合格したテストごとに「ok」を出力する Perl 単体テストがあります。最初に失敗したテストを見つけるために上にスクロールしていることに気づきました。それが唯一の関心事だからです。私は Test::More を使用しています。

失敗したテストのみを表示したいと思います。私は使用の解決策を試しました

そしてそれはうまくいきました。しかし、それを忘れることができるように、それをシバン行に入れたかったのです。シバン

メッセージで失敗しました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 テスト ケースの画面とログ ファイルにメッセージを書き込む方法を教えてください。

使用したコマンド:

*.pl ファイル内の各サブルーティングを個別にテストする方法を考えています。ただし、一部の *.pl には引数が必要なため、'require' 句は使用できません。

例えば

「require」で常にテストに失敗します。
「some.pl」には引数が必要で、末尾が

ファイルの。

「*.pl」内のすべてのサブルーティングを個別に「Func1、使用法など」をテストしたいだけです。

some.plはそのようなものです

"Test::More" で "sub Func1" のテスト コードを書くにはどうすればよいですか?

任意の提案をいただければ幸いです。

Test::More はis_deeply()、代わりに、または診断が優れているため、使用する必要があることをドキュメントに記載しており、 ...将来のバージョンでは非推奨になる可能性があると述べていますeq_array()eq_hash()

今、eq_...()関数の使用を置き換えていますis_deeply()が、問題が発生しました。is_not_deeply()そのような関数はありません。次のようなテストがあります。

できれば Test::More を使用して、深い不等式をテストするために使用できる慣用的な代替手段はありますか?

eq_hash()true または false を返すだけで、 でラップする必要がある とは異なりok()、is_deeply()それ自体がテストです。したがって、以下のように「ok()」でラップすると:

is_deeply()これで、失敗するテストと合格するテストが 2 つありますok()。