source: trunk/NewView/unittests/testassert.pas@ 201

Last change on this file since 201 was 110, checked in by RBRi, 18 years ago

AnsiString functins added
  • Property svn:eol-style set to native
File size: 3.6 KB
Line 
1Unit TestAssert;
2
3Interface
4
5uses
6 SysUtils;
7
8 TYPE EAssertFailed=CLASS(Exception);
9
10 PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
11 PROCEDURE assertEqualsAnsiString(aTestDescription : String; anExpectedValue : AnsiString; aRealValue : AnsiString);
12 PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
13 PROCEDURE assertEqualsLongWord(aTestDescription : String; anExpectedValue : LongWord; aRealValue : LongWord);
14 PROCEDURE assertTrue(aTestDescription : String; aRealValue : Boolean);
15 PROCEDURE assertFalse(aTestDescription : String; aRealValue : Boolean);
16
17
18Implementation
19
20 PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
21 VAR
22 tmpMessage : AnsiString;
23 BEGIN
24 if (aRealValue <> anExpectedValue) then
25 begin
26 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
27 tmpMessage := tmpMessage + anExpectedValue;
28 tmpMessage := tmpMessage + ''' but it was: ''';
29 tmpMessage := tmpMessage + aRealValue;
30 tmpMessage := tmpMessage + '''';
31 raise EAssertFailed.Create(tmpMessage);
32 end;
33 END;
34
35
36 PROCEDURE assertEqualsAnsiString(aTestDescription : String; anExpectedValue : AnsiString; aRealValue : AnsiString);
37 VAR
38 tmpMessage : AnsiString;
39 BEGIN
40 if (aRealValue <> anExpectedValue) then
41 begin
42 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
43 tmpMessage := tmpMessage + anExpectedValue;
44 tmpMessage := tmpMessage + ''' but it was: ''';
45 tmpMessage := tmpMessage + aRealValue;
46 tmpMessage := tmpMessage + '''';
47 raise EAssertFailed.Create(tmpMessage);
48 end;
49 END;
50
51
52 PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
53 VAR
54 tmpMessage : String;
55 tmpIntString : String;
56 BEGIN
57 if (aRealValue <> anExpectedValue) then
58 begin
59 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
60 Str(anExpectedValue, tmpIntString);
61 tmpMessage := tmpMessage + tmpIntString;
62 tmpMessage := tmpMessage + ''' but it was: ''';
63 Str(aRealValue, tmpIntString);
64 tmpMessage := tmpMessage + tmpIntString;
65 tmpMessage := tmpMessage + '''';
66 raise EAssertFailed.Create(tmpMessage);
67 end;
68 END;
69
70
71 PROCEDURE assertEqualsLongWord(aTestDescription : String; anExpectedValue : LongWord; aRealValue : LongWord);
72 VAR
73 tmpMessage : String;
74 tmpIntString : String;
75 BEGIN
76 if (aRealValue <> anExpectedValue) then
77 begin
78 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
79 Str(anExpectedValue, tmpIntString);
80 tmpMessage := tmpMessage + tmpIntString;
81 tmpMessage := tmpMessage + ''' but it was: ''';
82 Str(aRealValue, tmpIntString);
83 tmpMessage := tmpMessage + tmpIntString;
84 tmpMessage := tmpMessage + '''';
85 raise EAssertFailed.Create(tmpMessage);
86 end;
87 END;
88
89
90 PROCEDURE assertTrue(aTestDescription : String; aRealValue : Boolean);
91 VAR
92 tmpMessage : String;
93 BEGIN
94 if (not aRealValue) then
95 begin
96 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''True';
97 tmpMessage := tmpMessage + ''' but it was: ''False''';
98 raise EAssertFailed.Create(tmpMessage);
99 end;
100 END;
101
102
103 PROCEDURE assertFalse(aTestDescription : String; aRealValue : Boolean);
104 VAR
105 tmpMessage : String;
106 BEGIN
107 if (aRealValue) then
108 begin
109 tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''False';
110 tmpMessage := tmpMessage + ''' but it was: ''True''';
111 raise EAssertFailed.Create(tmpMessage);
112 end;
113 END;
114
115end.
Note: See TracBrowser for help on using the repository browser.