diff --git a/exercises/rna-transcription/uTestRnaTranscription.pas b/exercises/rna-transcription/uTestRnaTranscription.pas
index 077cbf2c..a45784ef 100644
--- a/exercises/rna-transcription/uTestRnaTranscription.pas
+++ b/exercises/rna-transcription/uTestRnaTranscription.pas
@@ -4,12 +4,15 @@ interface
 uses
   DUnitX.TestFramework;
 
+const
+  CanonicalVersion = '1.1.0';
+
 type
   [TestFixture]
   RnaTranscriptionTest = class(TObject)
   public
     [Test]
-//  [Ignore('Comment the "[Ignore]" statement to run the test')]
+//    [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Rna_complement_of_cytosine_is_guanine;
 
     [Test]
@@ -27,18 +30,6 @@   RnaTranscriptionTest = class(TObject)
     [Test]
     [Ignore]
     procedure Rna_complement;
-
-    [Test]
-    [Ignore]
-    procedure Dna_correctly_handles_invalid_input;
-
-    [Test]
-    [Ignore]
-    procedure Dna_correctly_handles_completely_invalid_input;
-
-    [Test]
-    [Ignore]
-    procedure Dna_correctly_handles_partially_invalid_input;
   end;
 
 implementation
@@ -69,21 +60,6 @@ procedure RnaTranscriptionTest.Rna_complement;
   Assert.AreEqual('UGCACCAGAAUU', complement.OfDna('ACGTGGTCTTAA'));
 end;
 
-procedure RnaTranscriptionTest.Dna_correctly_handles_invalid_input;
-begin
-  Assert.AreEqual('', complement.OfDna('U'));
-end;
-
-procedure RnaTranscriptionTest.Dna_correctly_handles_completely_invalid_input;
-begin
-  Assert.AreEqual('', complement.OfDna('XXX'));
-end;
-
-procedure RnaTranscriptionTest.Dna_correctly_handles_partially_invalid_input;
-begin
-  Assert.AreEqual('', complement.OfDna('ACGTXXXCTTAA'));
-end;
-
 initialization
   TDUnitX.RegisterTestFixture(RnaTranscriptionTest);
 end.