diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2019-01-09 14:43:25 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2019-01-09 14:43:25 +1100 |
| commit | 11f3f26e877210b88f1cadfe2c26d67b4530039c (patch) | |
| tree | 6227ef33a6cc55e9856a4553c6c2c1acfb81542b /test | |
| parent | 2912e22000bff5b83b77daeb2b5ed111c47268b8 (diff) | |
Packrat.Errors functionality complete and tested
Diffstat (limited to 'test')
| -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 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 |