Sha256: d32be2a47e47565cc2c22d873cade0f0a9fc23758034aa6b65f18237bea8751b
Contents?: true
Size: 1.93 KB
Versions: 178
Compression:
Stored size: 1.93 KB
Contents
unit uTestRnaTranscription;
interface
uses
DUnitX.TestFramework;
type
[TestFixture]
RnaTranscriptionTest = class(TObject)
public
[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;
[Test]
[Ignore]
procedure Rna_complement_of_thymine_is_adenine;
[Test]
[Ignore]
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;
procedure RnaTranscriptionTest.Rna_complement_of_cytosine_is_guanine;
begin
Assert.AreEqual('G', complement.OfDna('C'));
end;
procedure RnaTranscriptionTest.Rna_complement_of_guanine_is_cytosine;
begin
Assert.AreEqual('C', complement.OfDna('G'));
end;
procedure RnaTranscriptionTest.Rna_complement_of_thymine_is_adenine;
begin
Assert.AreEqual('A', complement.OfDna('T'));
end;
procedure RnaTranscriptionTest.Rna_complement_of_adenine_is_uracil;
begin
Assert.AreEqual('U', complement.OfDna('A'));
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.
Version data entries
178 entries across 178 versions & 1 rubygems