Test suite results for test file test/tmacpas1.pp

Test run data :

View Test suite results

Test file "test/tmacpas1.pp" information:

t_id 1446
t_adddate 2005/01/12
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

program tmacpas1;

{Tests of mac pascal constructs, concerning two units}

{$MODE MACPAS}

uses
  umacpas1;

{** Test exportable macros **}

{$IFC UNDEFINED UMACPAS_COMP_VAR }
{$NOTE In using unit: UMACPAS_COMP_VAR is undefined}
{$ERRORC UMACPAS_COMP_VAR should be defined}
{$ELSEC}
{$IFC UMACPAS_COMP_VAR }
{$NOTE In using unit: UMACPAS_COMP_VAR is true}
{$ELSEC}
{$NOTE In using unit: UMACPAS_COMP_VAR is false}
{$ERRORC UMACPAS_COMP_VAR should be true}
{$ENDC}
{$ENDC}

{$IFC UNDEFINED UMACPAS_PRE_IMPL_COMP_VAR }
{$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is not defined}
{$ENDC}

{$IFC UNDEFINED UMACPAS_PRE_IMPL_COMP_VAR }
{$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is defined, while it shoud not}
{$ENDC}

{** Test Push/Pop **}

{$J-}

{$PUSH}
{$PUSH}

{$J+}

{$POP}
{$POP}

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

{** Test J directive for var and external for proc **}

{$J+}
var
  nisse: Integer; {Is available in Umacpas}
{$J-}

function Get84: Integer;
external;

begin
  Writeln(nisse);
  Writeln(Get84);
  if nisse <> 42 then
    halt(1);
  if Get84 <> 84 then
    halt(1);
end.

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