+ Test for #17591

git-svn-id: trunk@16294 -

.gitattributes

@@ -10722,6 +10722,7 @@ tests/webtbs/tw1755.pp svneol=native#text/plain
 tests/webtbs/tw17550.pp svneol=native#text/plain
 tests/webtbs/tw17560.pp svneol=native#text/plain
 tests/webtbs/tw1758.pp svneol=native#text/plain
+tests/webtbs/tw17591.pp svneol=native#text/plain
 tests/webtbs/tw17604.pp svneol=native#text/plain
 tests/webtbs/tw17646.pp svneol=native#text/plain
 tests/webtbs/tw1765.pp svneol=native#text/plain

tests/webtbs/tw17591.pp

@@ -0,0 +1,14 @@
+program comparetext;
+{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
+{$ifdef mswindows}{$apptype console}{$endif}
+uses
+ sysutils{,msesysintf};
+var
+ int1: integer;
+ ustr1,ustr2: unicodestring;
+begin
+ ustr1:= 'A';
+ ustr2:= 'a';
+ writeln(unicodecomparestr(ustr1,ustr2));
+ writeln(unicodecomparetext(ustr1,ustr2));
+end.