diff --git a/tests/test/twide1.pp b/tests/test/twide1.pp
new file mode 100644
index 0000000000..5e4bc968d6
--- /dev/null
+++ b/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.
diff --git a/tests/test/twide2.pp b/tests/test/twide2.pp
new file mode 100644
index 0000000000..72591cea1f
--- /dev/null
+++ b/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.
\ No newline at end of file