From ddd4d8bbae1cf4aa1d8bd31656a421f3be684bba Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 23 May 2004 14:14:43 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0474.pp | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 tests/tbs/tb0474.pp

diff --git a/tests/tbs/tb0474.pp b/tests/tbs/tb0474.pp
new file mode 100644
index 0000000000..8150bf3a61
--- /dev/null
+++ b/tests/tbs/tb0474.pp
@@ -0,0 +1,33 @@
+{ $mode objfpc}
+const
+  WideNull = widechar(#0);
+  WideSpace = widechar(#32);
+
+var
+  w : widechar;
+  w2,w3 : widechar;
+begin
+  w:=WideSpace;
+  w3:=WideSpace;
+  w2:=WideNull;
+  if not(w in [WideSpace]) then
+    begin
+      writeln('error 1');
+      halt(1);
+    end;
+  if not(w in [WideNull..WideSpace]) then
+    begin
+      writeln('error 2');
+      halt(1);
+    end;
+  if not(w in [WideNull..WideSpace,w3]) then
+    begin
+      writeln('error 3');
+      halt(1);
+    end;
+  if not(w in [WideNull..WideSpace,w2..w3]) then
+    begin
+      writeln('error 4');
+      halt(1);
+    end;
+end.