paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 23:22:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Bart to remove unneeded test

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-07-02 13:05:00 +02:00
parent c286e44499
commit ff3f183eb2
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/test/units/convutils/tconv1.pp
View File

@ -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;