From 7009e51c15ed51d716102540d5914e3d14a8a128 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 10 Jan 2019 00:11:30 +1100 Subject: Debug_String functions added to Packrat.Errors and Packrat.Tokens --- test/test_main.adb | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'test') diff --git a/test/test_main.adb b/test/test_main.adb index 404e690..a2682f4 100644 --- a/test/test_main.adb +++ b/test/test_main.adb @@ -3,6 +3,7 @@ with Ada.Text_IO, + Packrat, Ratnest.Tests; use @@ -13,14 +14,25 @@ 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); 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); New_Line; + Put_Line ("Displaying Token debug string output example:"); + Put (Tok.Debug_String); + New_Line; Put_Line ("Running tests for Packrat.Util..."); Put_Line ("Testing set predicates..."); -- cgit