mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 15:09:14 +02:00
+ added much much more testing of different string types
* str() format depends on size of real
This commit is contained in:
carl
parent
603b3bc48b
commit
ff11b8349f
@ -1,5 +1,6 @@
|
||||
{****************************************************************}
|
||||
{ CODE GENERATOR TEST PROGRAM }
|
||||
{ Copyright (c) 2002, Carl Eric Codere }
|
||||
{****************************************************************}
|
||||
{ NODE TESTED : secondtypeconvert() -> second_string_string }
|
||||
{****************************************************************}
|
||||
@ -10,64 +11,561 @@
|
||||
{ DEFINES: }
|
||||
{ FPC = Target is FreePascal compiler }
|
||||
{****************************************************************}
|
||||
{ REMARKS: }
|
||||
{ }
|
||||
{ REMARKS: Same type short conversion is not tested, except for }
|
||||
{ shortstrings , since it requires special handling. }
|
||||
{ }
|
||||
{ }
|
||||
{****************************************************************}
|
||||
|
||||
{$ifdef fpc}
|
||||
{$mode objfpc}
|
||||
{$ifndef ver1_0}
|
||||
{$define haswidestring}
|
||||
{$endif}
|
||||
{$else}
|
||||
{$ifndef ver70}
|
||||
{$define haswidestring}
|
||||
{$endif}
|
||||
{$endif}
|
||||
|
||||
{ source: }
|
||||
{ LOC_REFERENCE, LOC_MEM }
|
||||
{ destination: }
|
||||
{$H+}
|
||||
|
||||
const
|
||||
{ exactly 255 characters in length }
|
||||
BIG_STRING =
|
||||
' This is a small text documentation to verify the validity of'+
|
||||
' the string conversion routines. Of course the conversion routines'+
|
||||
' should normally work like a charm, and this can only test that there'+
|
||||
' aren''t any problems with maximum length strings. This fix!';
|
||||
{ < 255 characters in length }
|
||||
SMALL_STRING = 'This is a small hello!';
|
||||
{ > 255 characters in length }
|
||||
HUGE_STRING_END = ' the goal of this experiment';
|
||||
HUGE_STRING =
|
||||
' This is a huge text documentation to verify the validity of'+
|
||||
' the string conversion routines. Of course the conversion routines'+
|
||||
' should normally work like a charm, and this can only test that there'+
|
||||
' aren''t any problems with maximum length strings. I hope you understand'+
|
||||
HUGE_STRING_END;
|
||||
EMPTY_STRING = '';
|
||||
|
||||
type
|
||||
shortstr = string[127];
|
||||
var
|
||||
s1: string[255];
|
||||
s2: shortstr;
|
||||
ansi1: ansistring;
|
||||
Begin
|
||||
WriteLn('------------------- ANSI/SHORT ------------------------');
|
||||
WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REFERENCE');
|
||||
{ LOC_REFERENCE -> LOC_REFERENCE test }
|
||||
{ SHORTSTRING -> ANSISTRING }
|
||||
ansi1 := 'HELLO WORLD';
|
||||
s1 := 'HELLO WORLD';
|
||||
Write('Value should be ''HELLO WORLD''..');
|
||||
if s1 = ansi1 then
|
||||
str_ansi: ansistring;
|
||||
str_short: shortstring;
|
||||
{$ifdef haswidestring}
|
||||
str_wide : widestring;
|
||||
{$endif}
|
||||
|
||||
|
||||
procedure fail;
|
||||
begin
|
||||
WriteLn('Failure!');
|
||||
Halt(1);
|
||||
end;
|
||||
|
||||
|
||||
procedure test_ansi_to_short;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ ansistring -> shortstring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test ansistring -> shortstring');
|
||||
{ ansistring -> shortstring }
|
||||
str_short := '';
|
||||
str_ansi:='';
|
||||
str_ansi := SMALL_STRING;
|
||||
str_short:=str_ansi;
|
||||
Write('small ansistring -> shortstring...');
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
WriteLn('Failure.');
|
||||
ansi1 := '';
|
||||
s1 := '';
|
||||
Write('Value should be ''''...');
|
||||
if s1 = ansi1 then
|
||||
fail;
|
||||
|
||||
str_short := '';
|
||||
str_ansi:='';
|
||||
str_ansi := EMPTY_STRING;
|
||||
str_short:=str_ansi;
|
||||
Write('empty ansistring -> shortstring...');
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
WriteLn('Failure.');
|
||||
{ LOC_REFERENCE -> LOC_REFERENCE test }
|
||||
{ SHORTSTRING -> SHORTSTRING }
|
||||
WriteLn('------------------- SHORT/SHORT ------------------------');
|
||||
WriteLn('(left) : LOC_REFERENCE; (right) : LOC_REFERENCE');
|
||||
s1 := 'HELLO THIS WORLD';
|
||||
s2 := 'HELLO THIS WORLD';
|
||||
Write('Value should be ''HELLO THIS WORLD''...');
|
||||
if shortstr(s1) = s2 then
|
||||
fail;
|
||||
|
||||
|
||||
str_short := '';
|
||||
str_ansi:='';
|
||||
str_ansi := BIG_STRING;
|
||||
str_short:=str_ansi;
|
||||
Write('big ansistring -> shortstring...');
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
WriteLn('Failure.');
|
||||
s1 := '';
|
||||
fail;
|
||||
|
||||
|
||||
Write('huge ansistring -> shortstring...');
|
||||
str_short := '';
|
||||
str_ansi:='';
|
||||
str_ansi := HUGE_STRING;
|
||||
str_short:=str_ansi;
|
||||
{ Delphi 3/Delphi 6 does not consider these as the same string }
|
||||
if str_short <> str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
{}
|
||||
s2 := '';
|
||||
Write('Value should be ''''...');
|
||||
if shortstr(s1) = s2 then
|
||||
str_ansi:='';
|
||||
str_ansi := SMALL_STRING;
|
||||
s2:=str_ansi;
|
||||
Write('small ansistring -> shortstring...');
|
||||
if s2 = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
WriteLn('Failure.');
|
||||
fail;
|
||||
|
||||
s2 := '';
|
||||
str_ansi:='';
|
||||
str_ansi := EMPTY_STRING;
|
||||
s2:=str_ansi;
|
||||
Write('empty ansistring -> shortstring...');
|
||||
if s2 = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
s2 := '';
|
||||
str_ansi:='';
|
||||
str_ansi := BIG_STRING;
|
||||
s2:=str_ansi;
|
||||
Write('big ansistring -> shortstring...');
|
||||
{ Should fail, since comparing different string lengths }
|
||||
if s2 <> str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
s2 := '';
|
||||
str_ansi:='';
|
||||
str_ansi := HUGE_STRING;
|
||||
s2:=str_ansi;
|
||||
Write('huge ansistring -> shortstring...');
|
||||
{ Should fail, since comparing different string lengths }
|
||||
if s2 <> str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
end;
|
||||
|
||||
|
||||
procedure test_short_to_short;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ shortstring -> shortstring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test shortstring -> shortstring...');
|
||||
{ shortstring -> shortstring }
|
||||
str_short := '';
|
||||
s2:='';
|
||||
s2 := SMALL_STRING;
|
||||
str_short:=s2;
|
||||
Write('small shortstring -> shortstring...');
|
||||
if str_short = s2 then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
str_short := '';
|
||||
s2:='';
|
||||
s2 := EMPTY_STRING;
|
||||
str_short:=s2;
|
||||
Write('empty shortstring -> shortstring...');
|
||||
if str_short = s2 then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
{$ifdef fpc}
|
||||
{ Delphi does not compile these }
|
||||
str_short := '';
|
||||
s2:='';
|
||||
s2 := BIG_STRING;
|
||||
str_short:=s2;
|
||||
Write('big shortstring -> shortstring...');
|
||||
if str_short = s2 then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
|
||||
str_short := '';
|
||||
s2:='';
|
||||
s2 := HUGE_STRING;
|
||||
str_short:=s2;
|
||||
Write('huge shortstring -> shortstring...');
|
||||
{ Delphi 3/Delphi 6 does not consider these as the same string }
|
||||
if str_short = s2 then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
{$endif}
|
||||
|
||||
s2 := '';
|
||||
str_short:='';
|
||||
str_short := SMALL_STRING;
|
||||
Write('small shortstring -> shortstring...');
|
||||
s2:=str_short;
|
||||
if s2 = str_short then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
s2 := '';
|
||||
str_short:='';
|
||||
str_short := EMPTY_STRING;
|
||||
Write('empty shortstring -> shortstring...');
|
||||
s2:=str_short;
|
||||
if s2 = str_short then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
s2 := '';
|
||||
str_short:='';
|
||||
str_short := BIG_STRING;
|
||||
Write('big shortstring -> shortstring...');
|
||||
s2:=str_short;
|
||||
{ Should fail, since comparing different string lengths }
|
||||
if s2 <> str_short then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
{$ifdef fpc}
|
||||
s2 := '';
|
||||
str_short:='';
|
||||
str_short := HUGE_STRING;
|
||||
Write('huge shortstring -> shortstring...');
|
||||
s2:=str_short;
|
||||
{ Should fail, since comparing different string lengths }
|
||||
if s2 <> str_short then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
procedure test_short_to_ansi;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ shortstring -> ansistring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test shortstring -> ansistring');
|
||||
Write('small shortstring -> ansistring...');
|
||||
{ shortstring -> ansistring }
|
||||
str_short := SMALL_STRING;
|
||||
str_ansi:=str_short;
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty shortstring -> ansistring...');
|
||||
str_short := EMPTY_STRING;
|
||||
str_ansi:=str_short;
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('big shortstring -> ansistring...');
|
||||
str_short := BIG_STRING;
|
||||
str_ansi:=str_short;
|
||||
if str_short = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('small shortstring -> ansistring...');
|
||||
{ shortstring -> ansistring }
|
||||
s2 := SMALL_STRING;
|
||||
str_ansi:=s2;
|
||||
if s2 = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty shortstring -> ansistring...');
|
||||
s2 := EMPTY_STRING;
|
||||
str_ansi:=s2;
|
||||
if s2 = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
{$ifdef haswidestring}
|
||||
procedure test_wide_to_ansi;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ widestring -> ansistring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test widestring -> ansistring');
|
||||
Write('small widestring -> ansistring...');
|
||||
{ widestring -> ansistring }
|
||||
str_wide := SMALL_STRING;
|
||||
str_ansi:=str_wide;
|
||||
if str_wide = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty widestring -> ansistring...');
|
||||
str_wide := EMPTY_STRING;
|
||||
str_ansi:=str_wide;
|
||||
if str_wide = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('big widestring -> ansistring...');
|
||||
str_wide := BIG_STRING;
|
||||
str_ansi:=str_wide;
|
||||
if str_wide = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('huge widestring -> ansistring...');
|
||||
str_wide := HUGE_STRING;
|
||||
str_ansi:=str_wide;
|
||||
if str_wide = str_ansi then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure test_short_to_wide;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ shortstring -> widestring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test shortstring -> widestring');
|
||||
Write('small shortstring -> widestring...');
|
||||
{ shortstring -> widestring }
|
||||
str_short := SMALL_STRING;
|
||||
str_wide:=str_short;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty shortstring -> widestring...');
|
||||
str_short := EMPTY_STRING;
|
||||
str_wide:=str_short;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('big shortstring -> widestring...');
|
||||
str_short := BIG_STRING;
|
||||
str_wide:=str_short;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('small shortstring -> widestring...');
|
||||
{ shortstring -> widestring }
|
||||
s2 := SMALL_STRING;
|
||||
str_wide:=s2;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty shortstring -> widestring...');
|
||||
s2 := EMPTY_STRING;
|
||||
str_wide:=s2;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
procedure test_ansi_to_wide;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ ansistring -> widestring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test ansistring -> widestring');
|
||||
Write('small ansistring -> widestring...');
|
||||
{ ansistring -> widestring }
|
||||
str_ansi := SMALL_STRING;
|
||||
str_wide:=str_ansi;
|
||||
if str_ansi = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty ansistring -> widestring...');
|
||||
str_ansi := EMPTY_STRING;
|
||||
str_wide:=str_ansi;
|
||||
if str_ansi = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('big ansistring -> widestring...');
|
||||
str_ansi := BIG_STRING;
|
||||
str_wide:=str_ansi;
|
||||
if str_ansi = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('small ansistring -> widestring...');
|
||||
{ ansistring -> widestring }
|
||||
s2 := SMALL_STRING;
|
||||
str_wide:=s2;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty ansistring -> widestring...');
|
||||
s2 := EMPTY_STRING;
|
||||
str_wide:=s2;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure test_wide_to_short;
|
||||
begin
|
||||
{************************************************************************}
|
||||
{ widestring -> shortstring }
|
||||
{************************************************************************}
|
||||
WriteLn('Test widestring -> shortstring');
|
||||
{ widestring -> shortstring }
|
||||
str_short := '';
|
||||
str_wide:='';
|
||||
str_wide := SMALL_STRING;
|
||||
Write('small widestring -> shortstring...');
|
||||
str_short:=str_wide;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
str_short := '';
|
||||
str_wide:='';
|
||||
str_wide := EMPTY_STRING;
|
||||
Write('empty widestring -> shortstring...');
|
||||
str_short:=str_wide;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
|
||||
Write('big widestring -> shortstring...');
|
||||
str_short := '';
|
||||
str_wide:='';
|
||||
str_wide := BIG_STRING;
|
||||
str_short:=str_wide;
|
||||
if str_short = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('huge widestring -> shortstring...');
|
||||
str_wide := HUGE_STRING;
|
||||
str_short:=str_wide;
|
||||
if str_short <> str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
{}
|
||||
Write('small widestring -> shortstring...');
|
||||
s2 := '';
|
||||
str_wide:='';
|
||||
str_wide := SMALL_STRING;
|
||||
s2:=str_wide;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('empty widestring -> shortstring...');
|
||||
s2 := '';
|
||||
str_wide:='';
|
||||
str_wide := EMPTY_STRING;
|
||||
s2:=str_wide;
|
||||
if s2 = str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('big widestring -> shortstring...');
|
||||
s2 := '';
|
||||
str_wide:='';
|
||||
str_wide := BIG_STRING;
|
||||
s2:=str_wide;
|
||||
if s2 <> str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
|
||||
Write('huge widestring -> shortstring...');
|
||||
s2 := '';
|
||||
str_wide:='';
|
||||
str_wide := HUGE_STRING;
|
||||
s2:=str_wide;
|
||||
if s2 <> str_wide then
|
||||
WriteLn('Success.')
|
||||
else
|
||||
fail;
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
Begin
|
||||
test_ansi_to_short;
|
||||
test_short_to_short;
|
||||
test_short_to_ansi;
|
||||
{ requires widestring support }
|
||||
{$ifdef haswidestring}
|
||||
test_short_to_wide;
|
||||
test_ansi_to_wide;
|
||||
test_wide_to_short;
|
||||
test_wide_to_ansi;
|
||||
{$endif}
|
||||
End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 2002-09-07 15:40:55 peter
|
||||
Revision 1.3 2002-10-02 19:26:49 carl
|
||||
+ added much much more testing of different string types
|
||||
* str() format depends on size of real
|
||||
|
||||
Revision 1.2 2002/09/07 15:40:55 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
}
|
||||
|
||||
@ -1,3 +1,14 @@
|
||||
|
||||
{$ifdef fpc}
|
||||
{$ifndef ver1_0}
|
||||
{$define haswidestring}
|
||||
{$endif}
|
||||
{$else}
|
||||
{$ifndef ver70}
|
||||
{$define haswidestring}
|
||||
{$endif}
|
||||
{$endif}
|
||||
|
||||
procedure test_shortstr;
|
||||
type
|
||||
tlocalstring = shortstring;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user