paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test so it really uses random values for the boolean, thanks Jonas for the hint!

Browse Source 
git-svn-id: trunk@48887 -
This commit is contained in:
florian 2021-03-06 15:16:29 +00:00
parent 83ce289ea4
commit ba0f08018f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tandorandnot1.pp
View File

@ -41,11 +41,11 @@ procedure test_boolean;
begin begin
for i:=1 to 100 do for i:=1 to 100 do
begin begin
a:=boolean(random(1)); a:=boolean(random(2));
_a:=a; _a:=a;
b:=boolean(random(1)); b:=boolean(random(2));
_b:=b; _b:=b;
c:=boolean(random(1)); c:=boolean(random(2));
_c:=c; _c:=c;
if (a and b) or (c and not(b))<>_c xor ((_c xor _a) and _b) then if (a and b) or (c and not(b))<>_c xor ((_c xor _a) and _b) then
begin begin
@ -87,7 +87,7 @@ procedure test_pboolean;
_b:=b^; _b:=b^;
c:=nil; c:=nil;
{ c should not matter in this case } { c should not matter in this case }
_c:=boolean(random(1)); _c:=boolean(random(2));
if (a^ and b^) or (c^ and not(b^))<>_c xor ((_c xor _a) and _b) then if (a^ and b^) or (c^ and not(b^))<>_c xor ((_c xor _a) and _b) then
begin begin
writeln('Error: ','a=',a^,'b=',b^,'c=',c^); writeln('Error: ','a=',a^,'b=',b^,'c=',c^);