web3.eth.abi.tests.pas

{******************************************************************************}
{                                                                              }
{                                  Delphereum                                  }
{                                                                              }
{             Copyright(c) 2019 Stefan van As <svanas@runbox.com>              }
{           Github Repository <https://github.com/svanas/delphereum>           }
{                                                                              }
{             Distributed under GNU AGPL v3.0 with Commons Clause              }
{                                                                              }
{   This program is free software: you can redistribute it and/or modify       }
{   it under the terms of the GNU Affero General Public License as published   }
{   by the Free Software Foundation, either version 3 of the License, or       }
{   (at your option) any later version.                                        }
{                                                                              }
{   This program is distributed in the hope that it will be useful,            }
{   but WITHOUT ANY WARRANTY; without even the implied warranty of             }
{   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the              }
{   GNU Affero General Public License for more details.                        }
{                                                                              }
{   You should have received a copy of the GNU Affero General Public License   }
{   along with this program.  If not, see <https://www.gnu.org/licenses/>      }
{                                                                              }
{******************************************************************************}

unit web3.eth.abi.tests;

{$I web3.inc}

interface

uses
  // DUnitX
  DUnitX.TestFramework;

type
  [TestFixture]
  TTests = class
  public
    [Test]
    procedure TestCase1;
    [Test]
    procedure TestCase2;
    [Test]
    procedure TestCase3;
    [Test]
    procedure TestCase4;
    [Test]
    procedure TestCase5;
    [Test]
    procedure TestCase6;
    [Test]
    procedure TestCase7;
    [Test]
    procedure TestCase8;
    [Test]
    procedure TestCase9;
  end;

implementation

uses
  // Delphi
  System.Math,
  System.SysUtils,
  // Velthuis' BigNumbers
  Velthuis.BigIntegers,
  // web3
  web3,
  web3.eth.abi,
  web3.eth.balancer.v2,
  web3.eth.types,
  web3.utils;

procedure TTests.TestCase1;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'baz(uint32,bool)', [69, True]
    ).ToLower,
    '0xcdcd77c0' +
    '0000000000000000000000000000000000000000000000000000000000000045' +
    '0000000000000000000000000000000000000000000000000000000000000001'
  );
end;

procedure TTests.TestCase2;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'sam(bytes,bool,uint256)', ['dave', True, 69]
    ).ToLower,
    '0x2fd6b0a2' +
    '0000000000000000000000000000000000000000000000000000000000000060' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '0000000000000000000000000000000000000000000000000000000000000045' +
    '0000000000000000000000000000000000000000000000000000000000000004' +
    '6461766500000000000000000000000000000000000000000000000000000000'
  );
end;

procedure TTests.TestCase3;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'sam(bytes,bool,uint256[])', ['dave', True, &array([1, 2, 3])]
    ).ToLower,
    '0xa5643bf2' +
    '0000000000000000000000000000000000000000000000000000000000000060' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '00000000000000000000000000000000000000000000000000000000000000a0' +
    '0000000000000000000000000000000000000000000000000000000000000004' +
    '6461766500000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000003' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '0000000000000000000000000000000000000000000000000000000000000002' +
    '0000000000000000000000000000000000000000000000000000000000000003'
  );
end;

procedure TTests.TestCase4;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'sam(uint256,uint32[],bytes)', [291, &array([1110, 1929]), 'Hello, world!']
    ).ToLower,
    '0x8bf36d46' +
    '0000000000000000000000000000000000000000000000000000000000000123' +
    '0000000000000000000000000000000000000000000000000000000000000060' +
    '00000000000000000000000000000000000000000000000000000000000000c0' +
    '0000000000000000000000000000000000000000000000000000000000000002' +
    '0000000000000000000000000000000000000000000000000000000000000456' +
    '0000000000000000000000000000000000000000000000000000000000000789' +
    '000000000000000000000000000000000000000000000000000000000000000d' +
    '48656c6c6f2c20776f726c642100000000000000000000000000000000000000'
  );
end;

procedure TTests.TestCase5;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'headlong_147(uint96,(uint16,int256))',
      [1123223036891436004, tuple([0, 97701118957406])]
    ).ToLower,
    '0xe2f6ed8b' +
    '0000000000000000000000000000000000000000000000000f967d66a57313e4' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '000000000000000000000000000000000000000000000000000058dbd07d575e'
  );
end;

procedure TTests.TestCase6;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'operate(' +
        '(address,uint256)[],' +          // accountOwner, accountNumber
        '(' +
          'uint8,uint256,' +              // actionType, accountId
          '(bool,uint8,uint8,uint256),' + // sign, denomination, reference, value
          'uint256,' +                    // primaryMarketId
          'uint256,' +                    // secondaryMarketId
          'address,' +                    // otherAddress
          'uint256,' +                    // otherAccountId
          'bytes' +                       // arbitrary data
        ')[]' +
      ')',
      [
        &array([
          tuple(['0x742d35Cc6634C0532925a3b844Bc454e4438f44e', 0])
        ]),
        &array([
          tuple([1, 0,
            tuple([False, 0, 0, '0x6D6E499B3301E6968B']),
          3, 0, '0x742d35Cc6634C0532925a3b844Bc454e4438f44e', 0, '0b0'])
        ])
      ]
    ).ToLower,
    '0xa67a6a45' +
    '0000000000000000000000000000000000000000000000000000000000000040' +
    '00000000000000000000000000000000000000000000000000000000000000a0' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '000000000000000000000000742d35cc6634c0532925a3b844bc454e4438f44e' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '0000000000000000000000000000000000000000000000000000000000000020' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '00000000000000000000000000000000000000000000006d6e499b3301e6968b' +
    '0000000000000000000000000000000000000000000000000000000000000003' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '000000000000000000000000742d35cc6634c0532925a3b844bc454e4438f44e' +
    '0000000000000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000160' +
    '0000000000000000000000000000000000000000000000000000000000000000'
  );
end;

procedure TTests.TestCase7;
begin
  Assert.AreEqual(
    web3.eth.abi.encode(
      'test(bytes)',
      [web3.utils.toBin(BigInteger.Create('0x0f00000002'))]
    ).ToLower,
    '0x2f570a23' +
    '0000000000000000000000000000000000000000000000000000000000000020' +
    '0000000000000000000000000000000000000000000000000000000000000005' +
    '0f00000002000000000000000000000000000000000000000000000000000000'
  );
end;

type
  TSimpleStruct = class(TInterfacedObject, IContractStruct)
  private
    First : string;
    Second: BigInteger;
    Third : string;
  public
    function Tuple: TArray<Variant>;
  end;

  function TSimpleStruct.Tuple: TArray<Variant>;
  begin
    Result := [Self.First, web3.utils.toHex(Self.Second), Self.Third];
  end;

procedure TTests.TestCase8;
begin
  const SS: IContractStruct = TSimpleStruct.Create;
  with SS as TSimpleStruct do
  begin
    First  := 'hello';
    Second := 69;
    Third  := 'world';
  end;
  Assert.AreEqual(
    web3.eth.abi.encode(
      'test(' +
        '(string,uint256,string)' +
      ')',
      [SS]
    ).ToLower,
    '0x962e238a' +
    '0000000000000000000000000000000000000000000000000000000000000020' +
    '0000000000000000000000000000000000000000000000000000000000000060' +
    '0000000000000000000000000000000000000000000000000000000000000045' +
    '00000000000000000000000000000000000000000000000000000000000000a0' +
    '0000000000000000000000000000000000000000000000000000000000000005' +
    '68656c6c6f000000000000000000000000000000000000000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000005' +
    '776f726c64000000000000000000000000000000000000000000000000000000'
  );
end;

procedure TTests.TestCase9;
begin
  const SS: ISingleSwap = TSingleSwap.Create
    .Kind(GivenOut)
    .PoolId(byteArrayToBytes32(web3.utils.fromHex('0x61d5dc44849c9c87b0856a2a311536205c96c7fd000200000000000000000000')))
    .AssetIn(TAddress('0xdFCeA9088c8A88A76FF74892C1457C17dfeef9C1').ToChecksum)  // WETH
    .AssetOut(TAddress('0x41286Bb1D3E870f3F750eB7E1C25d7E48c8A1Ac7').ToChecksum) // BAL
    .Amount(web3.utils.scale(100, 18));                                          // 100 BAL
  Assert.AreEqual(
    web3.eth.abi.encode(
      'swap(' +
        '(bytes32,uint8,address,address,uint256,bytes)' +
      ')',
      [SS]
    ).ToLower,
    '0x8fc89ecf' +
    '0000000000000000000000000000000000000000000000000000000000000020' +
    '61d5dc44849c9c87b0856a2a311536205c96c7fd000200000000000000000000' +
    '0000000000000000000000000000000000000000000000000000000000000001' +
    '000000000000000000000000dfcea9088c8a88a76ff74892c1457c17dfeef9c1' +
    '00000000000000000000000041286bb1d3e870f3f750eb7e1c25d7e48c8a1ac7' +
    '0000000000000000000000000000000000000000000000056bc75e2d63100000' +
    '00000000000000000000000000000000000000000000000000000000000000c0' +
    '0000000000000000000000000000000000000000000000000000000000000000'
  );
end;

initialization
  TDUnitX.RegisterTestFixture(TTests);

end.