Dunit的感悟--打印文章

Dunit的感悟

作者：武汉SEO闵涛文章来源：敏韬网点击数1547 更新时间：2009/4/23 18:31:05 文章录入：mintao 责任编辑：mintao

procedure CheckNotEqualsHex(expected, actual: longword; msg: string = '''''''';

digits: integer=8);

procedure CheckNotNull(obj :IUnknown; msg :string = '''''''');

procedure CheckNull(obj: IUnknown; msg: string = '''''''');

procedure CheckSame(expected, actual: IUnknown; msg: string = '''''''');

procedure CheckSame(expected, actual: TObject; msg: string = '''''''');

procedure CheckNotNull(obj: TObject; msg: string = '''''''');

procedure CheckNull(obj: TObject; msg: string = '''''''');

procedure CheckException(AMethod: TTestMethod; AExceptionClass: TClass;

msg :string = '''''''');

procedure CheckEquals( expected, actual: TClass; msg: string = '''''''');

procedure CheckInherits(expected, actual: TClass; msg: string = '''''''');

procedure CheckIs(obj :TObject; klass: TClass; msg: string = '''''''');