From 192172cfc44220975b34295d38c5213b08de5191 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 10 Dec 2020 23:22:19 +1100 Subject: Some unit tests for Packrat.Parsers --- test/test_main.adb | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) (limited to 'test/test_main.adb') diff --git a/test/test_main.adb b/test/test_main.adb index 1edf4e6..3fdab35 100644 --- a/test/test_main.adb +++ b/test/test_main.adb @@ -12,7 +12,8 @@ with Rat_Tests.Tokens, Rat_Tests.Lexers, Rat_Tests.Utilities, - Rat_Tests.Parse_Graphs; + Rat_Tests.Parse_Graphs, + Rat_Tests.Parsers; use @@ -45,6 +46,7 @@ procedure Test_Main is Err : Packrat.Errors.Error_Message := Packrat.Errors.Encode ("A", 1); Tok : My_Tokens.Token_Type := My_Tokens.Create (A, 1, "abc"); + Fin_Tok : My_Tokens.Finished_Token_Type := (Tok, 5); begin @@ -75,15 +77,15 @@ begin Put_Line ("Running tests for Packrat.Tokens..."); Run_Tests (Rat_Tests.Tokens.Tests, How_Verbose); New_Line; - Put_Line ("Displaying Token debug string output example:"); + Put_Line ("Displaying Token debug string output examples:"); Put (My_Tokens.Debug_String (Tok)); + Put (My_Tokens.Debug_String (Fin_Tok)); New_Line; - Put_Line ("Running tests for Packrat.Lexers combinators..."); + Put_Line ("Running tests for Packrat.Lexers..."); + Put_Line ("Testing lexer combinators..."); Run_Tests (Rat_Tests.Lexers.Combinator_Tests, How_Verbose); - New_Line; - - Put_Line ("Running tests for Packrat.Lexers lexing..."); + Put_Line ("Testing lexer scanners..."); Run_Tests (Rat_Tests.Lexers.Lexer_Tests, How_Verbose); New_Line; @@ -99,6 +101,13 @@ begin New_Line; Put_Line ("Displaying Parse_Graph debug string output example:"); Put (Rat_Tests.Parse_Graphs.Debug_String_Check); + New_Line; + + Put_Line ("Running tests for Packrat.Parsers..."); + Put_Line ("Testing parser combinators..."); + Run_Tests (Rat_Tests.Parsers.Combinator_Tests, How_Verbose); + Put_Line ("Testing other tests..."); + Run_Tests (Rat_Tests.Parsers.Other_Tests, How_Verbose); end Test_Main; -- cgit