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

* fixed output of test if a failure happens

Browse Source 
git-svn-id: trunk@26505 -
This commit is contained in:
florian 2014-01-18 12:08:02 +00:00
parent 3a3197ae9c
commit 0e67ca6419
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test/tbsx1.pp
View File

@ -19,7 +19,7 @@ begin
r:=BsrByte(x8); r:=BsrByte(x8);
if r<>i then if r<>i then
begin begin
writeln('BsrByte(',x8,') returned ',f,', should be ',i); writeln('BsrByte(',x8,') returned ',r,', should be ',i);
exit(false); exit(false);
end; end;
end; end;
@ -33,7 +33,7 @@ begin
r:=BsrByte(x8); r:=BsrByte(x8);
if r<>$ff then if r<>$ff then
begin begin
writeln('BsrByte(',x8,') returned ',f,', should be ',$ff); writeln('BsrByte(',x8,') returned ',r,', should be ',$ff);
exit(false); exit(false);
end; end;
result:=true; result:=true;
@ -56,7 +56,7 @@ begin
r:=BsrWord(x16); r:=BsrWord(x16);
if r<>i then if r<>i then
begin begin
writeln('BsrWord(',x16,') returned ',f,', should be ',i); writeln('BsrWord(',x16,') returned ',r,', should be ',i);
exit(false); exit(false);
end; end;
end; end;
@ -70,7 +70,7 @@ begin
r:=BsrWord(x16); r:=BsrWord(x16);
if r<>$ff then if r<>$ff then
begin begin
writeln('BsrWord(',x16,') returned ',f,', should be ',$ff); writeln('BsrWord(',x16,') returned ',r,', should be ',$ff);
exit(false); exit(false);
end; end;
result:=true; result:=true;
@ -93,7 +93,7 @@ begin
r:=BsrDWord(x32); r:=BsrDWord(x32);
if r<>i then if r<>i then
begin begin
writeln('BsrDWord(',x32,') returned ',f,', should be ',i); writeln('BsrDWord(',x32,') returned ',r,', should be ',i);
exit(false); exit(false);
end; end;
end; end;
@ -107,7 +107,7 @@ begin
r:=BsrDWord(x32); r:=BsrDWord(x32);
if r<>$ff then if r<>$ff then
begin begin
writeln('BsrDWord(',x32,') returned ',f,', should be ',$ff); writeln('BsrDWord(',x32,') returned ',r,', should be ',$ff);
exit(false); exit(false);
end; end;
result:=true; result:=true;
@ -142,7 +142,7 @@ begin
r:=BsrQWord(x64); r:=BsrQWord(x64);
if r<>$ff then if r<>$ff then
begin begin
writeln('BsrQWord(',x64,') returned ',f,', should be ',$ff); writeln('BsrQWord(',x64,') returned ',r,', should be ',$ff);
exit(false); exit(false);
end; end;
result:=true; result:=true;