diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2021-01-13 18:31:27 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2021-01-13 18:31:27 +1100 |
| commit | 3fa431a2268a11dec6fd82c8f9b59cc2d0af9a93 (patch) | |
| tree | 509228a90b6fba0daf7d9fb2598132fe64d361fa /test/rat_tests-lexers.ads | |
| parent | 703a09c135d04b37be34d95915c32d70d730894c (diff) | |
Stamp/Ignore now Stamp/Discard/Ignore
Diffstat (limited to 'test/rat_tests-lexers.ads')
| -rw-r--r-- | test/rat_tests-lexers.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/rat_tests-lexers.ads b/test/rat_tests-lexers.ads index 23d18d2..af9b221 100644 --- a/test/rat_tests-lexers.ads +++ b/test/rat_tests-lexers.ads @@ -62,7 +62,7 @@ package Rat_Tests.Lexers is function Stamp_Check return Test_Result; - function Ignore_Check return Test_Result; + function Discard_Check return Test_Result; function Scan_Parts_Check return Test_Result; function Scan_Once_Check return Test_Result; @@ -78,7 +78,7 @@ package Rat_Tests.Lexers is Lexer_Tests : Test_Array := ((+"Stamp", Stamp_Check'Access), - (+"Ignore", Ignore_Check'Access), + (+"Discard", Discard_Check'Access), (+"Scan_Parts", Scan_Parts_Check'Access), (+"Scan_Once", Scan_Once_Check'Access), (+"Scan_With", Scan_With_Check'Access), @@ -123,7 +123,7 @@ private function Many_Whitespace is new Swordy.Many (Satisfy_Whitespace, 1); function Stamp_Word is new Swordy.Stamp (Word, Many_Letter); - function Ignore_Whitespace is new Swordy.Ignore (Whitespace, Many_Whitespace); + function Ignore_Whitespace is new Swordy.Discard (Whitespace, Many_Whitespace); end Rat_Tests.Lexers; |