[utf8vcl-cvs] utf8vcl TestForm.pas,1.22,1.23

[Bart v. d. W. <blu...@us...>]

Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv32314

Modified Files:
	TestForm.pas 
Log Message:
Extend teststring to contain much more diverse charactersets.


Index: TestForm.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** TestForm.pas	18 Mar 2007 21:47:34 -0000	1.22
--- TestForm.pas	19 Mar 2007 20:23:53 -0000	1.23
***************
*** 66,71 ****
  
  const
!   TestText1 = 'I'#$C3#$B1#$74#$C3#$AB#$72#$6E#$C3#$A2;
!   TestText2 = 't'#$D1#$96#$C3#$B4#$6E#$C3#$A0#$6C#$D1#$96#$7A#$C3#$A6#$74#$D1#$96#$C3#$B8#$6E;
    TestText = TestText1 + TestText2;
  
--- 66,71 ----
  
  const
!   TestText1 = 'I'#$C3#$B1#$DB#$B3#$C3#$AB#$72#$D7#$90#$C3#$A2;
!   TestText2 = 't'#$D1#$96#$C3#$B4#$EF#$A7#$A7#$C3#$A0#$6C#$D1#$96#$7A#$C3#$A6#$74#$E2#$98#$BA#$6E;
    TestText = TestText1 + TestText2;
  
***************
*** 178,181 ****
--- 178,185 ----
    S := TestText;
    Wide := S;
+   S := Wide;
+   Assert( S = TestText);
+ 
+   FatalAppExitW(0, PWideChar(Wide));
  
    ShowMessage(Wide);