tracks/delphi/exercises/rna-transcription/uTestRnaTranscription.pas in trackler-2.2.1.73 vs tracks/delphi/exercises/rna-transcription/uTestRnaTranscription.pas in trackler-2.2.1.74

@@ -2,16 +2,19 @@
 
 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]
     [Ignore]
     procedure Rna_complement_of_guanine_is_cytosine;
@@ -25,22 +28,10 @@
     procedure Rna_complement_of_adenine_is_uracil;
 
     [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
 uses uRnaTranscription;
 
@@ -65,24 +56,9 @@
 end;
 
 procedure RnaTranscriptionTest.Rna_complement;
 begin
   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.