*** empty log message ***

tests/test/twide1.pp

@@ -0,0 +1,19 @@
+{$ifdef unix}
+uses
+  cwstring;
+{$endif unix}
+  
+var
+  w : widestring;
+  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.

tests/test/twide2.pp

@@ -0,0 +1,20 @@
+{$ifdef UNIX}
+uses
+  cwstring;
+{$endif UNIX}
+
+var
+  i : longint;
+  w,w2 : widestring;
+  a : ansistring;
+  
+begin
+  setlength(w,1000);
+  for i:=1 to 1000 do
+    w[i]:=widechar(i);
+  for i:=1 to 10 do
+    begin
+      a:=w;
+      w2:=a;
+    end;
+end.