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

+ string -> char conversion testing

Browse Source
This commit is contained in:
carl 2002-10-03 17:52:36 +00:00
parent 221c0047bf
commit ba0fda7e45
1 changed files with 148 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
tests/test/cg/tcnvstr3.pp Normal file
View File

@ -0,0 +1,148 @@
{ Type conversion program for char -> string }
{ possible types widechar -> widestring }
{ widechar -> shortstring }
{ widechar -> ansistring }
{ possible types char -> widestring }
{ char -> shortstring }
{ char -> ansistring }
{$ifdef fpc}
{$mode objfpc}
{$ifndef ver1_0}
{$define haswidestring}
{$endif}
{$else}
{$ifndef ver70}
{$define haswidestring}
{$endif}
{$endif}
procedure fail;
begin
WriteLn('Failure!');
halt(1);
end;
var
str_ansi : ansistring;
str_short : shortstring;
{$ifdef haswidestring}
str_wide : widestring;
wc : widechar;
{$endif haswidestring}
c: char;
_result : boolean;
Begin
{********************** char/widechar -> shortstring *******************}
Write('widechar/char -> shortstring...');
{* normal char *}
_result := true;
{ empty string -> shortstring }
str_short := '';
if str_short <> '' then
_result := false;
{ constant char -> shortstring }
str_short := 'c';
if str_short <> 'c' then
_result := false;
{ normal char -> shortstring }
str_short := '';
c:='c';
str_short:=c;
if str_short <> 'c' then
_result := false;
{* wide char *}
{$ifdef haswidestring}
{ constant char -> shortstring }
str_short := shortstring(widechar('c'));
if str_short <> 'c' then
_result := false;
{$endif}
{ wide char -> shortstring }
{ This should not compile - at least it does not compile under Delphi }
{ str_short := '';
wc:='c';
str_short:=wc;
if str_short <> 'c' then
_result := false;}
if _result then
WriteLn('Success!')
else
fail;
{********************** char/widechar -> ansistring *******************}
Write('widechar/char -> ansistring...');
{* normal char *}
_result := true;
{ empty string -> ansistring }
str_ansi := '';
if str_ansi <> '' then
_result := false;
{ constant char -> ansistring }
str_ansi := 'c';
if str_ansi <> 'c' then
_result := false;
{ normal char -> ansistring }
str_ansi := '';
c:='c';
str_ansi:=c;
if str_ansi <> 'c' then
_result := false;
{* wide char *}
{$ifdef haswidestring}
{ constant char -> ansistring }
str_ansi := widechar('c');
if str_ansi <> 'c' then
_result := false;
{ normal char -> ansistring }
str_ansi := '';
wc:='c';
str_ansi:=wc;
if str_ansi <> 'c' then
_result := false;
{$endif}
if _result then
WriteLn('Success!')
else
fail;
{}
{$ifdef haswidestring}
{********************** char/widechar -> widestring *******************}
Write('widechar/char -> widestring...');
{* normal char *}
_result := true;
{ empty string -> widestring }
str_wide := '';
if str_wide <> '' then
_result := false;
{ constant char -> widestring }
str_wide := 'c';
if str_wide <> 'c' then
_result := false;
{ normal char -> widestring }
str_wide := '';
c:='c';
str_wide:=c;
if str_wide <> 'c' then
_result := false;
{* wide char *}
{ constant char -> widestring }
str_wide := widechar('c');
if str_wide <> 'c' then
_result := false;
{ normal char -> widestring }
str_wide := '';
wc:='c';
str_wide:=wc;
if str_wide <> 'c' then
_result := false;
if _result then
WriteLn('Success!')
else
fail;
{$endif haswidestring}
end.