From c819b4d78f16fbfaa2732cfc62269ad17fba0f93 Mon Sep 17 00:00:00 2001
From: Unknown <amoradell@free.fr>
Date: Sun, 7 Oct 2018 16:52:09 +0200
Subject: [PATCH] Add invalid input

Test with invalid input raises exception
---
 .../rna-transcription/uTestRnaTranscription.pas   | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/exercises/rna-transcription/uTestRnaTranscription.pas b/exercises/rna-transcription/uTestRnaTranscription.pas
index 32725d4f..d8544c39 100644
--- a/exercises/rna-transcription/uTestRnaTranscription.pas
+++ b/exercises/rna-transcription/uTestRnaTranscription.pas
@@ -34,10 +34,13 @@   RnaTranscriptionTest = class(TObject)
     [Test]
     [Ignore]
     procedure Rna_complement;
+    [Test]
+    [Ignore]
+    procedure Rna_complement_with_invalid_input;
   end;
 
 implementation
-uses uRnaTranscription;
+uses uRnaTranscription, SysUtils;
 
 procedure RnaTranscriptionTest.Rna_complement_of_cytosine_is_guanine;
 begin
@@ -69,6 +72,16 @@ procedure RnaTranscriptionTest.Rna_complement;
   Assert.AreEqual('UGCACCAGAAUU', complement.OfDna('ACGTGGTCTTAA'));
 end;
 
+procedure RnaTranscriptionTest.Rna_complement_with_invalid_input;
+var MyProc: TTestLocalMethod;
+begin
+  MyProc := procedure
+            begin
+              complement.OfDna('ACGTXXXCTTAA');
+            end;
+  Assert.WillRaiseWithMessage(MyProc, Exception, 'Invalid DNA character');
+end;
+
 initialization
   TDUnitX.RegisterTestFixture(RnaTranscriptionTest);
 end.