Browse Source

* compiles with BP

pierre 26 years ago
parent
commit
408c5a7a3a
2 changed files with 14 additions and 12 deletions
  1. 8 0
      tests/test/testchar.pp
  2. 6 12
      tests/test/testchr2.pp

+ 8 - 0
tests/test/testchar.pp

@@ -126,21 +126,29 @@ begin
   testvalueconv(car6_1);
   testvalueconv(car6_1);
   getmem(pc,256);
   getmem(pc,256);
   pc:='Long Test';
   pc:='Long Test';
+{$ifdef FPC this is not allowed in BP !}
   testvalueconv(pc);
   testvalueconv(pc);
+{$endif def FPC this is not allowed in BP !}
   testconstconv('AB');
   testconstconv('AB');
   testconstconv('ABCDEFG');
   testconstconv('ABCDEFG');
   testconstconv(st4_1);
   testconstconv(st4_1);
   testconstconv(cst6_2);
   testconstconv(cst6_2);
+{$ifdef FPC this is not allowed in BP !}
   testconstconv(pc);
   testconstconv(pc);
+{$endif def FPC this is not allowed in BP !}
   testvarconv(st4_2);
   testvarconv(st4_2);
   testvarconv(cst4_1);
   testvarconv(cst4_1);
+{$ifdef FPC this is not allowed in BP !}
   testvarconv(st6_1);
   testvarconv(st6_1);
   testvarconv(cst8_1);
   testvarconv(cst8_1);
+{$endif def FPC this is not allowed in BP !}
   { testvarconv(pc); this one fails at compilation }
   { testvarconv(pc); this one fails at compilation }
   testvarconv2(st4_2);
   testvarconv2(st4_2);
   testvarconv2(cst4_1);
   testvarconv2(cst4_1);
+{$ifdef FPC this is not allowed in BP !}
   testvarconv2(st6_1);
   testvarconv2(st6_1);
   testvarconv2(cst8_1);
   testvarconv2(cst8_1);
+{$endif def FPC this is not allowed in BP !}
   if has_errors then
   if has_errors then
     begin
     begin
       Writeln('There are still problems with arrays of char');
       Writeln('There are still problems with arrays of char');

+ 6 - 12
tests/test/testchr2.pp

@@ -60,14 +60,6 @@ const
       Error('string length too big in calling var arg');
       Error('string length too big in calling var arg');
   end;
   end;
 
 
-  procedure testvarconv2(var st : string4);
-  begin
-    Writeln('st=',st);
-    Writeln('Length(st)=',Length(st));
-    If Length(st)>4 then
-      Error('string length too big in calling var arg without openstring');
-  end;
-
 begin
 begin
   { compare array of char to constant strings }
   { compare array of char to constant strings }
   Writeln('Testing if "',car4_1,'" is equal to "',cst4_1,'"');
   Writeln('Testing if "',car4_1,'" is equal to "',cst4_1,'"');
@@ -125,21 +117,23 @@ begin
   testvalueconv(car6_1);
   testvalueconv(car6_1);
   getmem(pc,256);
   getmem(pc,256);
   pc:='Long Test';
   pc:='Long Test';
+{$ifdef FPC this is not allowed in BP !}
   testvalueconv(pc);
   testvalueconv(pc);
+{$endif def FPC this is not allowed in BP !}
   testconstconv('AB');
   testconstconv('AB');
   testconstconv('ABCDEFG');
   testconstconv('ABCDEFG');
   testconstconv(st4_1);
   testconstconv(st4_1);
   testconstconv(cst6_2);
   testconstconv(cst6_2);
+{$ifdef FPC this is not allowed in BP !}
   testconstconv(pc);
   testconstconv(pc);
+{$endif def FPC this is not allowed in BP !}
   testvarconv(st4_2);
   testvarconv(st4_2);
   testvarconv(cst4_1);
   testvarconv(cst4_1);
+{$ifdef FPC this is not allowed in BP !}
   testvarconv(st6_1);
   testvarconv(st6_1);
   testvarconv(cst8_1);
   testvarconv(cst8_1);
+{$endif def FPC this is not allowed in BP !}
   { testvarconv(pc); this one fails at compilation }
   { testvarconv(pc); this one fails at compilation }
-  testvarconv2(st4_2);
-  testvarconv2(cst4_1);
-  testvarconv2(st6_1);
-  testvarconv2(cst8_1);
   if has_errors then
   if has_errors then
     begin
     begin
       Writeln('There are still problems with arrays of char');
       Writeln('There are still problems with arrays of char');