diff --git a/exercises/luhn/uLuhnTest.pas b/exercises/luhn/uLuhnTest.pas
index 72875ee3..0d6f87ce 100644
--- a/exercises/luhn/uLuhnTest.pas
+++ b/exercises/luhn/uLuhnTest.pas
@@ -5,7 +5,7 @@ interface
   DUnitX.TestFramework;
 
 const
-  CanonicalVersion = '1.3.0';
+  CanonicalVersion = '1.4.0';
 
 type
 
@@ -48,6 +48,10 @@   TLuhnTest = class(TObject)
     [Ignore]
     procedure valid_strings_with_a_non_digit_included_become_invalid;
 
+    [Test]
+    [Ignore]
+    procedure valid_strings_with_a_non_digit_added_at_the_end_become_invalid;
+
     [Test]
     [Ignore]
     procedure valid_strings_with_punctuation_included_become_invalid;
@@ -138,6 +142,11 @@ procedure TLuhnTest.valid_number_with_an_even_number_of_digits;
   Assert.AreEqual(true, TLuhn.Valid('095 245 88'));
 end;
 
+procedure TLuhnTest.valid_strings_with_a_non_digit_added_at_the_end_become_invalid;
+begin
+  Assert.AreEqual(false, TLuhn.Valid('059a'));
+end;
+
 procedure TLuhnTest.valid_strings_with_a_non_digit_included_become_invalid;
 begin
   Assert.AreEqual(false, TLuhn.Valid('055a 444 285'));