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

+ string_string conversion test

Browse Source
This commit is contained in:
carl 2001-06-19 01:49:06 +00:00
parent 1d7e2bb6cb
commit 1096332975
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
tests/test/cg/tcnvstr1.pp Normal file
View File

@ -0,0 +1,74 @@
{****************************************************************}
{ CODE GENERATOR TEST PROGRAM }
{****************************************************************}
{ NODE TESTED : secondtypeconvert() -> second_string_string }
{****************************************************************}
{ PRE-REQUISITES: secondload() }
{ secondassign() }
{ secondtypeconv() }
{****************************************************************}
{ DEFINES: }
{ FPC = Target is FreePascal compiler }
{****************************************************************}
{ REMARKS: }
{ }
{ }
{ }
{****************************************************************}
{ source: }
{ LOC_REFERENCE, LOC_MEM }
{ destination: }
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
WriteLn('Success.')
else
WriteLn('Failure.');
ansi1 := '';
s1 := '';
Write('Value should be ''''...');
if s1 = ansi1 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
WriteLn('Success.')
else
WriteLn('Failure.');
s1 := '';
s2 := '';
Write('Value should be ''''...');
if shortstr(s1) = s2 then
WriteLn('Success.')
else
WriteLn('Failure.');
End.
{
$Log$
Revision 1.1 2001-06-19 01:49:06 carl
+ string_string conversion test
}