* new test

git-svn-id: trunk@2504 -

.gitattributes

@@ -6723,6 +6723,7 @@ tests/webtbs/tw4640.pp svneol=native#text/plain
 tests/webtbs/tw4669.pp svneol=native#text/plain
 tests/webtbs/tw4675.pp svneol=native#text/plain
 tests/webtbs/tw4700.pp svneol=native#text/plain
+tests/webtbs/tw4763.pp svneol=native#text/plain
 tests/webtbs/tw4768.pp -text
 tests/webtbs/tw4789.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain

tests/webtbs/tw4763.pp

@@ -0,0 +1,23 @@
+{$mode objfpc}{H+}
+program test_widestrings;
+var
+  W: WideString;
+begin
+  W := '123456';
+  if Length(W)<>6 then
+    begin
+      WriteLn('Test1 Failed, it''s ', Length(W));
+      halt(1);
+    end
+  else
+    WriteLn('Test1 Passed');
+
+  SetLength(W, 6);
+  if Length(W)<>6 then
+    begin
+      WriteLn('Test2 Failed, it''s ', Length(W));
+      halt(1);
+    end
+  else
+    WriteLn('Test2 Passed');
+end.