Pruebas de unidad de fuente única para Free Pascal y Delphi

Question

¿Existe alguna manera de escribir pruebas unitarias para que puedan compilarse y ejecutarse tanto con Delphi como con Free Pascal?

Existen diferentes marcos de pruebas unitarias para Delphi y Free Pascal, que causa trabajo duplicado para los desarrolladores que se dirigen a ambos compiladores (por ejemplo, desarrolladores de bibliotecas y frameworks).

Así que tal vez haya una manera, usando el framework DUnit o FPCUnit y modificar el código fuente del caso de prueba (o el propio marco) para que también funcione con el otro compilador.

Así que, esencialmente, la pregunta es:

• qué marco (DUnit o FPCUnit) pueden ser compilados con los compiladores (Delphi y Free Pascal) con pequeñas modificaciones como sea posible?

o

• hay un tercer marco (Gracias a Arnaud por mencionar TSynTest), que trabaja con Delphi y FPC?

Answer 1

defecto para Free Pascal es FPCUnit, tiene el mismo diseño que DUnit pero diferente de ella en detalles menores. Puede escribir pruebas unitarias comunes para FPCUnit y DUnit eludiendo las diferencias por {$IFDEF FPC}. Acabo de probar FPCUnit, es un marco utilizable y blogged about it.

Answer 2

acabo prepararon rápidamente una muestra que funciona tanto en DUnit (Delphi) y FPCUnit (equivalente Freepascal más cercana a DUnit, que pasa a enviar ya "en el cuadro" en Lázaro 1.0, que incluye FreePascal 2.6):

Un pedacito trivial de IFDEF y tú estás allí. marco de prueba de unidad

unit TestUnit1; 

{$IFDEF FPC} 
{$mode objfpc}{$H+} 
{$ENDIF} 

interface 

uses 
    Classes, 
    {$ifdef FPC} 
    fpcunit, testutils, testregistry, 
    {$else} 
    TestFramework, 
    {$endif} 
    SysUtils; 

type 
    TTestCase1= class(TTestCase) 
    published 
    procedure TestHookUp; 
    end; 

implementation 

procedure TTestCase1.TestHookUp; 
begin 
    Self.Check(false,'value'); 
end; 

initialization 
    RegisterTest(TTestCase1{$ifndef FPC}.Suite{$endif}); 
end. 

Answer 3

Vea esto very nice blog article - solo carne fresca sobre pruebas de FPCUnit.

En resumen, por lo que yo sé, y si compare to DUnit:

• mayoría Cheque *() métodos se renombraron Assert *();
• Los métodos SetUp/TearDown se llaman por función en ambos frameworks;
• Algunos otros pensamientos pueden variar.

lo tanto, yo creo que podría ser fácil dejar FPCUnit "imita" DUnit, por creación de una pequeña clase de contenedor sobre la aplicación FPCUnit, tener los mismos métodos exactos que con DUnit. Por lo tanto, es posible que pueda compartir el código entre los dos objetivos e incluso volver a utilizar las pruebas existentes de DUnit. Tal clase de contenedor es en mi humilde opinión mucho más conveniente que el uso de {$ifdef FPC} como otros sugeridos aquí. La compilación condicional tiende a hacer que el código sea difícil de depurar, detallado, redundante y solo debe usarse si es necesario.

Otra posible solución podría ser utilizar otros marcos de pruebas. Nuestros pequeños TSynTest classes son más livianos, pero actualmente estoy convirtiendo el framework a FPC. Entonces, el mismo código exacto podría usarse con ambos compiladores.Tiene algunas características (como el registro opcional con perfiles finos, y la pila completa de fallas) que me perdería de DUnit/FPCUnit. No tiene una GUI ni un asistente, pero, sinceramente, como programador, prefiero el texto sin formato que puedo incluir fácilmente en mi documentación de la versión técnica para atestiguar que no se produjo ninguna regresión.