From 1872bac94a487b638b857d0cf38a3db84c58d9da Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 17 Mar 2005 19:08:04 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/test/twide1.pp | 19 +++++++++++++++++++
 tests/test/twide2.pp | 20 ++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 tests/test/twide1.pp
 create mode 100644 tests/test/twide2.pp

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