Sha256: 87426ce95398ed8021e7845025f3e68afe19b24c07831c293fa1a23072bf9a60
Contents?: true
Size: 1.14 KB
Versions: 109
Compression:
Stored size: 1.14 KB
Contents
unit uReverseStringTests;
interface
uses
DUnitX.TestFramework;
const
CanonicalVersion = '1.0.1';
type
[TestFixture]
ReverseStringTest = class(TObject)
public
[Test]
// [Ignore('Comment the "[Ignore]" statement to run the test')]
procedure an_empty_string;
[Test]
[Ignore]
procedure a_word;
[Test]
[Ignore]
procedure a_capitalized_word;
[Test]
[Ignore]
procedure a_sentence_with_punctuation;
[Test]
[Ignore]
procedure a_palindrome;
end;
implementation
uses uReverseString;
{ ReverseStringTest }
procedure ReverseStringTest.an_empty_string;
begin
Assert.AreEqual('', reverse(''));
end;
procedure ReverseStringTest.a_capitalized_word;
begin
Assert.AreEqual('nemaR',reverse('Ramen'));
end;
procedure ReverseStringTest.a_palindrome;
begin
Assert.AreEqual('racecar',reverse('racecar'));
end;
procedure ReverseStringTest.a_sentence_with_punctuation;
begin
Assert.AreEqual('!yrgnuh m''I', reverse('I''m hungry!'));
end;
procedure ReverseStringTest.a_word;
begin
Assert.AreEqual('tobor', reverse('robot'));
end;
initialization
TDUnitX.RegisterTestFixture(ReverseStringTest);
end.
Version data entries
109 entries across 109 versions & 1 rubygems