Browse Source

* test for mantis #9450 (forgot to commit earlier)

git-svn-id: trunk@8932 -
Jonas Maebe 18 years ago
parent
commit
c593606d6a
3 changed files with 35 additions and 0 deletions
  1. 2 0
      .gitattributes
  2. 29 0
      tests/webtbs/tw9450.pp
  3. 4 0
      tests/webtbs/tw9450a.pp

+ 2 - 0
.gitattributes

@@ -8484,6 +8484,8 @@ tests/webtbs/tw9347b.pp svneol=native#text/plain
 tests/webtbs/tw9384.pp svneol=native#text/plain
 tests/webtbs/tw9385.pp svneol=native#text/plain
 tests/webtbs/tw9419.pp svneol=native#text/plain
+tests/webtbs/tw9450.pp svneol=native#text/plain
+tests/webtbs/tw9450a.pp svneol=native#text/plain
 tests/webtbs/tw9461.pp svneol=native#text/plain
 tests/webtbs/tw9509.pp svneol=native#text/plain
 tests/webtbs/tw9601.pp svneol=native#text/plain

+ 29 - 0
tests/webtbs/tw9450.pp

@@ -0,0 +1,29 @@
+{ This test checks whether the 'extradefines' from compiler/system/i_*.pas   }
+{ are defined before the configuration file is parsed, together with tw9450a }
+
+{$i+}
+var
+  t: text;
+begin
+  assign(t,'tw9450a.cfg');
+  rewrite(t);
+  writeln(t,'-vw');
+{$ifdef unix}
+  writeln(t,'#ifndef unix');
+  writeln(t,'#error Unix not defined in config file');
+  writeln(t,'#endif');
+{$else}
+{$ifdef windows}
+  writeln(t,'#ifndef windows');
+  writeln(t,'#error Windows not defined in config file');
+  writeln(t,'#endif');
+{$else}
+{$ifdef dpmi}
+  writeln(t,'#ifndef dpmi');
+  writeln(t,'#error DPMI not defined in config file');
+  writeln(t,'#endif');
+{$endif}
+{$endif}
+{$endif}
+  close(t);
+end.

+ 4 - 0
tests/webtbs/tw9450a.pp

@@ -0,0 +1,4 @@
+{ %norun }
+{ %opt=[tw9450a.cfg] }
+begin
+end.