Updated and fixed tests, fixed Pass_Forward array sliding bug

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...");