diff options
Diffstat (limited to 'test/rat_tests-lexers.adb')
| -rw-r--r-- | test/rat_tests-lexers.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/rat_tests-lexers.adb b/test/rat_tests-lexers.adb index 17fd20f..15a5d6f 100644 --- a/test/rat_tests-lexers.adb +++ b/test/rat_tests-lexers.adb @@ -582,13 +582,13 @@ package body Rat_Tests.Lexers is end Stamp_Check; - function Ignore_Check + function Discard_Check return Test_Result is use type Packrat.Result_Status; function Match_Abc is new Slexy.Multimatch ("abc"); - function My_Ignore is new Slexy.Ignore (Two, Match_Abc); + function My_Discard is new Slexy.Discard (Two, Match_Abc); Test_Str1 : String := "abcdefghi"; Test_Str2 : String := "ab"; @@ -598,21 +598,21 @@ package body Rat_Tests.Lexers is Comp_Code : Slexy.Component_Result; begin - Comp_Code := My_Ignore (Test_Str1, Context1); + Comp_Code := My_Discard (Test_Str1, Context1); if Slebug.So_Far (Context1).Length /= 0 or Slebug.Position (Context1) /= 4 or Slebug.Status (Context1) /= Packrat.Success or Slebug.Has_Pass (Context1) then return Fail; end if; - Comp_Code := My_Ignore (Test_Str1, Context1); + Comp_Code := My_Discard (Test_Str1, Context1); if Slebug.So_Far (Context1).Length /= 0 or Slebug.Position (Context1) /= 4 or not Slebug.Is_Failure (Comp_Code) or Slebug.Has_Pass (Context1) then return Fail; end if; - Comp_Code := My_Ignore (Test_Str2, Context2); + Comp_Code := My_Discard (Test_Str2, Context2); if Slebug.So_Far (Context2).Length /= 0 or Slebug.Position (Context2) /= 1 or Slebug.Status (Context2) /= Packrat.Needs_More or (not Slebug.Has_Pass (Context2) or else Slebug.Pass (Context2) /= "ab") @@ -620,7 +620,7 @@ package body Rat_Tests.Lexers is return Fail; end if; return Pass; - end Ignore_Check; + end Discard_Check; |