テスト出力の例

次のコードは、チュートリアルからの抜粋で、テスト ケースの結果を失敗に設定する (条件が満たされていない場合) 方法を示しています。

...
           if function numval(distance-km) not equal 4787
               string "Incorrect distance in kilometers returned - " 
                       distance-km delimited by size
                       x"0" delimited by size
                       into errormessage
               end-string
               call MFU-ASSERT-FAIL-Z using errormessage
           end-if
...

また、このコードは、distance-km が 4,787 に等しくない場合に errormessage テキストを出力ペインに表示します。

テストが失敗したことを示すもう 1 つの方法は、ゼロ以外の戻りコードを設定することです。

move 1 to return-code

または (mfunit.cpy の使用時):

goback returning MFU-FAIL-RETURN-CODE

これは次のような出力になります。