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