* fixed for non-Windows (widestring=unicodestring there)

git-svn-id: trunk@16838 -

tests/webtbs/tw18266.pp

@@ -7,7 +7,13 @@ uses
 
 // A literal casted to Wide/UnicodeString is expected to be of type vtWideString.
 const
-  expected: array[0..3] of integer = (vtAnsiString, vtWideString, vtUnicodeString, vtWideString);
+  expected: array[0..3] of integer = (vtAnsiString,
+{$ifdef windows}
+    vtWideString, vtUnicodeString, vtWideString
+{$else}
+    vtUnicodeString, vtUnicodeString, vtUnicodeString
+{$endif}
+  );
 
 procedure variantfunc(vars: array of const);
 var
@@ -15,7 +21,7 @@ var
 begin
   for i := Low(vars) to High(vars) do
   begin
-    writeln('vars[i].VType=',ord(vars[i].VType));
+    writeln('vars[',i,'].VType=',ord(vars[i].VType));
     if vars[i].VType <> expected[i] then
       Halt(1);
   end;