Delphi DunitX FMX GUI记录器

我有一个基于控制台的DUNITX单元测试程序，我试图将其转换为FMX GUI输出。读了Embarcadero的文档here，我做修改测试程序文件如下：Delphi DunitX FMX GUI记录器

包括DUnitX.Loggers.GUIX单元
注释掉DUnitX.Loggers.Console单元
注释掉{$ APPTYPE CONSOLE}指令
将记录器更改为记录器：= TGUIXTestRunner.Create（nil）;

修改上市看起来是这样的：

program HTMLParserTest; 

{$IFNDEF TESTINSIGHT} 
//{$APPTYPE CONSOLE} 
{$ENDIF}{$STRONGLINKTYPES ON} 
uses 
    System.SysUtils, 
    {$IFDEF TESTINSIGHT} 
    TestInsight.DUnitX, 
    {$ENDIF } 
// DUnitX.Loggers.Console, 
    DUnitX.Loggers.GUIX, 
    DUnitX.Loggers.Xml.NUnit, 
    DUnitX.TestFramework, 
    test.ITUtils.Delphi in 'test.ITUtils.Delphi.pas', 
    ITUtils.Delphi in '..\Concept Test\ITUtils.Delphi.pas', 
    test.ITsimplehtmlparser.Delphi in 'test.ITsimplehtmlparser.Delphi.pas', 
    ITTools.simplehtmlparser.Delphi in '..\Concept 
    Test\ITTools.simplehtmlparser.Delphi.pas'; 

var 
    runner : ITestRunner; 
    results : IRunResults; 
    logger : ITestLogger; 
    nunitLogger : ITestLogger; 
begin 
{$IFDEF TESTINSIGHT} 
    TestInsight.DUnitX.RunRegisteredTests; 
    exit; 
{$ENDIF} 
try 
//Check command line options, will exit if invalid 
TDUnitX.CheckCommandLine; 
//Create the test runner 
runner := TDUnitX.CreateRunner; 
//Tell the runner to use RTTI to find Fixtures 
runner.UseRTTI := True; 
//tell the runner how we will log things 
//Log to the console window 
// logger := TDUnitXConsoleLogger.Create(true); 
logger := TGUIXTestRunner.Create(nil); 
runner.AddLogger(logger); 
//Generate an NUnit compatible XML File 
nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile); 
runner.AddLogger(nunitLogger); 
runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests; 

//Run tests 
results := runner.Execute; 
if not results.AllPassed then 
    System.ExitCode := EXIT_ERRORS; 

{$IFNDEF CI} 
//We don't want this happening when running under CI. 
if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then 
begin 
    System.Write('Done.. press <Enter> key to quit.'); 
    System.Readln; 
end; 
{$ENDIF} 
except 
on E: Exception do 
    System.Writeln(E.ClassName, ': ', E.Message); 
end; 
end.

当我运行这个（使用东京10.2）我得到以下错误：

我也应该注意到，我必须在我的库路径中包含DUNITX源代码的路径，因为它找不到要编译的fmx表单。

我认为我在这里失踪了一些东西，任何帮助将不胜感激，因为这个文件有点薄。

感谢

来源

2017-06-29 cheechaway

尝试从“APPTYPE”行删除“$”：'//{$ APPTYPE CONSOLE}'。尝试制作：“{APPTYPE CONSOLE}”。或者，完全删除它。 –

尝试两者，不幸的是相同的结果 – cheechaway

该选项未选中。 – cheechaway

这是我用的，让我VCL，FMX或控制台应用程序之间选择一个模板：

program UnitTests; 


///// UI Selection - Pick only 1! ////////////////////////////// 
{DEFINE UseVCL} 
{$DEFINE UseFMX} 
{DEFINE UseWinConsole} 
//////////////////////////////////////////////////////////////// 


{$IFDEF UseWinConsole} 
{$DEFINE UseConsole} 
{$ENDIF} 

{$IFDEF UseConsole} 
{$APPTYPE CONSOLE} 
{$ENDIF} 

uses 
    {$IFDEF UseVCL} 
    VCL.Forms, 
    DUnitX.Loggers.GUI.VCL, 
    {$ENDIF} 

    {$IFDEF UseFMX} 
    FMX.Forms, 
    DUnitX.Loggers.GUIX, 
    {$ENDIF} 

    {$IFDEF UseConsole} 
    DUnitX.ConsoleWriter.Base, 
    DUnitX.Loggers.Console, 
    DUnitX.Loggers.XML.NUnit, 
    DUnitX.Loggers.Text, 
    DUnitX.Loggers.XML.xUnit, 
    {$ENDIF} 

    {$IFDEF UseWinConsole} 
    DUnitX.Windows.Console, 
    {$ENDIF} 

    System.SysUtils, 
    DUnitX.Generics, 
    DUnitX.InternalInterfaces, 
    DUnitX.WeakReference, 
    DUnitX.FixtureResult, 
    DUnitX.RunResults, 
    DUnitX.Test, 
    DUnitX.TestFixture, 
    DUnitX.TestFramework, 
    DUnitX.TestResult, 
    DUnitX.TestRunner, 
    DUnitX.Utils, 
    DUnitX.IoC, 
    DUnitX.MemoryLeakMonitor.Default, 

//  [TestFixturesUnit1] in '[TestFixturesUnit1].pas', 
//  [TestFixturesUnit2] in '[TestFixturesUnit2].pas', 
//  [TestFixturesUnit3] in '[TestFixturesUnit3].pas', 

    DUnitX.DUnitCompatibility; 

{$R *.res} 

///////////////////////////////////////////////////////////////////////// 
{$IFDEF UseVCL} 
begin 
    Application.Initialize; 
    Application.CreateForm(TGUIVCLTestRunner, GUIVCLTestRunner); 
    Application.Run; 
{$ENDIF} 
///////////////////////////////////////////////////////////////////////// 
{$IFDEF UseFMX} 
begin 
    Application.Initialize; 
    Application.CreateForm(TGUIXTestRunner, GUIXTestRunner); 
    Application.Run; 
{$ENDIF} 
///////////////////////////////////////////////////////////////////////// 
{$IFDEF UseConsole} 
var 
    runner : ITestRunner; 
    results : IRunResults; 
    logger : ITestLogger; 
    nunitLogger : ITestLogger; 

begin 
    try 
     //Create the runner 
     runner := TDUnitX.CreateRunner; 
     runner.UseRTTI := True; 
     //tell the runner how we will log things 
     logger := TDUnitXConsoleLogger.Create(true); 
     nunitLogger := TDUnitXXMLNUnitFileLogger.Create; 
     runner.AddLogger(logger); 
     runner.AddLogger(nunitLogger); 

     //Run tests 
     results := runner.Execute; 

     System.Write('Done.. press <Enter> key to quit.'); 
     System.Readln; 

    except 
     on E: Exception do 
     System.Writeln(E.ClassName, ': ', E.Message); 
    end; 
{$ENDIF} 
///////////////////////////////////////////////////////////////////////// 

end.

来源

2017-06-29 11:47:02

谢谢！工作也很好 – cheechaway

Delphi DunitX FMX GUI记录器

回答

相关问题