From ea022446ea40844831a7daa3c6e6d9f7d91c01f2 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 13 Jan 2021 18:57:43 +1100 Subject: Removed superfluous Line_End/Input_End lexer combinators --- test/rat_tests-lexers.adb | 47 ----------------------------------------------- test/rat_tests-lexers.ads | 7 +------ 2 files changed, 1 insertion(+), 53 deletions(-) (limited to 'test') diff --git a/test/rat_tests-lexers.adb b/test/rat_tests-lexers.adb index 15a5d6f..6d8c34f 100644 --- a/test/rat_tests-lexers.adb +++ b/test/rat_tests-lexers.adb @@ -480,53 +480,6 @@ package body Rat_Tests.Lexers is end Take_Until_Check; - function Line_End_Check - return Test_Result - is - function LF_End is new Slexy.Line_End (Latin.LF); - function C_End is new Slexy.Line_End ('c'); - - Test_Str : String := "abcd" & Latin.LF & "e"; - - Result1 : Slexy.Combinator_Result := - Slebug.Create_Result (5, Packrat.Success); - Result2 : Slexy.Combinator_Result := - Slebug.Create_Result (3, Packrat.Success); - Result3 : Slexy.Combinator_Result := Slebug.Empty_Fail; - begin - if LF_End (Test_Str, 5) /= Result1 or C_End (Test_Str, 3) /= Result2 or - LF_End (Test_Str, Test_Str'Last + 5) /= Result3 or LF_End (Test_Str, 1) /= Result3 - then - return Fail; - end if; - return Pass; - end Line_End_Check; - - - function Input_End_Check - return Test_Result - is - function C_End is new Slexy.Input_End ('c'); - function E_End is new Slexy.Input_End ('e'); - - Test_Str : String := "abcde"; - - Result1 : Slexy.Combinator_Result := - Slebug.Create_Result (5, Packrat.Success); - Result2 : Slexy.Combinator_Result := - Slebug.Create_Result (3, Packrat.Success); - Result3 : Slexy.Combinator_Result := Slebug.Empty_Fail; - begin - if C_End (Test_Str, 3) /= Result2 or E_End (Test_Str, 5) /= Result1 or - C_End (Test_Str, 6) /= Result3 or E_End (Test_Str, 6) /= Result3 or - C_End (Test_Str, 1) /= Result3 or E_End (Test_Str, Test_Str'Last + 5) /= Result3 - then - return Fail; - end if; - return Pass; - end Input_End_Check; - - diff --git a/test/rat_tests-lexers.ads b/test/rat_tests-lexers.ads index af9b221..5c10005 100644 --- a/test/rat_tests-lexers.ads +++ b/test/rat_tests-lexers.ads @@ -39,9 +39,6 @@ package Rat_Tests.Lexers is function Take_While_Check return Test_Result; function Take_Until_Check return Test_Result; - function Line_End_Check return Test_Result; - function Input_End_Check return Test_Result; - Combinator_Tests : Test_Array := ((+"Join", Join_Check'Access), (+"Equals", Equals_Check'Access), @@ -56,9 +53,7 @@ package Rat_Tests.Lexers is (+"Multimatch", Multimatch_Check'Access), (+"Take", Take_Check'Access), (+"Take While", Take_While_Check'Access), - (+"Take Until", Take_Until_Check'Access), - (+"Line End", Line_End_Check'Access), - (+"Input_End", Input_End_Check'Access)); + (+"Take Until", Take_Until_Check'Access)); function Stamp_Check return Test_Result; -- cgit