trackler 2.0.8.12 → 2.0.8.13

data/tracks/delphi/exercises/phone-number/{PhoneNumberTests.dpr → PhoneNumber.dpr}

@@ -1,4 +1,4 @@
-program PhoneNumberTests;
+program PhoneNumber;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/phone-number/uPhoneNumberTests.pas

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

data/tracks/delphi/exercises/poker/uPokerTest.pas

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

data/tracks/delphi/exercises/raindrops/raindrops.dpr

@@ -0,0 +1,60 @@
+program Raindrops;
+
+{$IFNDEF TESTINSIGHT}
+{$APPTYPE CONSOLE}
+{$ENDIF}{$STRONGLINKTYPES ON}
+uses
+  System.SysUtils,
+  {$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX,
+  {$ENDIF }
+  DUnitX.Loggers.Console,
+  DUnitX.Loggers.Xml.NUnit,
+  DUnitX.TestFramework,
+  uRaindropsTest in 'uRaindropsTest.pas',
+  uRaindrops in 'uRaindrops.pas';
+
+var
+  runner : ITestRunner;
+  results : IRunResults;
+  logger : ITestLogger;
+  nunitLogger : ITestLogger;
+begin
+{$IFDEF TESTINSIGHT}
+  TestInsight.DUnitX.RunRegisteredTests;
+  exit;
+{$ENDIF}
+  try
+    //Check command line options, will exit if invalid
+    TDUnitX.CheckCommandLine;
+    //Create the test runner
+    runner := TDUnitX.CreateRunner;
+    //Tell the runner to use RTTI to find Fixtures
+    runner.UseRTTI := True;
+    //tell the runner how we will log things
+    //Log to the console window
+    logger := TDUnitXConsoleLogger.Create(true);
+    runner.AddLogger(logger);
+    //Generate an NUnit compatible XML File
+    nunitLogger := TDUnitXXMLNUnitFileLogger.Create(TDUnitX.Options.XMLOutputFile);
+    runner.AddLogger(nunitLogger);
+    runner.FailsOnNoAsserts := False; //When true, Assertions must be made during tests;
+
+    //Run tests
+    results := runner.Execute;
+    if not results.AllPassed then
+      System.ExitCode := EXIT_ERRORS;
+
+    {$IFNDEF CI}
+    //We don't want this happening when running under CI.
+    if TDUnitX.Options.ExitBehavior = TDUnitXExitBehavior.Pause then
+    begin
+      System.Write('Done.. press <Enter> key to quit.');
+      System.Readln;
+    end;
+    {$ENDIF}
+  except
+    on E: Exception do
+      System.Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.

data/tracks/delphi/exercises/raindrops/uRaindropsExample.pas

@@ -0,0 +1,27 @@
+unit uRaindrops;
+
+interface
+
+type
+
+  Raindrops = class
+    class function Convert(aNumber: integer): string; static;
+  end;
+
+implementation
+uses System.SysUtils;
+
+class function Raindrops.Convert(aNumber: integer): string;
+begin
+  result := '';
+  if aNumber mod 3 = 0 then
+    result := result + 'Pling';
+  if aNumber mod 5 = 0 then
+    result := result + 'Plang';
+  if aNumber mod 7 = 0 then
+    result := result + 'Plong';
+  if result = '' then
+    result := aNumber.ToString;
+end;
+
+end.

data/tracks/delphi/exercises/raindrops/uRaindropsTest.pas

@@ -0,0 +1,180 @@
+unit uRaindropsTest;
+
+interface
+uses
+  DUnitX.TestFramework;
+
+type
+
+  [TestFixture]
+  RaindropsTest = class(TObject)
+  public
+    [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
+    procedure the_sound_for_1_is_1;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_3_is_Pling;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_5_is_Plang;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_7_is_Plong;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_6_is_Pling_as_it_has_a_factor_3;
+
+    [Test]
+    [Ignore]
+    procedure _2_to_the_power_3_does_not_make_a_raindrop_sound_as_3_is_the_exponent_not_the_base;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_9_is_Pling_as_it_has_a_factor_3;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_10_is_Plang_as_it_has_a_factor_5;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_14_is_Plong_as_it_has_a_factor_of_7;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_15_is_PlingPlang_as_it_has_factors_3_and_5;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_21_is_PlingPlong_as_it_has_factors_3_and_7;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_25_is_Plang_as_it_has_a_factor_5;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_27_is_Pling_as_it_has_a_factor_3;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_35_is_PlangPlong_as_it_has_factors_5_and_7;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_49_is_Plong_as_it_has_a_factor_7;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_52_is_52;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_105_is_PlingPlangPlong_as_it_has_factors_3_5_7;
+
+    [Test]
+    [Ignore]
+    procedure the_sound_for_3125_is_Plang_as_it_has_a_factor_5;
+  end;
+
+implementation
+uses uRaindrops;
+
+procedure RaindropsTest.the_sound_for_1_is_1;
+begin
+  Assert.AreEqual('1', Raindrops.Convert(1));
+end;
+
+procedure RaindropsTest.the_sound_for_3_is_Pling; 
+begin
+  Assert.AreEqual('Pling', Raindrops.Convert(3));
+end;
+
+procedure RaindropsTest.the_sound_for_5_is_Plang; 
+begin
+  Assert.AreEqual('Plang', Raindrops.Convert(5));
+end;
+
+procedure RaindropsTest.the_sound_for_7_is_Plong; 
+begin
+  Assert.AreEqual('Plong', Raindrops.Convert(7));
+end;
+
+procedure RaindropsTest.the_sound_for_6_is_Pling_as_it_has_a_factor_3; 
+begin
+  Assert.AreEqual('Pling', Raindrops.Convert(6));
+end;
+
+procedure RaindropsTest._2_to_the_power_3_does_not_make_a_raindrop_sound_as_3_is_the_exponent_not_the_base;
+begin
+  Assert.AreEqual('8', Raindrops.Convert(8));
+end;
+
+procedure RaindropsTest.the_sound_for_9_is_Pling_as_it_has_a_factor_3;
+begin
+  Assert.AreEqual('Pling', Raindrops.Convert(9));
+end;
+
+procedure RaindropsTest.the_sound_for_10_is_Plang_as_it_has_a_factor_5; 
+begin
+  Assert.AreEqual('Plang', Raindrops.Convert(10));
+end;
+
+procedure RaindropsTest.the_sound_for_14_is_Plong_as_it_has_a_factor_of_7;
+begin
+  Assert.AreEqual('Plong', Raindrops.Convert(14));
+end;
+
+procedure RaindropsTest.the_sound_for_15_is_PlingPlang_as_it_has_factors_3_and_5;
+begin
+  Assert.AreEqual('PlingPlang', Raindrops.Convert(15));
+end;
+
+procedure RaindropsTest.the_sound_for_21_is_PlingPlong_as_it_has_factors_3_and_7;
+begin
+  Assert.AreEqual('PlingPlong', Raindrops.Convert(21));
+end;
+
+procedure RaindropsTest.the_sound_for_25_is_Plang_as_it_has_a_factor_5; 
+begin
+  Assert.AreEqual('Plang', Raindrops.Convert(25));
+end;
+
+procedure RaindropsTest.the_sound_for_27_is_Pling_as_it_has_a_factor_3;
+begin
+  Assert.AreEqual('Pling', Raindrops.Convert(27));
+end;
+
+procedure RaindropsTest.the_sound_for_35_is_PlangPlong_as_it_has_factors_5_and_7;
+begin
+  Assert.AreEqual('PlangPlong', Raindrops.Convert(35));
+end;
+
+procedure RaindropsTest.the_sound_for_49_is_Plong_as_it_has_a_factor_7;
+begin
+  Assert.AreEqual('Plong', Raindrops.Convert(49));
+end;
+
+procedure RaindropsTest.the_sound_for_52_is_52;
+begin
+  Assert.AreEqual('52', Raindrops.Convert(52));
+end;
+
+procedure RaindropsTest.the_sound_for_105_is_PlingPlangPlong_as_it_has_factors_3_5_7;
+begin
+  Assert.AreEqual('PlingPlangPlong', Raindrops.Convert(105));
+end;
+
+procedure RaindropsTest.the_sound_for_3125_is_Plang_as_it_has_a_factor_5;
+begin
+  Assert.AreEqual('Plang', Raindrops.Convert(3125));
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(RaindropsTest);
+end.

data/tracks/delphi/exercises/rna-transcription/{TestRnaTranscription.dpr → RnaTranscription.dpr}

@@ -1,4 +1,4 @@
-program TestRNATranscription;
+program RNATranscription;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/rna-transcription/uTestRnaTranscription.pas

@@ -9,34 +9,35 @@ type
   RnaTranscriptionTest = class(TObject)
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Rna_complement_of_cytosine_is_guanine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rna_complement_of_guanine_is_cytosine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rna_complement_of_thymine_is_adenine;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rna_complement_of_adenine_is_uracil;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Rna_complement;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Dna_correctly_handles_invalid_input;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Dna_correctly_handles_completely_invalid_input;
 
     [Test]
-    [Ignore('Comment this line to run this test')]
+    [Ignore]
     procedure Dna_correctly_handles_partially_invalid_input;
   end;
 

data/tracks/delphi/exercises/saddle-points/{TestSaddlePoints.dpr → SaddlePoints.dpr}

@@ -1,4 +1,4 @@
-program TestSaddlePoints;
+program SaddlePoints;
 
 {$IFNDEF TESTINSIGHT}
 {$APPTYPE CONSOLE}

data/tracks/delphi/exercises/saddle-points/uSaddlePointsTests.pas

@@ -19,26 +19,27 @@ type
   TSaddlePointTests = class(TObject)
   public
     [Test]
+//  [Ignore('Comment the "[Ignore]" statement to run the test')]
     procedure Readme_example;
 
     [Test]
-    [Ignore('Comment this line to run test')]
+    [Ignore]
     procedure No_saddle_point;
 
     [Test]
-    [Ignore('Comment this line to run test')]
+    [Ignore]
     procedure Saddle_point;
 
     [Test]
-    [Ignore('Comment this line to run test')]
+    [Ignore]
     procedure Another_saddle_point;
 
     [Test]
-    [Ignore('Comment this line to run test')]
+    [Ignore]
     procedure Multiple_saddle_points;
 
     [Test]
-    [Ignore('Comment this line to run test')]
+    [Ignore]
     procedure Five_by_five_matrix;
   end;
 

data/tracks/go/config.json

@@ -134,14 +134,22 @@
       ]
     },
     {
-      "difficulty": 1,
+      "difficulty": 5,
       "slug": "secret-handshake",
-      "topics": []
+      "topics": [
+        "Bitwise operations",
+        "Arrays",
+        "Integers"
+      ]
     },
     {
-      "difficulty": 1,
+      "difficulty": 4,
       "slug": "house",
-      "topics": []
+      "topics": [
+        "Strings",
+        "Text formatting",
+        "Recursion"
+      ]
     },
     {
       "difficulty": 1,

data/tracks/go/exercises/accumulate/accumulate_test.go

@@ -37,10 +37,8 @@ func TestTestVersion(t *testing.T) {
 func TestAccumulate(t *testing.T) {
 	for _, test := range tests {
 		actual := Accumulate(test.given, test.converter)
-		if fmt.Sprintf("%s", actual) != fmt.Sprintf("%s", test.expected) {
-			t.Fatalf("Accumulate(%s, %s): expected %s, actual %s", test.given, test.description, test.expected, actual)
-		} else {
-			t.Logf("PASS: %s %v", test.description, test.given)
+		if fmt.Sprintf("%q", actual) != fmt.Sprintf("%q", test.expected) {
+			t.Fatalf("Accumulate(%q, %q): expected %q, actual %q", test.given, test.description, test.expected, actual)
 		}
 	}
 }

data/tracks/go/exercises/luhn/cases_test.go

@@ -0,0 +1,76 @@
+package luhn
+
+// Source: exercism/x-common
+// Commit: 715e23e luhn: tweak canonical tests (#547)
+
+var testCases = []struct {
+	description string
+	input       string
+	ok          bool
+}{
+	{
+		"single digit strings can not be valid",
+		"1",
+		false,
+	},
+	{
+		"A single zero is invalid",
+		"0",
+		false,
+	},
+	{
+		"a simple valid SIN that remains valid if reversed",
+		"059",
+		true,
+	},
+	{
+		"a simple valid SIN that becomes invalid if reversed",
+		"59",
+		true,
+	},
+	{
+		"a valid Canadian SIN",
+		"055 444 285",
+		true,
+	},
+	{
+		"invalid Canadian SIN",
+		"055 444 286",
+		false,
+	},
+	{
+		"invalid credit card",
+		"8273 1232 7352 0569",
+		false,
+	},
+	{
+		"valid strings with a non-digit included become invalid",
+		"055a 444 285",
+		false,
+	},
+	{
+		"valid strings with punctuation included become invalid",
+		"055-444-285",
+		false,
+	},
+	{
+		"valid strings with symbols included become invalid",
+		"055£ 444$ 285",
+		false,
+	},
+	{
+		"single zero with space is invalid",
+		" 0",
+		false,
+	},
+	{
+		"more than a single zero is valid",
+		"0000 0",
+		true,
+	},
+	{
+		"input digit 9 is correctly converted to output digit 9",
+		"091",
+		true,
+	},
+}