Test suite results for test file test/tmacpas4.pp

Test run data :

Test file "test/tmacpas4.pp" information:

t_id 1535
t_adddate 2005/03/25
t_result 0
Flag t_norun set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 488056.

Source:

{%NORUN}
{$MODE MACPAS}

{Tests of mac pascal constructs, concerning compile time constructs}

{** Test Compiler variables **}

{$SETC ADAM := TRUE}
{$IFC ADAM <> TRUE}
{$ERRORC Test failed}
{$ENDC}

{$SETC BERTIL := FALSE}
{$IFC BERTIL = FALSE}
{  OK  }
{$ELSEC}
{$ERRORC Test failed}
{$ENDC}

{** Test Defined/Undefined **}

{$IFC UNDEFINED FPC_MACPAS}
{$ERRORC Test failed}
{$ENDC}

{$IFC NOT DEFINED FPC_MACPAS}
{$ERRORC Test failed}
{$ENDC}

{** Test Push/Pop **}

{$J-}

{$PUSH}
{$PUSH}

{$J+}

{$POP}
{$POP}

{$IFC OPTION(J)}
{$ERRORC $PUSH/$POP doesnt work properly}
{$ENDC}

program tmacpas4;

begin
end.

Link to SVN view of test/tmacpas4.pp source.