tests/test/tunistr1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{$ifdef unix}
uses
  cwstring;
{$endif unix}

var
  w : unicodestring;
  a : ansistring;

begin
  a:='A';
  w:=a;
  if w[1]<>#65 then
    halt(1);
  a:=w;
  if a[1]<>'A' then
    halt(1);
  writeln('ok');
end.