mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-08 20:57:24 +01:00
3e5f8af01d
* adjust unit to work without attributes * adjust unit to work without unit list (TRttiContext.GetTypes is disabled due to this) + add ShortString support (due to an intermediary test I had done in $H-) + add unit test from Joost's Attribute branch * adjust unit test accordingly (no attributes, no TRttiContext.GetTypes) + add ShortString tests + add testrunner for RTL-ObjPas tests using the new simpletestrunner git-svn-id: trunk@35096 -
19 lines
291 B
ObjectPascal
19 lines
291 B
ObjectPascal
program testrunner.rtlobjpas;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
simpletestrunner,
|
|
tests.rtti;
|
|
|
|
var
|
|
Application: TTestRunner;
|
|
|
|
begin
|
|
Application := TTestRunner.Create(nil);
|
|
Application.Initialize;
|
|
Application.Title := 'RTL-ObjPas unit tests';
|
|
Application.Run;
|
|
Application.Free;
|
|
end.
|