From 4f7dffadbbc11c11a7fe4d790a562d3e78e4445e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 22 Aug 2022 21:33:52 +0200
Subject: [PATCH]   * extended test

---
 tests/webtbs/tw39722.pp | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/tests/webtbs/tw39722.pp b/tests/webtbs/tw39722.pp
index 4adb1121ac..4f7569eaad 100644
--- a/tests/webtbs/tw39722.pp
+++ b/tests/webtbs/tw39722.pp
@@ -1,28 +1,43 @@
-{ %opt=-dtest\$FPCCPU -dtest\$FPCOS }
+{ %opt=-dtest\$FPCCPU -dtest\$FPCOS -dtest\$FPCCPUtest -dtest\$FPCOStest }
 
 begin
 { test the most frequent combinations }
 {$ifdef CPUX86_64}
 {$ifdef testx86_64}
-  writeln('ok');
+  writeln('ok 1');
 {$else testx86_64}
   halt(1);
 {$endif testx86_64}
+{$ifdef testx86_64test}
+  writeln('ok 2');
+{$else testx86_64test}
+  halt(1);
+{$endif testx86_64test}
 {$endif CPUX86_64}
 
 {$ifdef CPUAARCH64}
 {$ifdef testaarch64}
-  writeln('ok');
+  writeln('ok 1');
 {$else testaarch64}
   halt(1);
 {$endif testaarch64}
+{$ifdef testaarch64test}
+  writeln('ok 2');
+{$else testaarch64test}
+  halt(1);
+{$endif testaarch64test}
 {$endif CPUAARCH64}
 
 {$ifdef LINUX}
 {$ifdef testlinux}
-  writeln('ok');
+  writeln('ok 1');
 {$else testlinux}
   halt(1);
 {$endif testlinux}
+{$ifdef testlinuxtest}
+  writeln('ok 2');
+{$else testlinuxtest}
+  halt(1);
+{$endif testlinuxtest}
 {$endif LINUX}
 end.