diff options
Diffstat (limited to 'test/ratnest-tests.adb')
| -rw-r--r-- | test/ratnest-tests.adb | 4 |
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; |