//****************************************************************** // Hint: You will be using TTuple in your solution. TTuple is // declared in this unit. It will be necessary for you to add // a uses statement in the interface section of uSaddlePoints.pas. //****************************************************************** unit uSaddlePointsTests; interface uses DUnitX.TestFramework; const CanonicalVersion = '1.5.0'; type [TestFixture] TSaddlePointTests = class(TObject) public [Test] // [Ignore('Comment the "[Ignore]" statement to run the test')] procedure Can_identify_single_saddle_point; [Test] [Ignore] procedure Can_identify_that_empty_matrix_has_no_saddle_points; [Test] [Ignore] procedure Can_identify_lack_of_saddle_points_when_there_are_none; [Test] [Ignore] procedure Can_identify_multiple_saddle_points_in_a_column; [Test] [Ignore] procedure Can_identify_multiple_saddle_points_in_a_row; [Test] [Ignore] procedure Can_identify_saddle_point_in_bottom_right_corner; [Test] [Ignore] procedure Can_identify_saddle_points_in_a_non_square_matrix; [Test] [Ignore] procedure Can_identify_that_saddle_points_in_a_single_column_matrix_are_those_with_the_minimum_value; [Test] [Ignore] procedure Can_identify_that_saddle_points_in_a_single_row_matrix_are_those_with_the_maximum_value; end; TTuple = record private fValue1: T1; fValue2: T2; public constructor Create(aValue1: T1; aValue2: T2); property Value1 : T1 read fValue1; property Value2 : T2 read fValue2; end; implementation uses uSaddlePoints; constructor TTuple.Create(aValue1: T1; aValue2: T2); begin fValue1 := aValue1; fValue2 := aValue2; end; procedure TSaddlePointTests.Can_identify_single_saddle_point; const rows = 3; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 9; values[0,1] := 8; values[0,2] := 7; values[1,0] := 5; values[1,1] := 3; values[1,2] := 2; values[2,0] := 6; values[2,1] := 6; values[2,2] := 7; SaddlePoints := newSaddlePoints(values); SetLength(expected, 1); expected[0] := TTuple.Create(2,1); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_that_empty_matrix_has_no_saddle_points; const rows = 0; columns = 0; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); SaddlePoints := newSaddlePoints(values); SetLength(expected, 0); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_that_saddle_points_in_a_single_column_matrix_are_those_with_the_minimum_value; const rows = 4; columns = 1; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 2; values[1,0] := 1; values[2,0] := 4; values[3,0] := 1; SaddlePoints := newSaddlePoints(values); SetLength(expected, 2); expected[0] := TTuple.Create(2,1); expected[1] := TTuple.Create(4,1); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_that_saddle_points_in_a_single_row_matrix_are_those_with_the_maximum_value; const rows = 1; columns = 4; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 2; values[0,1] := 5; values[0,2] := 3; values[0,3] := 5; SaddlePoints := newSaddlePoints(values); SetLength(expected, 2); expected[0] := TTuple.Create(1,2); expected[1] := TTuple.Create(1,4); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_lack_of_saddle_points_when_there_are_none; const rows = 3; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 1; values[0,1] := 2; values[0,2] := 3; values[1,0] := 3; values[1,1] := 1; values[1,2] := 2; values[2,0] := 2; values[2,1] := 3; values[2,2] := 1; SaddlePoints := newSaddlePoints(values); SetLength(expected, 0); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_multiple_saddle_points_in_a_column; const rows = 3; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 4; values[0,1] := 5; values[0,2] := 4; values[1,0] := 3; values[1,1] := 5; values[1,2] := 5; values[2,0] := 1; values[2,1] := 5; values[2,2] := 4; SaddlePoints := newSaddlePoints(values); SetLength(expected, 3); expected[0] := TTuple.Create(1,2); expected[1] := TTuple.Create(2,2); expected[2] := TTuple.Create(3,2); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_multiple_saddle_points_in_a_row; const rows = 3; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 6; values[0,1] := 7; values[0,2] := 8; values[1,0] := 5; values[1,1] := 5; values[1,2] := 5; values[2,0] := 7; values[2,1] := 5; values[2,2] := 6; SaddlePoints := newSaddlePoints(values); SetLength(expected, 3); expected[0] := TTuple.Create(2,1); expected[1] := TTuple.Create(2,2); expected[2] := TTuple.Create(2,3); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_saddle_points_in_a_non_square_matrix; const rows = 2; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 3; values[0,1] := 1; values[0,2] := 3; values[1,0] := 3; values[1,1] := 2; values[1,2] := 4; SaddlePoints := newSaddlePoints(values); SetLength(expected, 2); expected[0] := TTuple.Create(1,1); expected[1] := TTuple.Create(1,3); Assert.AreEqual(expected, SaddlePoints.Calculate); end; procedure TSaddlePointTests.Can_identify_saddle_point_in_bottom_right_corner; const rows = 3; columns = 3; var SaddlePoints: ISaddlePoints; values: TArray>; expected: TArray>; begin SetLength(values, rows, columns); values[0,0] := 8; values[0,1] := 7; values[0,2] := 9; values[1,0] := 6; values[1,1] := 7; values[1,2] := 6; values[2,0] := 3; values[2,1] := 2; values[2,2] := 5; SaddlePoints := newSaddlePoints(values); SetLength(expected, 1); expected[0] := TTuple.Create(3,3); Assert.AreEqual(expected, SaddlePoints.Calculate); end; initialization TDUnitX.RegisterTestFixture(TSaddlePointTests); end.