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 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 |