Przeglądaj źródła

* Patch from Bart to remove unneeded test

Michaël Van Canneyt 3 lat temu
rodzic
commit
ff3f183eb2
1 zmienionych plików z 0 dodań i 22 usunięć
  1. 0 22
      tests/test/units/convutils/tconv1.pp

+ 0 - 22
tests/test/units/convutils/tconv1.pp

@@ -332,27 +332,6 @@ begin
   if Verbose then writeln;
   if Verbose then writeln;
 end;
 end;
 
 
-procedure TestRegisterTypeTwice;
-var
-  Fam: TConvFamily;
-  base, foo: TConvType;
-  D, Exp: Double;
-begin
-  if Verbose then writeln({$I %CurrentRoutine%});
-  Fam := RegisterConversionFamily('TestRegisterTypeTwice');
-  base := RegisterConversionType(Fam, 'base', 1.0);
-  foo := RegisterConversionType(Fam, 'foo', 2.0);
-  foo := RegisterConversionType(Fam, 'bar', 100);
-  Exp := 0.01;
-  D := Convert(1.0, base, foo);
-  if Verbose then writeln('D=',D:10:4,' [Expected=0.0100]');   //uses last registered conversionfactor in both fpc and D7
-  if not SameValue(D, Exp, 1E-9) then
-    LogError({$I %CurrentRoutine%},  {$I %Line%},format('Unexpected value for D, Got %.4f, expected .4f',[D,0.01]));
-  if Verbose then writeln({$I %CurrentRoutine%},' end.');
-  if Verbose then writeln;
-end;
-
-
 procedure RegisterWithNegativeFactor;
 procedure RegisterWithNegativeFactor;
 var
 var
   Fam: TConvFamily;
   Fam: TConvFamily;
@@ -599,7 +578,6 @@ begin
     TestIllegalConvTypeToFamily2;
     TestIllegalConvTypeToFamily2;
     TestDuplicateConvFamilyDescription;
     TestDuplicateConvFamilyDescription;
     TestDuplicateConvTypeDescriptions;
     TestDuplicateConvTypeDescriptions;
-    TestRegisterTypeTwice;
     RegisterWithNegativeFactor;
     RegisterWithNegativeFactor;
     TestNoDescription;
     TestNoDescription;
     TestCompatibleConversionType;
     TestCompatibleConversionType;