fail(''''Expected exception not raised'''');
except
on E: Exception do
begin
if E.ClassType <> AExceptionClass then
raise;
end
end;
end;
procedure TTestMyObject.testMyObject;
begin
try
FMyObject.DoSomething;
except
assert(false);
end;
end;
procedure TTestMyObjectOverrideRunTest.RunTest(testResult :TTestResult);
begin
try
inherited runTest(testResult);
if FExpectedException <> nil then
fail(''''Excepted Exception did not occur'''');
except
on E: Exception do
begin
if FExpectedException = nil then
raise
else
if E.ClassType <> FExpectedException then
raise;
end;
end;
{ clear the exception until the next test registers an Exception }
FExpectedException := nil;
end;
Check的相关方法:
procedure Check(condition: boolean; msg: string = '''''''');
procedure CheckEquals(expected, actual: extended; msg: string = '''''''');
procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = '''''''');
procedure CheckEquals(expected, actual: integer; msg: string = '''''''');
procedure CheckEquals(expected, actual: string; msg: string = '''''''');
procedure CheckEquals(expected, actual: boolean; msg: string = '''''''');
procedure CheckEqualsBin(expected, actual: longword; msg: string = '''''''';
digits: integer=32);
procedure CheckEqualsHex(expected, actual: longword; msg: string = '''''''';
digits: integer=8);
procedure CheckNotEquals(expected, actual: integer; msg: string = '''''''');
procedure CheckNotEquals(expected: extended; actual: extended; delta: extended = 0;
msg: string = '''''''');
procedure CheckNotEquals(expected, actual: string; msg: string = '''''''');
procedure CheckNotEquals(expected, actual: boolean; msg: string = '''''''');
procedure CheckNotEqualsBin(expected, actual: longword; msg: string = '''''''';
digits: integer=32);
上一页 [1] [2] [3] 下一页 没有相关教程
|