Worker thread

DelphiTests/MainTest.pas

@@ -23,6 +23,8 @@ type
     [Test]
     procedure Test4;
     [Test]
+    procedure TestParallel;
+    [Test]
     procedure Test5;
     // Test with TestCase Atribute to supply parameters.
   end;
@@ -107,6 +109,23 @@ begin
   end;
 end;
 
+procedure TMyTestObject.TestParallel;
+var
+  input:TStrings;
+  tokenizer:TAGPasTokenizerStack;
+  token:TAGToken;
+  begin
+  input:= TStringList.Create();
+  input.LoadFromFile('..\..\MainTest.pas');
+  tokenizer:=TAGPasTokenizerParallelStack.Create(input);
+  token.ended:=False;
+  while not token.ended do
+  begin
+    token:=tokenizer.Pop;
+    TDUnitX.CurrentRunner.Log(TLogLevel.Information, token.Text);
+  end;
+end;
+
 initialization
   TDUnitX.RegisterTestFixture(TMyTestObject);
 end.