2 {----------------------------------------------------------
6 2001.03.07 Check String
\94Å
\8dì
\90¬
7 2001.03.08 Check Integer
\94Å
\8dì
\90¬
8 2001.03.08 Check Int64
\94Å
\8dì
\90¬
9 2001.03.08 Check Single
\8dì
\90¬
10 2001.03.08 Check Double
\94Å
\8dì
\90¬
11 2001.03.08 Check Extended
\94Å
\8dì
\90¬
12 2001.03.10 TestResult
\8dì
\90¬
13 2001.03.10 Check Boolean
\94Å
\8dì
\90¬
14 2001.03.10 msg
\82ð
\96³
\8e\8b\82µ
\82Ä
\82¢
\82½
\82Ì
\82ð
\8fC
\90³
15 2001.03.10 Error
\8eè
\91±
\82«
\8dì
\90¬
16 2001.03.11 Check Condition: Boolean
\94Å
\8dì
\90¬
17 ----------------------------------------------------------}
25 ETestFailure = class(Exception);
26 ETestError = class(Exception);
28 procedure ClearTestResult;
38 procedure Fail(msg: String); overload;
39 procedure Fail(format: String; args: array of const); overload;
40 procedure Error(msg: String); overload;
41 procedure Error(format: String; args: array of const); overload;
42 procedure Error(E: Exception); overload;
44 procedure Check(Condition: Boolean; msg: String = ''); overload;
45 procedure Check(Actual, Required: String; msg: String = ''); overload;
46 procedure Check(Actual, Required: Integer; msg: String = ''); overload;
47 procedure Check(Actual, Required: Int64; msg: String = ''); overload;
48 procedure Check(Actual, Required: Single; msg: String = ''); overload;
49 procedure Check(Actual, Required: Double; msg: String = ''); overload;
50 procedure Check(Actual, Required: Extended; msg: String = ''); overload;
51 procedure Check(Actual, Required: Boolean; msg: String = ''); overload;
55 procedure ClearTestResult;
67 Inc(TestResult.Success);
70 procedure Fail(msg: String);
72 Inc(TestResult.Failure);
73 raise ETestFailure.CreateFmt('test failure: %s', [msg]);
76 procedure Fail(format: String; args: array of const);
78 Fail(SysUtils.Format(format, args));
81 procedure Error(msg: String);
83 Inc(TestResult.Error);
84 raise ETestFailure.CreateFmt('test error: %s', [msg]);
87 procedure Error(format: String; args: array of const);
89 Error(SysUtils.Format(format, args));
92 procedure Error(E: Exception);
94 Error('test error: %s: %s', [E.Message, E.ClassName]);
97 procedure Check(Condition: Boolean; msg: String);
100 Fail('Condition = False, %s', [msg])
105 procedure Check(Actual, Required: String; msg: String);
107 if Actual <> Required then
108 Fail('''%s''=''%s'', String, %s', [Actual, Required, msg])
113 procedure Check(Actual, Required: Integer; msg: String);
115 if Actual <> Required then
116 Fail('''%d''=''%d'', Integer, %s', [Actual, Required, msg]);
119 procedure Check(Actual, Required: Int64; msg: String);
121 if Actual <> Required then
122 Fail('''%d''=''%d'', Int64, %s', [Actual, Required, msg]);
125 procedure Check(Actual, Required: Single; msg: String);
127 if Actual <> Required then
128 Fail('''%f''=''%f'', Single, %s', [Actual, Required, msg]);
131 procedure Check(Actual, Required: Double; msg: String);
133 if Actual <> Required then
134 Fail('''%f''=''%f'', Double, %s', [Actual, Required, msg]);
137 procedure Check(Actual, Required: Extended; msg: String);
139 if Actual <> Required then
140 Fail('''%f''=''%f'', Extended, %s', [Actual, Required, msg]);
143 procedure Check(Actual, Required: Boolean; msg: String);
145 if Actual <> Required then
146 Fail('''%f''=''%f'', Boolean, %s', [Actual, Required, msg]);