Gemfury - usr/share/fpcsrc/3.0.0/tests/test/units/fpwidestring/tunistr1fpwidestring.pp · bee / fpc-src v3.0.0 - deb package

bee / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / units / fpwidestring / tunistr1fpwidestring.pp

uses
  unicodeducet, fpwidestring;

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.