diff options
Diffstat (limited to 'test/test_main.adb')
-rw-r--r-- | test/test_main.adb | 21 |
1 files changed, 15 insertions, 6 deletions
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; |