Browse Source

* improved test as proposed by Rika

florian 3 years ago
parent
commit
2670eb1ce7
1 changed files with 7 additions and 6 deletions
  1. 7 6
      tests/webtbs/tw39722.pp

+ 7 - 6
tests/webtbs/tw39722.pp

@@ -1,3 +1,4 @@
+{ %norun }
 { %opt=-dtest\$FPCCPU -dtest\$FPCOS -dtest\$FPCCPUtest -dtest\$FPCOStest }
 { %opt=-dtest\$FPCCPU -dtest\$FPCOS -dtest\$FPCCPUtest -dtest\$FPCOStest }
 
 
 begin
 begin
@@ -6,12 +7,12 @@ begin
 {$ifdef testx86_64}
 {$ifdef testx86_64}
   writeln('ok 1');
   writeln('ok 1');
 {$else testx86_64}
 {$else testx86_64}
-  halt(1);
+  {$error default replacements failed}
 {$endif testx86_64}
 {$endif testx86_64}
 {$ifdef testx86_64test}
 {$ifdef testx86_64test}
   writeln('ok 2');
   writeln('ok 2');
 {$else testx86_64test}
 {$else testx86_64test}
-  halt(1);
+  {$error default replacements failed}
 {$endif testx86_64test}
 {$endif testx86_64test}
 {$endif CPUX86_64}
 {$endif CPUX86_64}
 
 
@@ -19,12 +20,12 @@ begin
 {$ifdef testaarch64}
 {$ifdef testaarch64}
   writeln('ok 1');
   writeln('ok 1');
 {$else testaarch64}
 {$else testaarch64}
-  halt(1);
+  {$error default replacements failed}
 {$endif testaarch64}
 {$endif testaarch64}
 {$ifdef testaarch64test}
 {$ifdef testaarch64test}
   writeln('ok 2');
   writeln('ok 2');
 {$else testaarch64test}
 {$else testaarch64test}
-  halt(1);
+  {$error default replacements failed}
 {$endif testaarch64test}
 {$endif testaarch64test}
 {$endif CPUAARCH64}
 {$endif CPUAARCH64}
 
 
@@ -32,12 +33,12 @@ begin
 {$ifdef testlinux}
 {$ifdef testlinux}
   writeln('ok 1');
   writeln('ok 1');
 {$else testlinux}
 {$else testlinux}
-  halt(1);
+  {$error default replacements failed}
 {$endif testlinux}
 {$endif testlinux}
 {$ifdef testlinuxtest}
 {$ifdef testlinuxtest}
   writeln('ok 2');
   writeln('ok 2');
 {$else testlinuxtest}
 {$else testlinuxtest}
-  halt(1);
+  {$error default replacements failed}
 {$endif testlinuxtest}
 {$endif testlinuxtest}
 {$endif LINUX}
 {$endif LINUX}
 end.
 end.