Casos de Prueba en DUnit: Comparar imágenes
 

Buenas foristas,
Tengo permiso y recomendación de profesor guia para hacer los casos de prueba con DUnit.
El problema es que no encuentro entre la documentación algo que me indique de como puedo declarar casos de pruebas pero que sirvan para imágenes.
Por ejemplo, tengo una imagen A a la que se le aplica una función cualquiera. Y tengo otra imagen B (que correpondería al resultado de aplicación la función sobre A.

En DUnit se puede hacer funciones como ChekEquals o algo asi.... no me acuerdo bien como era pero todo lo que he conseguido entender es con números... por eso es que emito esta simple pregunta: ¿Es posible hacer casos de pruebas adaptados a imágenes (TPicture o TImage, o TBitmap)?

Desde ya muchas gracias.
Saludos,

Buenas.
No si se habrá entendido lo que intento hacer:
Tengo el DUnit y dos imágenes. A la imagen A se le aplica una función específica y tengo otra imagen B (hecha a mano) que representa el resultado de aplicar la función a la imagen original.

Estoy implementando los casos de prueba con DUnit... y ando buscandole la vuelta para ver de que manera se puede usar a estas imágenes en DUnit para comparar los resultados.

Yo quisiera simplemente hacer que DUnit me compare estas imagenes.
Con DUnit se pueden comparar números, string, fórmulas, ... ¿Habría manera de que con DUnit consiga esto? O me tendré que hacer una función que compare pixel a pixel entre A y B.

Desde ya... muchas gracias.
Saludos,

De DUnit no tengo ni idea, pero para compara dos imágenes, puedes usar esto:
http://www.clubdelphi.com/foros/show...92&postcount=8

Gracias seoane...
 

Gracias seoane por ayudar. Miré el código que expones... yo uso una función algo parecida. No se me ocurrió lo de CompareMem().

Lo ideal sería emplear DUnit... ya que me genera las pruebas y sus resultados, solito... solito. Pero si no se puede... usaré la función que tu amablemente comentas (que es muy seguro más eficiente que la mia).

Saludos,

Gracias seoane,... si no fuera por tí... no se me hubiera ocurrido ver lo de CompareMem.
Recordé que la clase abstracta TTestCase de Dunit tiene implementado una función CheckEqualsMem. Me fijé en el código y noto que hace uso de CompareMem... y bueno se me prendió la lamparita.

Esto es la prueba correspondiente para determinar si dos imagenes son iguales con DUnit:

Código Delphi [-]
unit UTest;

interface

uses QExtCtrls, Graphics, TestFramework;

type
  TCasodePrueba = class(TTestCase)
  private
    Img1, Img2: TPicture;
  protected
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure PruebaIguales;
  end;

implementation

// esto para iniciar las pruebas....
procedure TCasodePrueba.SetUp;
begin
  Img1 := TPicture.Create;
  img1.LoadFromFile('Directorio de la imagen 1');
  Img2 := TPicture.Create;
  img2.LoadFromFile('Directorio de la imagen 2');
end;

// esto una vez que concluyen todas la pruebas
procedure TCasodePrueba.TearDown;
begin
  Img1.Free;
  img2.Free;
end;

// esta es la única prueba que tiene. Es ilustrativo
procedure TCasodePrueba.PruebaIguales;
var
    i,j: integer;
begin
  // esto para dimensiones... si no son iguales. Falla. en otro caso continua
  check((Img1.Bitmap.Width = Img2.Bitmap.Width) AND (img1.Height = 
// le sacamos al tamaño de memoria a comparar....
Img2.Bitmap.Height),'No tienen igual tamaño');
  case Img1.Bitmap.PixelFormat of
      pf16bit: j:= (img1.Bitmap.Width*2) -1;
      pf24bit: j:= (img1.Bitmap.Width*3) -1;
      pf32bit: j:= (img1.Bitmap.Width*4) -1;
      else j:= img1.Bitmap.Width -1;
    end;
// comparamos.... y si alguna linea es diferente... se falla. en otro caso se continua hasta que falle o termina. Termina = OK  
for i := 0 to img1.Bitmap.Height - 1 do
    CheckEqualsMem(Img1.Bitmap.ScanLine[i],Img2.Bitmap.ScanLine[i],j,'No son iguales');
end;

initialization
 // registramos el caso de prueba y dejamos al trabjo a DUnit
 TestFramework.RegisterTest(TCasodePrueba.Suite); 

end.

Espero que a mas de uno le sirva.
Saudos,