Test code - Manual - AxUnit-ST - AxUnit ST documentation package - AxUnit-ST,

USING AxUnit;
USING UserLibrary;

NAMESPACE MyTest

    {TestFixture}
    CLASS MyTestFixture
        {Test}
        METHOD PUBLIC MyTestMethod1
            VAR_TEMP
                result : INT;
            END_VAR

            Mocking.Mock(NAME_OF(GetANumber), NAME_OF(GetNumber2Mock));
            result := GetANumber();
            Assert.Equal(result, 2);

            Mocking.Mock(NAME_OF(GetANumber), NAME_OF(GetNumber3Mock));
            result := GetANumber();
            Assert.Equal(result, 3);

        END_METHOD

    END_CLASS

    FUNCTION GetNumber2Mock : INT
        GetNumber2Mock := 2;
    END_FUNCTION

    FUNCTION GetNumber3Mock : INT
        GetNumber3Mock := 3;
    END_FUNCTION

END_NAMESPACE