diff options
Diffstat (limited to 'test/test_main.adb')
-rw-r--r-- | test/test_main.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/test_main.adb b/test/test_main.adb index c741a93..a5d5fc5 100644 --- a/test/test_main.adb +++ b/test/test_main.adb @@ -20,7 +20,7 @@ procedure Test_Main is 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"); + Tok : My_Tokens.Token := My_Tokens.Create (A, 1, "abc"); begin @@ -37,7 +37,7 @@ begin Run_Tests (Tokens.Tests); New_Line; Put_Line ("Displaying Token debug string output example:"); - Put (Tok.Debug_String); + Put (My_Tokens.Debug_String (Tok)); New_Line; Put_Line ("Running tests for Packrat.Lexer combinators..."); |