source: cprs/trunk/BDK50/BDK32_P50/Source/uUnitTestMFunStr.pas@ 1683

Last change on this file since 1683 was 1678, checked in by healthsevak, 10 years ago

Added this new version of Broker component libraries while updating the working copy to CPRS version 28

File size: 4.1 KB
RevLine 
[1678]1{ **************************************************************
2 Package: XWB - Kernel RPCBroker
3 Date Created: Sept 18, 1997 (Version 1.1)
4 Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
5 Developers: Joel Ivey
6 Description: Unit testing MFunStr code - requires dUnit for
7 unit testing.
8 Current Release: Version 1.1 Patch 47 (Jun. 17, 2008))
9*************************************************************** }
10
11unit uUniTTestMFunStr;
12
13interface
14
15uses
16 TestFramework, Sgnoncnf, Classes, Graphics, SysUtils, Forms;
17
18type
19 TTestType = class(TTestCase)
20 private
21 // any private fields needed for processing
22 protected
23 // procedure SetUp; override;
24 // procedure TearDown; override;
25 published
26 // procedure TestName1;
27 // procedure TestName2;
28 end;
29
30 TTestMFunStr1 = class(TTestCase)
31 private
32 protected
33 procedure Setup; override;
34 public
35 published
36 procedure TestPiece1;
37 procedure TestPiece2;
38 procedure TestPiece3;
39 procedure TestPiece4;
40 procedure TestPiece5;
41 procedure TestPiece6;
42 procedure TestPiece7;
43 procedure TestPiece8;
44 procedure TestPiece9;
45 end;
46
47 TTestMFunStr2 = class(TTestCase)
48 protected
49 procedure Setup; override;
50 published
51 procedure TestTran1;
52 procedure TestTran2;
53 procedure TestTran3;
54 procedure TestTran4;
55 end;
56
57implementation
58
59uses
60 MFunStr_1;
61
62var
63 Str: String;
64 Val: String;
65
66procedure TTestMFunStr1.TestPiece1;
67begin
68 Val := Piece(Str,'^');
69 Check(Val = 'Piece1','Failed Piece not specified');
70end;
71
72procedure TTestMFunStr1.Setup;
73begin
74 Str := 'Piece1^Piece2^Piece3';
75end;
76
77procedure TTestMFunStr1.TestPiece2;
78begin
79 Val := Piece(Str,'^',2);
80 Check(Val = 'Piece2', 'Failed Piece specified as 2');
81end;
82
83procedure TTestMFunStr1.TestPiece3;
84begin
85 Val := Piece(Str,'^',3);
86 Check(Val = 'Piece3', 'Failed Piece specifed as 3');
87end;
88
89procedure TTestMFunStr1.TestPiece4;
90begin
91 Val := Piece(Str,'^',4);
92 Check(Val = '','Failed piece specifed as 4');
93end;
94
95procedure TTestMFunStr1.TestPiece5;
96begin
97 Val := Piece(Str,'^',1,2);
98 Check(Val = 'Piece1^Piece2','Failed Piece 1,2');
99end;
100
101procedure TTestMFunStr1.TestPiece6;
102begin
103 Val := Piece(Str,'^',2,3);
104 Check(Val = 'Piece2^Piece3','Failed Piece 2,3');
105end;
106
107procedure TTestMFunStr1.TestPiece7;
108begin
109 Val := Piece(Str,'^',2,4);
110 Check(Val = 'Piece2^Piece3', 'Failed on Piece 2,4');
111end;
112
113procedure TTestMFunStr1.TestPiece8;
114begin
115 Val := Piece(Str,'^',3,5);
116 Check(Val = 'Piece3','Failed on Piece 3,5');
117end;
118
119procedure TTestMFunStr1.TestPiece9;
120begin
121 Val := Piece(Str,'^',4,6);
122 Check(Val = '','Failed on Piece 4,6');
123end;
124
125procedure TTestMFunStr2.Setup;
126begin
127 Str := 'ABCDEFGHABCDE';
128end;
129
130procedure TTestMFunStr2.TestTran1;
131begin
132 Val := Translate(Str,'ABCDEFGH','abcdefgh');
133 Check(Val = 'abcdefghabcde','Failed upper to lower case');
134end;
135
136procedure TTestMFunStr2.TestTran2;
137begin
138 Val := Translate(Str,'ABCD','abcde');
139 Check(Val = 'abcdEFGHabcdE', 'Failed Partial');
140end;
141
142procedure TTestMFunStr2.TestTran3;
143begin
144 Val := Translate(Str,'ABCDEABC','abcdefgh');
145 Check(Val = 'abcdeFGHabcde', 'Failed repeat chars');
146end;
147
148procedure TTestMFunStr2.TestTran4;
149begin
150 Val := Translate(Str,'ABCDEFGH','abcdeabc');
151 Check(Val = 'abcdeabcabcde', 'Failed in assignment');
152end;
153
154{ // used with second method of registering tests
155function UnitTests: ITestSuite;
156var
157 ATestSuite: TTestSuite;
158begin
159 ATestSuite := TTestSuite.create('Some trivial tests');
160// add each test suite to be tested
161 ATestSuite.addSuite(TTestType.Suite);
162// ATestSuite.addSuite(TTestStringlist.Suite);
163 Result := ATestSuite;
164end;
165}
166
167
168{
169procedure TTestType.TestName1;
170begin
171// Check( Boolean true for success, String comment for failed test)
172 Check(1+1=2,'Comment on Failure')
173end;
174}
175
176initialization
177// one entry per testclass
178 TestFramework.RegisterTest('Test Piece',TTestMFunStr1.Suite);
179 TestFramework.RegisterTest('Test Translate',TTestMFunStr2.Suite);
180// or
181// TestFramework.RegisterTest('SimpleTest',UnitTests);
182end.
Note: See TracBrowser for help on using the repository browser.