From a2e8fd9f07a77258fa6f6f445cf1931e6d074f85 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 2 Apr 2000 20:02:00 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/{test => }/dotest.pp |  0
 tests/tbs/tbs0258.pp       | 19 ++++++++++---------
 tests/testopt/testreg1.pp  |  2 +-
 tests/testopt/testreg2.pp  |  2 +-
 4 files changed, 12 insertions(+), 11 deletions(-)
 rename tests/{test => }/dotest.pp (100%)

diff --git a/tests/test/dotest.pp b/tests/dotest.pp
similarity index 100%
rename from tests/test/dotest.pp
rename to tests/dotest.pp
diff --git a/tests/tbs/tbs0258.pp b/tests/tbs/tbs0258.pp
index 5d3fd1cd6c..d6df06efbd 100644
--- a/tests/tbs/tbs0258.pp
+++ b/tests/tbs/tbs0258.pp
@@ -1,3 +1,6 @@
+{$ifdef fpc}
+{$mode tp}
+{$endif fpc}
 program test_set;
 
 uses erroru;
@@ -17,9 +20,7 @@ procedure test;
    begin
       for i:=1 to 32 do x[i]:=$ff;
       i:=1;
-      if i in [1,3,5,8,11,14,15] then
-        writeln('1 is in [1,3,5,8,11,14,15]')
-      else
+      if not(i in [1,3,5,8,11,14,15]) then
         begin
            writeln('Error in set');
            error;
@@ -31,21 +32,21 @@ procedure test;
            error;
         end;
       i:=257;
-      if i in [1,3,5,8,11,14,15] then
+      if not(i in [1,3,5,8,11,14,15]) then
         begin
-           writeln('Error : 257 is in [1,3,5,8,11,14,15]');
+           writeln('Error : 257 isn''t in [1,3,5,8,11,14,15]');
            error;
         end;
       l:=-1;
-      if l in [1,3,5,8,11,14,15,255] then
+      if not(l in [1,3,5,8,11,14,15,255]) then
         begin
-           writeln('Error : -127 is in [1,3,5,8,11,14,15,255]');
+           writeln('Error : -1 isn''t in [1,3,5,8,11,14,15,255]');
            error;
         end;
       i:=257;
-      if l in [1,3,5,8,11,14,15,255] then
+      if not(l in [1,3,5,8,11,14,15,255]) then
         begin
-           writeln('Error : longint(257) is in [1,3,5,8,11,14,15,255]');
+           writeln('Error : longint(257) isn''t in [1,3,5,8,11,14,15,255]');
            error;
         end;
       for i:=1 to 32 do x[i]:=0;
diff --git a/tests/testopt/testreg1.pp b/tests/testopt/testreg1.pp
index cb2b742aaf..285f41a234 100644
--- a/tests/testopt/testreg1.pp
+++ b/tests/testopt/testreg1.pp
@@ -1,4 +1,4 @@
-{$OPT=-Or}
+{ $OPT=-Or}
 {$minenumsize 1}
 
 type
diff --git a/tests/testopt/testreg2.pp b/tests/testopt/testreg2.pp
index 6f425f23d2..02916454c9 100644
--- a/tests/testopt/testreg2.pp
+++ b/tests/testopt/testreg2.pp
@@ -1,4 +1,4 @@
-{$OPT=-Or}
+{ $OPT=-Or}
 {$maxfpuregisters 3}
 uses
    dotest;