Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

tests: fixed vtUnicodeString related test

git-svn-id: trunk@16837 -
paul 14 years ago
parent
a04481c89f
commit
c1ae618f40
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      tests/webtbs/tw18266.pp

+ 1 - 1
tests/webtbs/tw18266.pp
View File 

@@ -7,7 +7,7 @@ uses
 
 
 
 // A literal casted to Wide/UnicodeString is expected to be of type vtWideString.
 
 // A literal casted to Wide/UnicodeString is expected to be of type vtWideString.
 
 const
 
 const
 
-  expected: array[0..3] of integer = (vtAnsiString, vtWideString, vtWideString, vtWideString);
 
+  expected: array[0..3] of integer = (vtAnsiString, vtWideString, vtUnicodeString, vtWideString);
 
 
 
 procedure variantfunc(vars: array of const);
 
 procedure variantfunc(vars: array of const);
 
 var
 
 var