A test procedure is an ABL procedure file that has one or more internal test procedures. All the naming requirements of the test procedure are similar to ABL procedures.
Here is an example of an ABL procedure file; any procedure can be converted to a test procedure by adding @Test annotation as shown in the example.
PROCEDURE P1:
DEFINE OUTPUT PARAMETER out AS INTEGER.
out = 20.
END PROCEDURE.
The following is the test procedure for the above procedure.
ROUTINE-LEVEL ON ERROR UNDO, THROW.
USING OpenEdge.Core.Assert.
@Test.
PROCEDURE TestP1:
DEFINE VARIABLE out AS INTEGER.
RUN p1 (OUTPUT out).
Assert:equals(20,out).
END PROCEDURE.
