From b60f27407c20344f5d48fa7d6f3efe5f9d4e87fb Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 14 Jan 2019 23:31:07 +1100 Subject: Tests added for Stamp and Ignore procedures in Packrat.Lexer --- test/ratnest-tests.ads | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'test/ratnest-tests.ads') diff --git a/test/ratnest-tests.ads b/test/ratnest-tests.ads index 9febd35..f795340 100644 --- a/test/ratnest-tests.ads +++ b/test/ratnest-tests.ads @@ -85,6 +85,27 @@ package Ratnest.Tests is (+"Line End", Line_End_Check'Access), (+"Input_End", Input_End_Check'Access)); + + function Stamp_Check return Test_Result; + function Ignore_Check return Test_Result; + + function Scan_Check return Test_Result; + function Scan_Set_Check return Test_Result; + function Scan_Only_Check return Test_Result; + function Scan_Set_Only_Check return Test_Result; + function Scan_With_Check return Test_Result; + function Scan_Set_With_Check return Test_Result; + + Lexer_Tests : Test_Array := + ((+"Stamp", Stamp_Check'Access), + (+"Ignore", Ignore_Check'Access), + (+"Scan", Scan_Check'Access), + (+"Scan_Set", Scan_Set_Check'Access), + (+"Scan_Only", Scan_Only_Check'Access), + (+"Scan_Set_Only", Scan_Set_Only_Check'Access), + (+"Scan_With", Scan_With_Check'Access), + (+"Scan_Set_With", Scan_Set_With_Check'Access)); + end Lexer; -- cgit