Doc Fix -- ABLUnit Doc

Posted by GregHiggins on 04-Aug-2016 14:16

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.

All Replies

This thread is closed