From 04d0e994b69cb8d80dcd8beca17d8fe2eadaea6b Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 11 Jan 2019 12:17:15 +1100 Subject: Refactored Ratnest.Tests into nested subpackages --- test/test_main.adb | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to 'test/test_main.adb') diff --git a/test/test_main.adb b/test/test_main.adb index d181b3e..4915a5c 100644 --- a/test/test_main.adb +++ b/test/test_main.adb @@ -14,35 +14,43 @@ use procedure Test_Main is + + type My_Labels is (A, B, C); package My_Tokens is new Packrat.Tokens (My_Labels, Character, String); Err : Packrat.Errors.Error_Message := Packrat.Errors.Encode ("A", 1); Tok : My_Tokens.Token := My_Tokens.Create (A, 1, 3, "abc"); + + begin + + Put_Line ("Running tests for Packrat.Errors..."); - Run_Tests (Error_Tests); + Run_Tests (Errors.Tests); New_Line; Put_Line ("Displaying Error_Message debug string output example:"); Put (Packrat.Errors.Debug_String (Err)); New_Line; Put_Line ("Running tests for Packrat.Tokens..."); - Run_Tests (Token_Tests); + Run_Tests (Tokens.Tests); New_Line; Put_Line ("Displaying Token debug string output example:"); Put (Tok.Debug_String); New_Line; Put_Line ("Running tests for Packrat.Lexer.Combinators..."); - Run_Tests (Lexer_Combinator_Tests); + Run_Tests (Lexer.Combinator_Tests); New_Line; Put_Line ("Running tests for Packrat.Util..."); Put_Line ("Testing set predicates..."); - Run_Tests (Set_Predicate_Tests); + Run_Tests (Util.Set_Predicate_Tests); Put_Line ("Testing ordinary predicates..."); - Run_Tests (Util_Predicate_Tests); + Run_Tests (Util.Predicate_Tests); + + end Test_Main; -- cgit