* new test

git-svn-id: trunk@7423 -

.gitattributes

@@ -8182,6 +8182,7 @@ tests/webtbs/tw8140f.pp svneol=native#text/plain
 tests/webtbs/tw8140g.pp svneol=native#text/plain
 tests/webtbs/tw8140h.pp svneol=native#text/plain
 tests/webtbs/tw8141.pp svneol=native#text/plain
+tests/webtbs/tw8144.pp svneol=native#text/plain
 tests/webtbs/tw8145.pp svneol=native#text/plain
 tests/webtbs/tw8148.pp svneol=native#text/plain
 tests/webtbs/tw8150a.pp svneol=native#text/plain

tests/webtbs/tw8144.pp

@@ -0,0 +1,19 @@
+
+function DoCheck(Key:WideChar):boolean;
+begin
+ DoCheck:=(Key in [WideChar(#0), WideChar(#8), WideChar(#10),
+    WideChar(#13), WideChar(#27), WideChar(#127)]);
+end;
+
+var
+  Key:WideChar;
+  err : boolean;
+begin
+  for Key:=WideChar(128) to WideChar(2048) do
+   if DoCheck(Key) then
+    begin
+     writeln(word(Key),' (',Key,') in set');
+     err:=true;
+    end;
+  if err then halt(1);
+end.