The following example tests if a file can be written to. If there is a problem writing to the file (for example, the file does not exist or is locked), the test will fail.
Compile the program to .dll (Windows) or .so (UNIX) (see Compiling Tests), then run the resulting test suite (see Running Tests).
$set case
program-id. TestCases.
environment division.
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).
working-storage section.
copy "mfunit.cpy".
procedure division.
goback.
entry MFU-TC-PREFIX & "FullTestCase". *> the test case
move 0 to customer-id
perform 100 times
add 1 to customer-id
move "A customer" to customer-info
write cust-file
end-perform
goback.
entry MFU-TC-SETUP-PREFIX & "FullTestCase". *> the test case setup
open output cust
goback
entry MFU-TC-TEARDOWN-PREFIX & "FullTestCase". *> the test case teardown
close cust
goback
end program.