File tree Expand file tree Collapse file tree 1 file changed +11
-2
lines changed Expand file tree Collapse file tree 1 file changed +11
-2
lines changed Original file line number Diff line number Diff line change @@ -5,12 +5,12 @@ interface
5
5
DUnitX.TestFramework;
6
6
7
7
const
8
- CanonicalVersion = ' 1.5 .0' ;
8
+ CanonicalVersion = ' 1.6 .0' ;
9
9
10
10
type
11
11
12
12
[TestFixture]
13
- TLuhnTest = class (TObject)
13
+ TLuhnTest = class (TObject)
14
14
public
15
15
[Test]
16
16
// [Ignore('Comment the "[Ignore]" statement to run the test')]
@@ -44,6 +44,10 @@ TLuhnTest = class(TObject)
44
44
[Ignore]
45
45
procedure valid_number_with_an_even_number_of_digits ;
46
46
47
+ [Test]
48
+ [Ignore]
49
+ procedure valid_number_with_an_odd_number_of_spaces ;
50
+
47
51
[Test]
48
52
[Ignore]
49
53
procedure valid_strings_with_a_non_digit_added_at_the_end_become_invalid ;
@@ -142,6 +146,11 @@ procedure TLuhnTest.valid_number_with_an_even_number_of_digits;
142
146
Assert.AreEqual(true, TLuhn.Valid(' 095 245 88' ));
143
147
end ;
144
148
149
+ procedure TLuhnTest.valid_number_with_an_odd_number_of_spaces ;
150
+ begin
151
+ Assert.AreEqual(true, TLuhn.Valid(' 234 567 891 234' ));
152
+ end ;
153
+
145
154
procedure TLuhnTest.valid_strings_with_a_non_digit_added_at_the_end_become_invalid ;
146
155
begin
147
156
Assert.AreEqual(false, TLuhn.Valid(' 059a' ));
You can’t perform that action at this time.
0 commit comments