trackler 2.0.8.12 → 2.0.8.13

data/tracks/delphi/exercises/book-store/{BookStoreTests.dpr → BookStore.dpr}

@@ -1,4 +1,4 @@
-program BookStoreTests;
+program BookStore;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/book-store/uBookStoreTests.pas

@@ -9,50 +9,51 @@ type
   hpTests = class(TObject)
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure A_basket_containing_only_a_single_book;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_only_two_of_the_same_book;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure No_charge_to_carry_around_an_empty_basket;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_only_two_different_books;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_with_three_different_books;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_with_four_different_books;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_with_five_different_books;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_eight_books_consisting_of_a_pair_each_of_the_first_three_books_plus_one_copy_each_of_the_last_two_books;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_nine_books_consisting_of_a_pair_each_of_the_first_four_books_plus_one_of_the_last_book;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_ten_books_consisting_of_two_copies_of_each_book_in_the_series;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_eleven_books_consisting_of_three_copies_of_the_first_book_plus_two_each_of_the_remaing_four_bookes_in_the_series;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_basket_containing_twelve_books_consisting_of_three_copies_of_the_first_two_books_plus_two_each_of_the_remaining_three_books_in_the_series;
   end;
 

data/tracks/delphi/exercises/bowling/{BowlingTests.dpr → Bowling.dpr}

@@ -1,4 +1,4 @@
-program BowlingTests;
+program Bowling;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/bowling/uBowlingTests.pas

@@ -13,98 +13,99 @@ type
     class function RollMany(pins: array of integer; game: IBowlingGame): IBowlingGame; static;
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Should_be_able_to_score_a_game_with_all_zeros;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Should_be_able_to_score_a_game_with_no_strikes_or_spares;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_spare_followed_by_zeros_is_worth_ten_points;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Points_scored_in_the_roll_after_a_spare_are_counted_twice;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Consecutive_spares_each_get_a_one_roll_bonus;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_spare_in_the_last_frame_gets_a_one_roll_bonus_that_is_counted_once;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_strike_earns_ten_points_in_frame_with_a_single_roll;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Points_scored_in_the_two_rolls_after_a_strike_are_counted_twice_as_a_bonus;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Consecutive_strikes_each_get_the_two_roll_bonus;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_strike_in_the_last_frame_gets_a_two_roll_bonus_that_is_counted_once;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rolling_a_spare_with_the_two_roll_bonus_does_not_get_a_bonus_roll;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Strikes_with_the_two_roll_bonus_do_not_get_bonus_rolls;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_strike_with_the_one_roll_bonus_after_a_spare_in_the_last_frame_does_not_get_a_bonus;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure All_strikes_is_a_perfect_game;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rolls_can_not_score_negative_points;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_roll_can_not_score_more_than_10_points;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Two_rolls_in_a_frame_can_not_score_more_than_10_points;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Two_bonus_rolls_after_a_strike_in_the_last_frame_can_not_score_more_than_10_points;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure An_unstarted_game_can_not_be_scored;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure An_incomplete_game_can_not_be_scored;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure A_game_with_more_than_ten_frames_can_not_be_scored;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Bonus_rolls_for_a_strike_in_the_last_frame_must_be_rolled_before_score_can_be_calculated;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Both_bonus_rolls_for_a_strike_in_the_last_frame_must_be_rolled_before_score_can_be_calculated;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Bonus_roll_for_a_spare_in_the_last_frame_must_be_rolled_before_score_can_be_calculated;
   end;
 

data/tracks/delphi/exercises/circular-buffer/{CircularBufferTests.dpr → CircularBuffer.dpr}

@@ -1,4 +1,4 @@
-program CircularBufferTests;
+program CircularBuffer;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/circular-buffer/uCircularBufferTests.pas

@@ -10,7 +10,7 @@ type
   TestCircularBuffer = class(TObject)
   public
     [Test]
-    [Ignore]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Write_and_read_back_one_item;
 
     [Test]

data/tracks/delphi/exercises/clock/{ClockTest.dpr → Clock.dpr}

@@ -1,4 +1,4 @@
-program ClockTest;
+program Clock;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/clock/uClockTest.pas

@@ -10,9 +10,12 @@ type
   TClockTest = class(TObject) 
   public
     [Test]
-    [TestCase('Prints the hour','8,08:00')]
-    [TestCase('Prints the hour','9,09:00')]
-    procedure Prints_the_hour(const hours: Integer; const expected : string);
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
+    procedure Prints_the_hour_8;
+
+    [Test]
+    [Ignore]
+    procedure Prints_the_hour_9;
 
     [Test]
     [Ignore]
@@ -70,9 +73,14 @@ type
 implementation
 uses uClock;
 
-procedure TClockTest.Prints_the_hour(const hours: Integer; const expected : string);
+procedure TClockTest.Prints_the_hour_8;
+begin
+  Assert.AreEqual('08:00', Clock.SetHands(8).ToString);
+end;
+
+procedure TClockTest.Prints_the_hour_9;
 begin
-  Assert.AreEqual(expected, Clock.SetHands(hours).ToString);
+  Assert.AreEqual('09:00', Clock.SetHands(9).ToString);
 end;
 
 procedure TClockTest.Can_add_minutes;

data/tracks/delphi/exercises/etl/{ETLtests.dpr → ETL.dpr}

@@ -1,4 +1,4 @@
-program ETLtests;
+program ETL;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/etl/uETLtests.pas

@@ -15,7 +15,7 @@ type
     procedure Validate_CompareDictionaries;
 
     [Test]
-//    [Ignore]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Transforms_one_value;
 
     [Test]

data/tracks/delphi/exercises/grains/{GrainsTests.dpr → Grains.dpr}

@@ -1,4 +1,4 @@
-program GrainsTests;
+program Grains;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/grains/uGrainsTests.pas

@@ -9,46 +9,47 @@ type
   TgrainsTests = class(TObject)
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Test_square_1;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_2;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_3;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_4;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_16;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_32;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_square_64;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Square_0_raises_an_exception;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Negative_square_raises_an_exception;
 
     [Test]
-    [Ignore('Comment this line to run the test')]
+    [Ignore]
     procedure Square_greater_than_64_raises_an_exception;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Test_total_grains;
   end;
 

data/tracks/delphi/exercises/hamming/uHammingTests.pas

@@ -10,6 +10,7 @@ type
   HammingTests = class(TObject) 
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure test_identical_strands;
 
     [Test]

data/tracks/delphi/exercises/leap/{LeapTest.dpr → Leap.dpr}

@@ -1,4 +1,4 @@
-program LeapTest;
+program Leap;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/leap/uLeapTests.pas

@@ -10,6 +10,7 @@ type
   YearTest = class(TObject)
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure test_leap_year;
 
     [Test]

data/tracks/delphi/exercises/nucleotide-count/{NucleotideCountTest.dpr → NucleotideCount.dpr}

@@ -1,4 +1,4 @@
-program NucleotideCountTest;
+program NucleotideCount;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/nucleotide-count/uNucleotideCountTest.pas

@@ -2,7 +2,7 @@ unit uNucleotideCountTest;
 
 interface
 uses
-  DUnitX.TestFramework,  System.Generics.Collections;
+  DUnitX.TestFramework, System.Generics.Collections;
 
 type
 
@@ -15,34 +15,35 @@ type
     procedure Validate_CompareDictionaries;
 
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Has_no_nucleotides;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Has_no_adenosine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Repetitive_cytidine_gets_counts;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Repetitive_sequence_has_only_guanosine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Counts_only_thymidine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Counts_a_nucleotide_only_once;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Validates_nucleotides;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Counts_all_nucleotides;
   end;
 

data/tracks/delphi/exercises/perfect-numbers/{PerfectNumbersTest.dpr → PerfectNumbers.dpr}

@@ -1,4 +1,4 @@
-program PerfectNumbersTest;
+program PerfectNumbers;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/perfect-numbers/uPerfectNumbersTest.pas

@@ -9,38 +9,89 @@ type
   [TestFixture]
   PerfectNumbersTest = class(TObject) 
   public
-    [TestCase('3','3')]
-//    [TestCase('7','7')]
-//    [TestCase('13','13')]
-    procedure Can_classify_deficient_numbers(const aNumber: Integer);
-
-//    [TestCase('6','6')]
-//    [TestCase('28','28')]
-//    [TestCase('496','496')]
-    procedure Can_classify_perfect_numbers(const aNumber: Integer);
-
-//    [TestCase('12','12')]
-//    [TestCase('18','18')]
-//    [TestCase('20','20')]
-    procedure Can_classify_abundant_numbers(const aNumber: Integer);
+    [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
+    procedure Can_classify_3_as_deficient;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_7_as_deficient;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_13_as_deficient;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_6_as_perfect;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_28_as_perfect;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_496_as_perfect;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_12_as_abundant;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_18_as_abundant;
+
+    [Test]
+    [Ignore]
+    procedure Can_classify_20_as_abundant;
   end;
 
 implementation
 uses uPerfectNumbers;
 
-procedure PerfectNumbersTest.Can_classify_deficient_numbers(const aNumber: Integer);
+procedure PerfectNumbersTest.Can_classify_3_as_deficient;
+begin
+  Assert.AreEqual(Deficient, PerfectNumber.Classify(3));
+end;
+
+procedure PerfectNumbersTest.Can_classify_7_as_deficient;
+begin
+  Assert.AreEqual(Deficient, PerfectNumber.Classify(7));
+end;
+
+procedure PerfectNumbersTest.Can_classify_13_as_deficient;
+begin
+  Assert.AreEqual(Deficient, PerfectNumber.Classify(13));
+end;
+
+procedure PerfectNumbersTest.Can_classify_6_as_perfect;
+begin
+  Assert.AreEqual(Perfect, PerfectNumber.Classify(6));
+end;
+
+procedure PerfectNumbersTest.Can_classify_28_as_perfect;
+begin
+  Assert.AreEqual(Perfect, PerfectNumber.Classify(28));
+end;
+
+procedure PerfectNumbersTest.Can_classify_496_as_perfect;
+begin
+  Assert.AreEqual(Perfect, PerfectNumber.Classify(496));
+end;
+
+procedure PerfectNumbersTest.Can_classify_12_as_abundant;
 begin
-  Assert.AreEqual(Deficient, PerfectNumber.Classify(aNumber));
+  Assert.AreEqual(Abundant, PerfectNumber.Classify(12));
 end;
 
-procedure PerfectNumbersTest.Can_classify_perfect_numbers(const aNumber: Integer);
+procedure PerfectNumbersTest.Can_classify_18_as_abundant;
 begin
-  Assert.AreEqual(Perfect, PerfectNumber.Classify(aNumber));
+  Assert.AreEqual(Abundant, PerfectNumber.Classify(18));
 end;
 
-procedure PerfectNumbersTest.Can_classify_abundant_numbers(const aNumber: Integer);
+procedure PerfectNumbersTest.Can_classify_20_as_abundant;
 begin
-  Assert.AreEqual(Abundant, PerfectNumber.Classify(aNumber));
+  Assert.AreEqual(Abundant, PerfectNumber.Classify(20));
 end;
 
 initialization