Sha256: 16195bad9d0f21b3da2f2d0dc2c7afdd1844442b015dd977a05472b0402582e5
Contents?: true
Size: 1.32 KB
Versions: 105
Compression:
Stored size: 1.32 KB
Contents
unit uTestRnaTranscription;
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')]
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;
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;
initialization
TDUnitX.RegisterTestFixture(RnaTranscriptionTest);
end.
Version data entries
105 entries across 105 versions & 1 rubygems