このモジュールを使用すると、テストに1つの関数のみを使用できます-ok（） 。 この関数の機能が十分でない場合は、Test :: Moreを使用することをお勧めします。 Test :: Simpleを使用して記述されたテストは、Test :: Moreと完全に互換性があります。
テスト結果はTAP（Test Anything Protocol）形式で出力されます。
接続テスト::シンプル
Test :: Simpleに接続するときは、実行するテストの数を事前にプログラムに伝える必要があります。
Use Test :: Simple tests => 23;
テストの数とは、プログラムの実行中に起動される特別なテスト機能の数を意味します。
たとえば、ok（）関数が実行される回数。
指定された数と実際に実行されたテストの数が一致しない場合、エラーがユーザーに表示されます。
例（2xが事前定義されたプログラムで1つのテストを実行） ：
＃！/ usr / bin / perl
Use Test :: Simple tests => 2;
ok（1 + 1 == 2、 '1 + 1 = 2'）;
テスト結果の結論 ：
％perl test_simple.pl
1..2
OK 1-1 + 1 = 2
＃2つのテストを計画したが、1つだけ実行したようです。
％
テストプログラムが開始されると、Test :: Simpleは「1 ... M」という形式の行を表示します。ここで、Mはテストプロセス中に実行されるはずのテストの数です。
わかりました（）
ok（）は、Test :: Simpleが提供する唯一の主要なテスト関数です。 プログラム、機能、プログラムコードの一部の成功を確認できます。
構文ok（） ：
ok（$ test_var eq $ ok_value、 'test_var eq ok_value'）;
関数は、渡された条件式を処理します。 処理結果が正（true）の場合、テストは合格と見なされます。 結果に応じて、関数はテストのシリアル番号とともに「ok」または「not ok」というメッセージを表示します。
関数の2番目の引数として、実行したテストの簡単な説明を指定できます。 テスト結果を表示する場合、指定された説明は特定のテストの結果とともに1行で表示されます。
例 ：
＃！/ usr / bin / perl
Use Test :: Simple tests => 1;
ok（1 + 1 == 2、 'Summation 1 + 1'）;
プログラム出力 ：
％perl test_simple.pl
1..1
OK 1-合計1 + 1
このような簡単な説明を使用すると、プログラムコードで必要な行を見つけて修正するのが簡単になります。 さらに、チームでテストを開発および使用する場合に説明が役立ちます。