summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/ratnest-tests.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/ratnest-tests.adb b/test/ratnest-tests.adb
index dd2228f..2479998 100644
--- a/test/ratnest-tests.adb
+++ b/test/ratnest-tests.adb
@@ -226,12 +226,12 @@ package body Ratnest.Tests is
return Test_Result is
begin
for I in Integer range Character'Pos (Character'First) .. 127 loop
- if PU.Is_ASCII (Character'Val (I)) then
+ if PU.Is_Extended_ASCII (Character'Val (I)) then
return Failure;
end if;
end loop;
for I in Integer range 128 .. Character'Pos (Character'Last) loop
- if not PU.Is_ASCII (Character'Val (I)) then
+ if not PU.Is_Extended_ASCII (Character'Val (I)) then
return Failure;
end if;
end loop;