From 7b8eed3d221cc6b47028bfa345dcba2e8222aa75 Mon Sep 17 00:00:00 2001
From: Jan Wielemaker <jan@swi-prolog.org>
Date: Fri, 26 Apr 2024 13:43:31 +0200
Subject: [PATCH] TEST: Disable case test for u00ff on Windows.

`towupper(0xff)` returns 0x9f on Windows.
---
 src/Tests/core/test_string.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Tests/core/test_string.pl b/src/Tests/core/test_string.pl
index cc0d50178d..8bcac840da 100644
--- a/src/Tests/core/test_string.pl
+++ b/src/Tests/core/test_string.pl
@@ -85,8 +85,11 @@
 	string_lower("aBc", L).
 test(string_upper, L == "ABC") :-
 	string_upper("aBc", L).
+:- if(\+ current_prolog_flag(windows, true)).
+% Windows wtoupper(255) returns 09F, a control character.
 test(string_upper, L == "WH\u0178") :-		% Issue #1262 (iso -> wide)
 	string_upper("wh\u00ff", L).
+:- endif.
 
 :- end_tests(string).