Packrat.Util basic predicates now work

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;