[New COBOL Unit Test] ダイアログ ボックスが表示されます。
1 つのテスト ケースに必要なスケルトン コードを含むテスト フィクスチャ ファイルが単体テスト プロジェクト内に作成されます。
input-output section. file-control. select cust assign to 'cust.txt' organization is line sequential.
さらに、data division の行の直後に次のコードを追加します。
file section. fd cust. 01 cust-file. 03 customer-id pic 9(5). 03 customer-info pic x(65).
open output cust
これにより、ファイルを開くことでテストが設定され、テスト ケース自体で実行されるファイル操作の準備が整います。
MFU-TC-METADATA-SETUP-PREFIX & TEST-program-name エントリ ポイントには、テスト ケースに関する詳細が含まれています。
move "This is a simple test to write to a data file" to MFU-MD-TESTCASE-DESCRIPTION
move 0 to customer-id perform 100 times add 1 to customer-id move "A customer" to customer-info write cust-file end-perform.
テスト ケースでファイルに対する簡単な書き込み操作が実行され、失敗するとテスト ケースが失敗としてマークされます。これは、独自のテスト アサーションを追加するセクションでもあります。詳細については、「テスト結果の判定」を参照してください。
close cust.
ティアダウン セクションは環境を整理します。
テスト ケースが完成し、実行する準備ができました。「単体テストの実行」を参照してください。