From dfbe123c48df192e84a7a9838d8c051b7e28963d Mon Sep 17 00:00:00 2001
From: Ryan Potts <rpottsoh@gmail.com>
Date: Sun, 23 Dec 2018 08:41:20 -0500
Subject: [PATCH] Luhn: Update to v1.4.0

per exercism/problem-specifications#1420
---
 exercises/luhn/uLuhnTest.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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'));