@@ -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-
397382procedure TestTIntegerRange.TestAddOp ;
398383var
399384 L, R, E: TIntegerRange;
@@ -544,51 +529,6 @@ procedure TestTIntegerRange.TestExplicitToStringOp;
544529 CheckEquals(' [-42..56]' , string(R));
545530end ;
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-
592532procedure TestTIntegerRange.TestGreaterThanOrEqualOp ;
593533var
594534 L, R: TIntegerRange;
@@ -773,51 +713,6 @@ procedure TestTIntegerRange.TestLength;
773713 CheckEquals(High(Cardinal), R.Length, ' #7' );
774714end ;
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-
821716procedure TestTIntegerRange.TestLessThanOrEqualOp ;
822717var
823718 L, R: TIntegerRange;
0 commit comments