USING Progress.Lang.*.
CLASS MyClass:
METHOD PUBLIC CHARACTER M1( ):
DEFINE VARIABLE result AS CHARACTER NO-UNDO.
result = "M1".
RETURN result.
END METHOD.
METHOD PUBLIC INTEGER M2( ):
DEFINE VARIABLE result AS INTEGER NO-UNDO.
result = 10.
RETURN result.
END METHOD.
END CLASS.
Here is the ABLUnit test class for the above class file:
ROUTINE-LEVEL ON ERROR UNDO, THROW.
USING OpenEdge.Core.Assert.
CLASS MyTestClass:
@Test.
METHOD PUBLIC VOID TestM1( ):
DEFINE VARIABLE obj AS MyClass NO-UNDO.
DEFINE VARIABLE returned AS CHARACTER NO-UNDO.
obj = new MyClass().
returned = obj:M1().
Assert:equals("M1",returned).
END METHOD.
@Test.
METHOD PUBLIC VOID TestM2( ):
DEFINE VARIABLE obj AS MyClass NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
obj = new MyClass().
i = obj:M2().
Assert:equals(0,i). /* Assert:equals ( 10, i ). */
END METHOD.
END CLASS.