From 42d3982f1e6335cb99c382ddd91c324e5fa458ad Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 20 Apr 2020 15:49:56 +1000 Subject: Updated and fixed tests, fixed Pass_Forward array sliding bug --- test/test_main.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test/test_main.adb') 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..."); -- cgit