summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/ratnest-tests.adb4
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