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

+ more tests added

Browse Source
This commit is contained in:
pierre 2002-11-05 15:28:39 +00:00
parent b8ea5076ce
commit 67f775263c
1 changed files with 95 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
tests/test/cg/tprintf.pp
View File

@ -12,8 +12,12 @@ type
THandle = longint;
const
l : longint = 45;
ll : int64 = 345;
s : pchar = 'Enclosed text';
s2 : pchar = 'next';
si : single = 32.12;
d : double = 45.45;
e : extended = 74.74;
p : pchar = nil;
has_errors : boolean = false;
@ -30,25 +34,107 @@ begin
sprintf(p,'Text containing "%s" text'#10,[s]);
if strpos(p,'g "Enclosed text" ')=nil then
begin
writeln('The output of sprintf for pchar is wrong:',p);
writeln('The output of sprintf for pchar is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single longint argument');
printf('Text containing longint : %d'#10,[l]);
sprintf(p,'Text containing longint : %d'#10,[l]);
if strpos(p,'longint : 45')=nil then
printf('Text containing longint: %d'#10,[l]);
sprintf(p,'Text containing longint: %d'#10,[l]);
if strpos(p,'longint: 45')=nil then
begin
writeln('The output of sprintf for longint is wrong:',p);
writeln('The output of sprintf for longint is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single int64 argument');
printf('Text containing int64: %lld'#10,[ll]);
sprintf(p,'Text containing int64: %lld'#10,[ll]);
if strpos(p,'int64: 345')=nil then
begin
writeln('The output of sprintf for int64 is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single single argument');
printf('Text containing single: %f'#10,[si]);
sprintf(p,'Text containing single: %f'#10,[si]);
if strpos(p,'single: 32.1')=nil then
begin
writeln('The output of sprintf for double is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single double argument');
printf('Text containing double : %f'#10,[d]);
sprintf(p,'Text containing double : %f'#10,[d]);
if strpos(p,' : 45.45')=nil then
printf('Text containing double: %f'#10,[d]);
sprintf(p,'Text containing double: %f'#10,[d]);
if strpos(p,'double: 45.4')=nil then
begin
writeln('The output of sprintf for double is wrong:',p);
writeln('The output of sprintf for double is wrong: ',p);
has_errors:=true;
end;
printf('Text containing long double: %f'#10,[e]);
sprintf(p,'Text containing long double: %f'#10,[e]);
if strpos(p,'long double: 74.7')=nil then
begin
writeln('The output of sprintf for long double is wrong:',p);
has_errors:=true;
end;
Writeln('Testing with combined pchar argument');
printf('Text containing "%s" and "%s" text'#10,[s,s2]);
sprintf(p,'Text containing "%s" and "%s" text'#10,[s,s2]);
if strpos(p,'g "Enclosed text" and "next"')=nil then
begin
writeln('The output of sprintf for two pchars is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single longint argument and pchar');
printf('Text containing longint: %d"%s"'#10,[l,s2]);
sprintf(p,'Text containing longint: %d"%s"'#10,[l,s2]);
if strpos(p,'longint: 45"next"')=nil then
begin
writeln('The output of sprintf for longint is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single int64 argument and pchar');
printf('Text containing int64: %lld"%s"'#10,[ll,s2]);
sprintf(p,'Text containing int64: %lld"%s"'#10,[ll,s2]);
if strpos(p,'int64: 345"next"')=nil then
begin
writeln('The output of sprintf for int64 is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single single argument');
printf('Text containing single: %f"%s"'#10,[si,s2]);
sprintf(p,'Text containing single: %f"%s"'#10,[si,s2]);
if (strpos(p,'single: 32.1')=nil) or
(strpos(p,'"next"')=nil) then
begin
writeln('The output of sprintf for double is wrong: ',p);
has_errors:=true;
end;
Writeln('Testing with single double argument');
printf('Text containing double: %f"%s"'#10,[d,s2]);
sprintf(p,'Text containing double: %f"%s"'#10,[d,s2]);
if (strpos(p,'double: 45.4')=nil) or
(strpos(p,'"next"')=nil) then
begin
writeln('The output of sprintf for double is wrong: ',p);
has_errors:=true;
end;
printf('Text containing long double: %f"%s"'#10,[e,s2]);
sprintf(p,'Text containing long double: %f"%s"'#10,[e,s2]);
if (strpos(p,'long double: 74.7')=nil) or
(strpos(p,'"next"')=nil) then
begin
writeln('The output of sprintf for long double is wrong:',p);
has_errors:=true;
end;