mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
867fc54147
--- Reverse-merging r19117 into '.': U tests\tbs\tb0349.pp U tests\tbs\tb0503.pp G . --- Recording mergeinfo for reverse merge of r19117 into '.': G . git-svn-id: trunk@19136 -
42 lines
587 B
ObjectPascal
42 lines
587 B
ObjectPascal
procedure testansi;
|
|
var
|
|
s, q: ansistring;
|
|
begin
|
|
s := 'hell';
|
|
s := s+'o';
|
|
q := '"';
|
|
q := q+'''';
|
|
s := s + q + s + 'abc';
|
|
if (s <> 'hello"''helloabc') then
|
|
halt(1);
|
|
s := 'hell';
|
|
s := s+'o';
|
|
s := q+s+q;
|
|
if (s <> '"''hello"''') then
|
|
halt(2);
|
|
end;
|
|
|
|
|
|
procedure testshort;
|
|
var
|
|
s, q: shortstring;
|
|
begin
|
|
s := 'hell';
|
|
s := s+'o';
|
|
q := '"';
|
|
q := q+'''';
|
|
s := s + q + s + 'abc';
|
|
if (s <> 'hello"''helloabc') then
|
|
halt(3);
|
|
s := 'hell';
|
|
s := s+'o';
|
|
s := q+s+q;
|
|
if (s <> '"''hello"''') then
|
|
halt(4);
|
|
end;
|
|
|
|
begin
|
|
testansi;
|
|
testshort;
|
|
end.
|