43 lines
660 B
ObjectPascal
43 lines
660 B
ObjectPascal
unit TestCase1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, fpcunit, testutils,GuiTestRunner, testregistry,AG.PascalTokenizer;
|
|
|
|
type
|
|
|
|
TTestCase1= class(TTestCase)
|
|
published
|
|
procedure TestHookUp;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TTestCase1.TestHookUp;
|
|
var
|
|
input:TStrings;
|
|
tokenizer:TAGPasTokenizer;
|
|
token:TAGToken;
|
|
begin
|
|
input:= TStringList.Create();
|
|
input.LoadFromFile('testcase1.pas');
|
|
tokenizer:=TAGPasTokenizer.Create(input);
|
|
token.ended:=False;
|
|
while not token.ended do
|
|
begin
|
|
token:=tokenizer.GetNext;
|
|
TestRunner.MemoLog.Append(token.Text);
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
initialization
|
|
|
|
RegisterTest(TTestCase1);
|
|
end.
|
|
|