Fixed BigInt multiplication test cases

This commit is contained in:
Stefan Müller 2024-05-16 17:08:44 +02:00
parent 7630bdddeb
commit 62887ad1d7
1 changed files with 1 additions and 1 deletions

View File

@ -628,7 +628,7 @@ begin
s := TBigInt.FromHexadecimalString(AHexValueProduct); s := TBigInt.FromHexadecimalString(AHexValueProduct);
AssertTrue('Product of BigInt from ''' + AHexValueLeft + ''' and from ''' + AHexValueRight AssertTrue('Product of BigInt from ''' + AHexValueLeft + ''' and from ''' + AHexValueRight
+ ''' was not equal to the BigInt from ''' + AHexValueProduct + '''.', + ''' was not equal to the BigInt from ''' + AHexValueProduct + '''.',
s = a + b); s = a * b);
end; end;
procedure TBigIntProductTestCase.TestShort; procedure TBigIntProductTestCase.TestShort;