JCL Unit Test Frage (TestJclDebug.pas)

[TurboMagic]

Hallo,

beim Aufarbeiten der bestehenden (ja es gibt ein paar wenige für die JCL) UnitTests
bin ich über folgendes Problem im einzigen Test in TestJclDebug.pas gestoßen:

Der Test schlägt fehl und zwar hier:

Delphi-Quellcode:

Check((ModuleStr = 'FOO') or (ModuleStr = 'C:\TEST\FOO.OBJ'), 
      '0x00000100: Module name mismatch');

Grund: ModuleStr ist 'FOO.OBJ'.
Wer hat nun recht? Ist die Testbedingung falsch oder

ModuleStr := MapScanner.ModuleNameFromAddr($100); Ein paar Zeilen weiter unten in dem Test ähnlich gelagert:

Delphi-Quellcode:

Check((ModuleStr = 'BAR') or (ModuleStr = 'C:\TEST\BAR.OBJ'), 
      '0x00000900: Module name mismatch');

ModuleStr enthält 'BAR.OBJ'.

Grüße
TurboMagic