tests: fix test for systems with WideString=UnicodeString

git-svn-id: trunk@21201 -

tests/test/tcpstr23.pp

@@ -25,10 +25,12 @@ procedure test_overload1(const s: unicodestring); overload;
 begin
   halt(1);
 end;
+{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
 procedure test_overload1(const s: widestring); overload;
 begin
   halt(1);
 end;
+{$endif}
 // --- no ShortString ---
 procedure test_overload2(const s: UTF8String); overload;
 begin
@@ -45,10 +47,12 @@ procedure test_overload2(const s: unicodestring); overload;
 begin
   halt(2);
 end;
+{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
 procedure test_overload2(const s: widestring); overload;
 begin
   halt(2);
 end;
+{$endif}
 // --- no ShortString, UTF8String ---
 procedure test_overload3(const s: AnsiString); overload;
 begin
@@ -61,10 +65,12 @@ procedure test_overload3(const s: unicodestring); overload;
 begin
   halt(3);
 end;
+{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
 procedure test_overload3(const s: widestring); overload;
 begin
   halt(3);
 end;
+{$endif}
 // --- no ShortString, UTF8String, AnsiString ---
 procedure test_overload4(const s: cp1253string); overload;
 begin
@@ -73,6 +79,7 @@ procedure test_overload4(const s: unicodestring); overload;
 begin
   halt(4);
 end;
+{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
 procedure test_overload4(const s: widestring); overload;
 begin
   halt(4);
@@ -85,6 +92,7 @@ procedure test_overload5(const s: widestring); overload;
 begin
   halt(5);
 end;
+{$endif}
 
 var
   S: ShortString;
@@ -93,5 +101,7 @@ begin
   test_overload2(S);
   test_overload3(S);
   test_overload4(S);
+{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
   test_overload5(S);
+{$endif}
 end.