From 11f3f26e877210b88f1cadfe2c26d67b4530039c Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 9 Jan 2019 14:43:25 +1100 Subject: Packrat.Errors functionality complete and tested --- 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 2e3478a..df17775 100644 --- a/test/ratnest-tests.adb +++ b/test/ratnest-tests.adb @@ -28,7 +28,7 @@ package body Ratnest.Tests is PE.Valid_Message ("sSYMp1.2") or PE.Valid_Message ("sABcDp12") or not PE.Valid_Message ("sSYMp0") or not PE.Valid_Message ("sAp12") or not PE.Valid_Message ("sNAMEp34sSYMp02") or not PE.Valid_Message ("") or - not PE.Valid_Message ("sA_Bp3") + not PE.Valid_Message ("sA_Bp3") or not PE.Valid_Message ("sAp1sAp1") then return Failure; end if; @@ -42,7 +42,7 @@ package body Ratnest.Tests is Pass_Array : PE.Error_Info_Array := ((+"A", 1), (+"ABC", 2), (+"AB_CD", 3), (+"A_B_CD", 4)); Fail_Array : PE.Error_Info_Array := - ((+"_", 1), (+"_A", 2), (+"A_", 3), (+"A__B", 4)); + ((+"_", 1), (+"_A", 2), (+"A_", 3), (+"A__B", 4), (+"A%B", 3)); begin for EI of Pass_Array loop if not PE.Valid_Identifier (EI.Symbol) or -- cgit