Skip to content

Commit a4f911e

Browse files
committed
Tidy up TestTIntegerRange code
Removed the unused Setup and TearDown methods from the test class. Removed commented out test code from the class implementation.
1 parent 53d88d4 commit a4f911e

File tree

1 file changed

+0
-105
lines changed

1 file changed

+0
-105
lines changed

tests/Cat-Structs/TestUStructCatSnippets.pas

Lines changed: 0 additions & 105 deletions
Original file line numberDiff line numberDiff line change
@@ -47,9 +47,6 @@ TestTIntegerRange = class(TTestCase)
4747
private
4848
procedure TestCtorAndPropsException;
4949
procedure TestConstrainException;
50-
public
51-
procedure SetUp; override;
52-
procedure TearDown; override;
5350
published
5451
procedure TestCtorAndProps;
5552
procedure TestCreateEmpty;
@@ -382,18 +379,6 @@ procedure TestTRangeEx.TestCtorAndFields;
382379

383380
{ TestTIntegerRange }
384381

385-
procedure TestTIntegerRange.SetUp;
386-
begin
387-
inherited;
388-
389-
end;
390-
391-
procedure TestTIntegerRange.TearDown;
392-
begin
393-
inherited;
394-
395-
end;
396-
397382
procedure TestTIntegerRange.TestAddOp;
398383
var
399384
L, R, E: TIntegerRange;
@@ -544,51 +529,6 @@ procedure TestTIntegerRange.TestExplicitToStringOp;
544529
CheckEquals('[-42..56]', string(R));
545530
end;
546531

547-
//procedure TestTIntegerRange.TestGreaterThanOp;
548-
//var
549-
// L, R: TIntegerRange;
550-
//begin
551-
// L := TIntegerRange.Create(0, 0);
552-
// R := TIntegerRange.Create(0, 0);
553-
// CheckFalse(L > R, '#1a');
554-
// CheckFalse(R > L, '#1b');
555-
// L := TIntegerRange.Create(0, 1);
556-
// R := TIntegerRange.Create(0, 0);
557-
// CheckTrue(L > R, '#2a');
558-
// CheckFalse(R > L, '#2b');
559-
// L := TIntegerRange.Create(-3, 12);
560-
// R := TIntegerRange.Create(-5, 18);
561-
// CheckFalse(L > R, '#3a');
562-
// CheckTrue(R > L, '#3b');
563-
// L := TIntegerRange.Create(-5, 17);
564-
// R := TIntegerRange.Create(-5, 18);
565-
// CheckFalse(L > R, '#4a');
566-
// CheckTrue(R > L, '#4b');
567-
// L := TIntegerRange.Create(-4, 18);
568-
// R := TIntegerRange.Create(-5, 18);
569-
// CheckFalse(L > R, '#5a');
570-
// CheckTrue(R > L, '#5b');
571-
// L := TIntegerRange.Create(-5, 18);
572-
// R := TIntegerRange.Create(-5, 18);
573-
// CheckFalse(L > R, '#6a');
574-
// CheckFalse(R > L, '#6b');
575-
// L := TIntegerRange.Create(-5, 2);
576-
// R := TIntegerRange.Create(4, 18);
577-
// CheckFalse(L > R, '#7a');
578-
// CheckFalse(R > L, '#7b');
579-
// L := TIntegerRange.Create(1, 1);
580-
// R := TIntegerRange.Create(4, 18);
581-
// CheckFalse(L > R, '#8a');
582-
// CheckFalse(R > L, '#8b');
583-
// L := TIntegerRange.CreateEmpty;
584-
// R := TIntegerRange.CreateEmpty;
585-
// CheckFalse(L > R, '#9');
586-
// L := TIntegerRange.Create(10, 10);
587-
// R := TIntegerRange.CreateEmpty;
588-
// CheckTrue(L > R, '#10a');
589-
// CheckFalse(R > L, '#10b');
590-
//end;
591-
592532
procedure TestTIntegerRange.TestGreaterThanOrEqualOp;
593533
var
594534
L, R: TIntegerRange;
@@ -773,51 +713,6 @@ procedure TestTIntegerRange.TestLength;
773713
CheckEquals(High(Cardinal), R.Length, '#7');
774714
end;
775715

776-
//procedure TestTIntegerRange.TestLessThanOp;
777-
//var
778-
// L, R: TIntegerRange;
779-
//begin
780-
// L := TIntegerRange.Create(0, 0);
781-
// R := TIntegerRange.Create(0, 0);
782-
// CheckFalse(L < R, '#1a');
783-
// CheckFalse(R < L, '#1b');
784-
// L := TIntegerRange.Create(0, 0);
785-
// R := TIntegerRange.Create(0, 1);
786-
// CheckTrue(L < R, '#2a');
787-
// CheckFalse(R < L, '#2b');
788-
// L := TIntegerRange.Create(-3, 12);
789-
// R := TIntegerRange.Create(-5, 18);
790-
// CheckTrue(L < R, '#3a');
791-
// CheckFalse(R < L, '#3b');
792-
// L := TIntegerRange.Create(-5, 17);
793-
// R := TIntegerRange.Create(-5, 18);
794-
// CheckTrue(L < R, '#4a');
795-
// CheckFalse(R < L, '#4b');
796-
// L := TIntegerRange.Create(-4, 18);
797-
// R := TIntegerRange.Create(-5, 18);
798-
// CheckTrue(L < R, '#5a');
799-
// CheckFalse(R < L, '#5b');
800-
// L := TIntegerRange.Create(-5, 18);
801-
// R := TIntegerRange.Create(-5, 18);
802-
// CheckFalse(L < R, '#6a');
803-
// CheckFalse(R < L, '#6b');
804-
// L := TIntegerRange.Create(-5, 2);
805-
// R := TIntegerRange.Create(4, 18);
806-
// CheckFalse(L < R, '#7a');
807-
// CheckFalse(R < L, '#7b');
808-
// L := TIntegerRange.Create(1, 1);
809-
// R := TIntegerRange.Create(4, 18);
810-
// CheckFalse(L < R, '#8a');
811-
// CheckFalse(R < L, '#8b');
812-
// L := TIntegerRange.CreateEmpty;
813-
// R := TIntegerRange.CreateEmpty;
814-
// CheckFalse(L < R, '#9');
815-
// L := TIntegerRange.Create(10, 10);
816-
// R := TIntegerRange.CreateEmpty;
817-
// CheckFalse(L < R, '#10a');
818-
// CheckTrue(R < L, '#10b');
819-
//end;
820-
821716
procedure TestTIntegerRange.TestLessThanOrEqualOp;
822717
var
823718
L, R: TIntegerRange;

0 commit comments

Comments
 (0)