From bc7a4ad484dd248b35b01dbf3e86afc9d1533000 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 8 Jan 2019 00:13:02 +1100 Subject: Packrat.Util basic predicates now work --- test/ratnest-tests.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test') 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; -- cgit