[progress Communities] [progress Openedge Abl] Forum Post: Doc Fix -- Ablunit Doc

[GregHiggins]

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.

Continue reading...