Browse Source

+ New test for compile time things
+ Moved part from tmacpas4.pp

olle 20 years ago
parent
commit
91c8da4e1a
1 changed files with 49 additions and 0 deletions
  1. 49 0
      tests/test/tmacpas4.pp

+ 49 - 0
tests/test/tmacpas4.pp

@@ -0,0 +1,49 @@
+{%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.