Micro Focus 製品には、JES 対応エンタープライズ サーバー リージョンとともに使用できる単体テストおよび JCL ジョブ カードの例が用意されています。コマンド ラインでテスト ランナー構文を使用すると、ジョブ カードをエンタープライズ サーバー リージョンにサブミットし、JCL ジョブの結果の戻りコードを問い合わせて、さまざまなテスト アサーションを実施する単体テストを実行できます。
この例のソース ファイルは、C:\Documents and Settings\All Users\Documents\Micro Focus\Enterprise Developer\Samples\Mainframe\UnitTests\JCL_COBOL\Example1 ディレクトリにあります。
テストを実行するには、実行中の JES 対応エンタープライズ サーバー リージョンも必要です。次の例では、ESMFUJCL というリージョン、および c:\ESMFUJCL\ ディレクトリにあるカタログを使用しています。
例を実行するには、次の手順を実行します。
cbllink -D MFUT_TXTDIFF1.cbl
これにより、必要な実行可能テスト ファイルが生成されます。
mfurun -sp -es-server-name:ESMFUJCL -es-syscat:c:\ESMFUJCL\CATALOG.DAT MFUT_TXTDIFF1.dll
Fixture : MFUT_TXTDIFF1 Executing test case : MFUT_TXTDIFF1
テストが実行され、次のようなサマリーが表示されます。
Micro Focus COBOL - mfurun Utility Unit Testing Framework for Windows/Native/32 Fixture : MFUT_TXTDIFF1 Executing test case : MFUT_TXTDIFF1 JCLCM0188I J0001037 IEBCOM01 JOB STARTED 14:38:29 JCLCM0182I J0001037 IEBCOM01 JOB ENDED - COND CODE 0008 14:38:29 Completed test case : MFUT_TXTDIFF1 - Passed Generating report : MFUT_TXTDIFF1-report.txt Test Run Summary Overall Result Passed Tests run 1 Tests passed 1 Tests failed 0 Total execution time 4255
テストの実行中、生成されたレポート (MFUT_TXTDIFF1-report.txt) を COBOL プログラムが読み取り、サマリーに示されているテスト アサーションが行われたことがわかります。