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]  下一页