path: root/test/libsolidity/SolidityEndToEndTest.cpp

/*
    This file is part of solidity.

    solidity is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    solidity 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 General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with solidity.  If not, see <http://www.gnu.org/licenses/>.
*/
/**
 * @author Christian <c@ethdev.com>
 * @author Gav Wood <g@ethdev.com>
 * @date 2014
 * Unit tests for the solidity expression compiler, testing the behaviour of the code.
 */

#include <functional>
#include <string>
#include <tuple>
#include <boost/test/unit_test.hpp>
#include <libevmasm/Assembly.h>
#include <libsolidity/interface/Exceptions.h>
#include <test/libsolidity/SolidityExecutionFramework.h>

using namespace std;
using namespace std::placeholders;
using namespace dev::test;

namespace dev
{
namespace solidity
{
namespace test
{

BOOST_FIXTURE_TEST_SUITE(SolidityEndToEndTest, SolidityExecutionFramework)

BOOST_AUTO_TEST_CASE(smoke_test)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint a) returns(uint d) { return a * 7; }
        }
    )";
    compileAndRun(sourceCode);
    testContractAgainstCppOnRange("f(uint256)", [](u256 const& a) -> u256 { return a * 7; }, 0, 100);
}

BOOST_AUTO_TEST_CASE(empty_contract)
{
    char const* sourceCode = R"(
        contract test { }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("i_am_not_there()", bytes()).empty());
}

BOOST_AUTO_TEST_CASE(exp_operator)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint a) returns(uint d) { return 2 ** a; }
        }
    )";
    compileAndRun(sourceCode);
    testContractAgainstCppOnRange("f(uint256)", [](u256 const& a) -> u256 { return u256(1 << a.convert_to<int>()); }, 0, 16);
}

BOOST_AUTO_TEST_CASE(exp_operator_const)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns(uint d) { return 2 ** 3; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()", bytes()) == toBigEndian(u256(8)));
}

BOOST_AUTO_TEST_CASE(exp_operator_const_signed)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns(int d) { return (-2) ** 3; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()", bytes()) == toBigEndian(u256(-8)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_true_literal)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns(uint d) {
                return true ? 5 : 10;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()", bytes()) == toBigEndian(u256(5)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_false_literal)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns(uint d) {
                return false ? 5 : 10;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()", bytes()) == toBigEndian(u256(10)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_multiple)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint x) returns(uint d) {
                return x > 100 ?
                            x > 1000 ? 1000 : 100
                            :
                            x > 50 ? 50 : 10;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1001)) == toBigEndian(u256(1000)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(500)) == toBigEndian(u256(100)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(80)) == toBigEndian(u256(50)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(40)) == toBigEndian(u256(10)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_with_return_values)
{
    char const* sourceCode = R"(
        contract test {
            function f(bool cond, uint v) returns (uint a, uint b) {
                cond ? a = v : b = v;
            }
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool,uint256)", true, u256(20)) == encodeArgs(u256(20), u256(0)));
    BOOST_CHECK(callContractFunction("f(bool,uint256)", false, u256(20)) == encodeArgs(u256(0), u256(20)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_storage_memory_1)
{
    char const* sourceCode = R"(
        contract test {
            bytes2[2] data1;
            function f(bool cond) returns (uint) {
                bytes2[2] memory x;
                x[0] = "aa";
                bytes2[2] memory y;
                y[0] = "bb";

                data1 = cond ? x : y;

                uint ret = 0;
                if (data1[0] == "aa")
                {
                    ret = 1;
                }

                if (data1[0] == "bb")
                {
                    ret = 2;
                }

                return ret;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_storage_memory_2)
{
    char const* sourceCode = R"(
        contract test {
            bytes2[2] data1;
            function f(bool cond) returns (uint) {
                data1[0] = "cc";

                bytes2[2] memory x;
                bytes2[2] memory y;
                y[0] = "bb";

                x = cond ? y : data1;

                uint ret = 0;
                if (x[0] == "bb")
                {
                    ret = 1;
                }

                if (x[0] == "cc")
                {
                    ret = 2;
                }

                return ret;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_different_types)
{
    char const* sourceCode = R"(
        contract test {
            function f(bool cond) returns (uint) {
                uint8 x = 0xcd;
                uint16 y = 0xabab;
                return cond ? x : y;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(u256(0xcd)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(u256(0xabab)));
}

/* let's add this back when I figure out the correct type conversion.
BOOST_AUTO_TEST_CASE(conditional_expression_string_literal)
{
    char const* sourceCode = R"(
        contract test {
            function f(bool cond) returns (bytes32) {
                return cond ? "true" : "false";
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(string("true", 4)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(string("false", 5)));
}
*/

BOOST_AUTO_TEST_CASE(conditional_expression_tuples)
{
    char const* sourceCode = R"(
        contract test {
            function f(bool cond) returns (uint, uint) {
                return cond ? (1, 2) : (3, 4);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(u256(1), u256(2)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(u256(3), u256(4)));
}

BOOST_AUTO_TEST_CASE(conditional_expression_functions)
{
    char const* sourceCode = R"(
        contract test {
            function x() returns (uint) { return 1; }
            function y() returns (uint) { return 2; }

            function f(bool cond) returns (uint) {
                var z = cond ? x : y;
                return z();
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(recursive_calls)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns(uint nfac) {
                if (n <= 1) return 1;
                else return n * f(n - 1);
            }
        }
    )";
    compileAndRun(sourceCode);
    function<u256(u256)> recursive_calls_cpp = [&recursive_calls_cpp](u256 const& n) -> u256
    {
        if (n <= 1)
            return 1;
        else
            return n * recursive_calls_cpp(n - 1);
    };

    testContractAgainstCppOnRange("f(uint256)", recursive_calls_cpp, 0, 5);
}

BOOST_AUTO_TEST_CASE(multiple_functions)
{
    char const* sourceCode = R"(
        contract test {
            function a() returns(uint n) { return 0; }
            function b() returns(uint n) { return 1; }
            function c() returns(uint n) { return 2; }
            function f() returns(uint n) { return 3; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("a()", bytes()) == toBigEndian(u256(0)));
    BOOST_CHECK(callContractFunction("b()", bytes()) == toBigEndian(u256(1)));
    BOOST_CHECK(callContractFunction("c()", bytes()) == toBigEndian(u256(2)));
    BOOST_CHECK(callContractFunction("f()", bytes()) == toBigEndian(u256(3)));
    BOOST_CHECK(callContractFunction("i_am_not_there()", bytes()) == bytes());
}

BOOST_AUTO_TEST_CASE(named_args)
{
    char const* sourceCode = R"(
        contract test {
            function a(uint a, uint b, uint c) returns (uint r) { r = a * 100 + b * 10 + c * 1; }
            function b() returns (uint r) { r = a({a: 1, b: 2, c: 3}); }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("b()", bytes()) == toBigEndian(u256(123)));
}

BOOST_AUTO_TEST_CASE(disorder_named_args)
{
    char const* sourceCode = R"(
        contract test {
            function a(uint a, uint b, uint c) returns (uint r) { r = a * 100 + b * 10 + c * 1; }
            function b() returns (uint r) { r = a({c: 3, a: 1, b: 2}); }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("b()", bytes()) == toBigEndian(u256(123)));
}

BOOST_AUTO_TEST_CASE(while_loop)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns(uint nfac) {
                nfac = 1;
                var i = 2;
                while (i <= n) nfac *= i++;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto while_loop_cpp = [](u256 const& n) -> u256
    {
        u256 nfac = 1;
        u256 i = 2;
        while (i <= n)
            nfac *= i++;

        return nfac;
    };

    testContractAgainstCppOnRange("f(uint256)", while_loop_cpp, 0, 5);
}


BOOST_AUTO_TEST_CASE(do_while_loop)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns(uint nfac) {
                nfac = 1;
                var i = 2;
                do { nfac *= i++; } while (i <= n);
            }
        }
    )";
    compileAndRun(sourceCode);

    auto do_while_loop_cpp = [](u256 const& n) -> u256
    {
        u256 nfac = 1;
        u256 i = 2;
        do
        {
            nfac *= i++;
        }
        while (i <= n);

        return nfac;
    };

    testContractAgainstCppOnRange("f(uint256)", do_while_loop_cpp, 0, 5);
}

BOOST_AUTO_TEST_CASE(nested_loops)
{
    // tests that break and continue statements in nested loops jump to the correct place
    char const* sourceCode = R"(
        contract test {
            function f(uint x) returns(uint y) {
                while (x > 1) {
                    if (x == 10) break;
                    while (x > 5) {
                        if (x == 8) break;
                        x--;
                        if (x == 6) continue;
                        return x;
                    }
                    x--;
                    if (x == 3) continue;
                    break;
                }
                return x;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto nested_loops_cpp = [](u256 n) -> u256
    {
        while (n > 1)
        {
            if (n == 10)
                break;
            while (n > 5)
            {
                if (n == 8)
                    break;
                n--;
                if (n == 6)
                    continue;
                return n;
            }
            n--;
            if (n == 3)
                continue;
            break;
        }

        return n;
    };

    testContractAgainstCppOnRange("f(uint256)", nested_loops_cpp, 0, 12);
}

BOOST_AUTO_TEST_CASE(for_loop)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns(uint nfac) {
                nfac = 1;
                for (var i = 2; i <= n; i++)
                    nfac *= i;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto for_loop_cpp = [](u256 const& n) -> u256
    {
        u256 nfac = 1;
        for (auto i = 2; i <= n; i++)
            nfac *= i;
        return nfac;
    };

    testContractAgainstCppOnRange("f(uint256)", for_loop_cpp, 0, 5);
}

BOOST_AUTO_TEST_CASE(for_loop_empty)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns(uint ret) {
                ret = 1;
                for (;;) {
                    ret += 1;
                    if (ret >= 10) break;
                }
            }
        }
    )";
    compileAndRun(sourceCode);

    auto for_loop_empty_cpp = []() -> u256
    {
        u256 ret = 1;
        for (;;)
        {
            ret += 1;
            if (ret >= 10) break;
        }
        return ret;
    };

    testContractAgainstCpp("f()", for_loop_empty_cpp);
}

BOOST_AUTO_TEST_CASE(for_loop_simple_init_expr)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns(uint nfac) {
                nfac = 1;
                uint256 i;
                for (i = 2; i <= n; i++)
                    nfac *= i;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto for_loop_simple_init_expr_cpp = [](u256 const& n) -> u256
    {
        u256 nfac = 1;
        u256 i;
        for (i = 2; i <= n; i++)
            nfac *= i;
        return nfac;
    };

    testContractAgainstCppOnRange("f(uint256)", for_loop_simple_init_expr_cpp, 0, 5);
}

BOOST_AUTO_TEST_CASE(for_loop_break_continue)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint n) returns (uint r)
            {
                uint i = 1;
                uint k = 0;
                for (i *= 5; k < n; i *= 7)
                {
                    k++;
                    i += 4;
                    if (n % 3 == 0)
                        break;
                    i += 9;
                    if (n % 2 == 0)
                        continue;
                    i += 19;
                }
                return i;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto breakContinue = [](u256 const& n) -> u256
    {
        u256 i = 1;
        u256 k = 0;
        for (i *= 5; k < n; i *= 7)
        {
            k++;
            i += 4;
            if (n % 3 == 0)
                break;
            i += 9;
            if (n % 2 == 0)
                continue;
            i += 19;
        }
        return i;
    };

    testContractAgainstCppOnRange("f(uint256)", breakContinue, 0, 10);
}

BOOST_AUTO_TEST_CASE(calling_other_functions)
{
    char const* sourceCode = R"(
        contract collatz {
            function run(uint x) returns(uint y) {
                while ((y = x) > 1) {
                    if (x % 2 == 0) x = evenStep(x);
                    else x = oddStep(x);
                }
            }
            function evenStep(uint x) returns(uint y) {
                return x / 2;
            }
            function oddStep(uint x) returns(uint y) {
                return 3 * x + 1;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto evenStep_cpp = [](u256 const& n) -> u256
    {
        return n / 2;
    };

    auto oddStep_cpp = [](u256 const& n) -> u256
    {
        return 3 * n + 1;
    };

    auto collatz_cpp = [&evenStep_cpp, &oddStep_cpp](u256 n) -> u256
    {
        u256 y;
        while ((y = n) > 1)
        {
            if (n % 2 == 0)
                n = evenStep_cpp(n);
            else
                n = oddStep_cpp(n);
        }
        return y;
    };

    testContractAgainstCpp("run(uint256)", collatz_cpp, u256(0));
    testContractAgainstCpp("run(uint256)", collatz_cpp, u256(1));
    testContractAgainstCpp("run(uint256)", collatz_cpp, u256(2));
    testContractAgainstCpp("run(uint256)", collatz_cpp, u256(8));
    testContractAgainstCpp("run(uint256)", collatz_cpp, u256(127));
}

BOOST_AUTO_TEST_CASE(many_local_variables)
{
    char const* sourceCode = R"(
        contract test {
            function run(uint x1, uint x2, uint x3) returns(uint y) {
                var a = 0x1; var b = 0x10; var c = 0x100;
                y = a + b + c + x1 + x2 + x3;
                y += b + x2;
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [](u256 const& x1, u256 const& x2, u256 const& x3) -> u256
    {
        u256 a = 0x1;
        u256 b = 0x10;
        u256 c = 0x100;
        u256 y = a + b + c + x1 + x2 + x3;
        return y + b + x2;
    };
    testContractAgainstCpp("run(uint256,uint256,uint256)", f, u256(0x1000), u256(0x10000), u256(0x100000));
}

BOOST_AUTO_TEST_CASE(packing_unpacking_types)
{
    char const* sourceCode = R"(
        contract test {
            function run(bool a, uint32 b, uint64 c) returns(uint256 y) {
                if (a) y = 1;
                y = y * 0x100000000 | ~b;
                y = y * 0x10000000000000000 | ~c;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("run(bool,uint32,uint64)", true, fromHex("0f0f0f0f"), fromHex("f0f0f0f0f0f0f0f0"))
                == fromHex("00000000000000000000000000000000000000""01""f0f0f0f0""0f0f0f0f0f0f0f0f"));
}

BOOST_AUTO_TEST_CASE(packing_signed_types)
{
    char const* sourceCode = R"(
        contract test {
            function run() returns(int8 y) {
                uint8 x = 0xfa;
                return int8(x);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("run()")
                == fromHex("fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffa"));
}

BOOST_AUTO_TEST_CASE(multiple_return_values)
{
    char const* sourceCode = R"(
        contract test {
            function run(bool x1, uint x2) returns(uint y1, bool y2, uint y3) {
                y1 = x2; y2 = x1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("run(bool,uint256)", true, 0xcd) == encodeArgs(0xcd, true, 0));
}

BOOST_AUTO_TEST_CASE(short_circuiting)
{
    char const* sourceCode = R"(
        contract test {
            function run(uint x) returns(uint y) {
                x == 0 || ((x = 8) > 0);
                return x;
            }
        }
    )";
    compileAndRun(sourceCode);

    auto short_circuiting_cpp = [](u256 n) -> u256
    {
        (void)(n == 0 || (n = 8) > 0);
        return n;
    };

    testContractAgainstCppOnRange("run(uint256)", short_circuiting_cpp, 0, 2);
}

BOOST_AUTO_TEST_CASE(high_bits_cleaning)
{
    char const* sourceCode = R"(
        contract test {
            function run() returns(uint256 y) {
                uint32 t = uint32(0xffffffff);
                uint32 x = t + 10;
                if (x >= 0xffffffff) return 0;
                return x;
            }
        }
    )";
    compileAndRun(sourceCode);
    auto high_bits_cleaning_cpp = []() -> u256
    {
        uint32_t t = uint32_t(0xffffffff);
        uint32_t x = t + 10;
        if (x >= 0xffffffff)
            return 0;
        return x;
    };
    testContractAgainstCpp("run()", high_bits_cleaning_cpp);
}

BOOST_AUTO_TEST_CASE(sign_extension)
{
    char const* sourceCode = R"(
        contract test {
            function run() returns(uint256 y) {
                int64 x = -int32(0xff);
                if (x >= 0xff) return 0;
                return -uint256(x);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto sign_extension_cpp = []() -> u256
    {
        int64_t x = -int32_t(0xff);
        if (x >= 0xff)
            return 0;
        return u256(x) * -1;
    };
    testContractAgainstCpp("run()", sign_extension_cpp);
}

BOOST_AUTO_TEST_CASE(small_unsigned_types)
{
    char const* sourceCode = R"(
        contract test {
            function run() returns(uint256 y) {
                uint32 t = uint32(0xffffff);
                uint32 x = t * 0xffffff;
                return x / 0x100;
            }
        }
    )";
    compileAndRun(sourceCode);
    auto small_unsigned_types_cpp = []() -> u256
    {
        uint32_t t = uint32_t(0xffffff);
        uint32_t x = t * 0xffffff;
        return x / 0x100;
    };
    testContractAgainstCpp("run()", small_unsigned_types_cpp);
}

BOOST_AUTO_TEST_CASE(small_signed_types)
{
    char const* sourceCode = R"(
        contract test {
            function run() returns(int256 y) {
                return -int32(10) * -int64(20);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto small_signed_types_cpp = []() -> u256
    {
        return -int32_t(10) * -int64_t(20);
    };
    testContractAgainstCpp("run()", small_signed_types_cpp);
}

BOOST_AUTO_TEST_CASE(strings)
{
    char const* sourceCode = R"(
        contract test {
            function fixedBytes() returns(bytes32 ret) {
                return "abc\x00\xff__";
            }
            function pipeThrough(bytes2 small, bool one) returns(bytes16 large, bool oneRet) {
                oneRet = one;
                large = small;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("fixedBytes()") == encodeArgs(string("abc\0\xff__", 7)));
    BOOST_CHECK(callContractFunction("pipeThrough(bytes2,bool)", string("\0\x02", 2), true) == encodeArgs(string("\0\x2", 2), true));
}

BOOST_AUTO_TEST_CASE(inc_dec_operators)
{
    char const* sourceCode = R"(
        contract test {
            uint8 x;
            uint v;
            function f() returns (uint r) {
                uint a = 6;
                r = a;
                r += (a++) * 0x10;
                r += (++a) * 0x100;
                v = 3;
                r += (v++) * 0x1000;
                r += (++v) * 0x10000;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(0x53866));
}

BOOST_AUTO_TEST_CASE(bytes_comparison)
{
    char const* sourceCode = R"(
        contract test {
            function f() returns (bool) {
                bytes2 a = "a";
                bytes2 x = "aa";
                bytes2 b = "b";
                return a < x && x < b;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(state_smoke_test)
{
    char const* sourceCode = R"(
        contract test {
            uint256 value1;
            uint256 value2;
            function get(uint8 which) returns (uint256 value) {
                if (which == 0) return value1;
                else return value2;
            }
            function set(uint8 which, uint256 value) {
                if (which == 0) value1 = value;
                else value2 = value;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x00)) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("set(uint8,uint256)", byte(0x00), 0x1234) == encodeArgs());
    BOOST_CHECK(callContractFunction("set(uint8,uint256)", byte(0x01), 0x8765) == encodeArgs());
    BOOST_CHECK(callContractFunction("get(uint8)", byte( 0x00)) == encodeArgs(0x1234));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(0x8765));
    BOOST_CHECK(callContractFunction("set(uint8,uint256)", byte(0x00), 0x3) == encodeArgs());
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x00)) == encodeArgs(0x3));
}

BOOST_AUTO_TEST_CASE(compound_assign)
{
    char const* sourceCode = R"(
        contract test {
            uint value1;
            uint value2;
            function f(uint x, uint y) returns (uint w) {
                uint value3 = y;
                value1 += x;
                value3 *= x;
                value2 *= value3 + value1;
                return value2 += 7;
            }
        }
    )";
    compileAndRun(sourceCode);

    u256 value1;
    u256 value2;
    auto f = [&](u256 const& _x, u256 const& _y) -> u256
    {
        u256 value3 = _y;
        value1 += _x;
        value3 *= _x;
        value2 *= value3 + value1;
        return value2 += 7;
    };
    testContractAgainstCpp("f(uint256,uint256)", f, u256(0), u256(6));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(1), u256(3));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(2), u256(25));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(3), u256(69));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(4), u256(84));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(5), u256(2));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(6), u256(51));
    testContractAgainstCpp("f(uint256,uint256)", f, u256(7), u256(48));
}

BOOST_AUTO_TEST_CASE(simple_mapping)
{
    char const* sourceCode = R"(
        contract test {
            mapping(uint8 => uint8) table;
            function get(uint8 k) returns (uint8 v) {
                return table[k];
            }
            function set(uint8 k, uint8 v) {
                table[k] = v;
            }
        }
    )";
    compileAndRun(sourceCode);

    BOOST_CHECK(callContractFunction("get(uint8)", byte(0)) == encodeArgs(byte(0x00)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(byte(0x00)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0xa7)) == encodeArgs(byte(0x00)));
    callContractFunction("set(uint8,uint8)", byte(0x01), byte(0xa1));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x00)) == encodeArgs(byte(0x00)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(byte(0xa1)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0xa7)) == encodeArgs(byte(0x00)));
    callContractFunction("set(uint8,uint8)", byte(0x00), byte(0xef));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x00)) == encodeArgs(byte(0xef)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(byte(0xa1)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0xa7)) == encodeArgs(byte(0x00)));
    callContractFunction("set(uint8,uint8)", byte(0x01), byte(0x05));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x00)) == encodeArgs(byte(0xef)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0x01)) == encodeArgs(byte(0x05)));
    BOOST_CHECK(callContractFunction("get(uint8)", byte(0xa7)) == encodeArgs(byte(0x00)));
}

BOOST_AUTO_TEST_CASE(mapping_state)
{
    char const* sourceCode = R"(
        contract Ballot {
            mapping(address => bool) canVote;
            mapping(address => uint) voteCount;
            mapping(address => bool) voted;
            function getVoteCount(address addr) returns (uint retVoteCount) {
                return voteCount[addr];
            }
            function grantVoteRight(address addr) {
                canVote[addr] = true;
            }
            function vote(address voter, address vote) returns (bool success) {
                if (!canVote[voter] || voted[voter]) return false;
                voted[voter] = true;
                voteCount[vote] = voteCount[vote] + 1;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode);
    class Ballot
    {
    public:
        u256 getVoteCount(u160 _address) { return m_voteCount[_address]; }
        void grantVoteRight(u160 _address) { m_canVote[_address] = true; }
        bool vote(u160 _voter, u160 _vote)
        {
            if (!m_canVote[_voter] || m_voted[_voter]) return false;
            m_voted[_voter] = true;
            m_voteCount[_vote]++;
            return true;
        }
    private:
        map<u160, bool> m_canVote;
        map<u160, u256> m_voteCount;
        map<u160, bool> m_voted;
    } ballot;

    auto getVoteCount = bind(&Ballot::getVoteCount, &ballot, _1);
    auto grantVoteRight = bind(&Ballot::grantVoteRight, &ballot, _1);
    auto vote = bind(&Ballot::vote, &ballot, _1, _2);
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
    // voting without vote right should be rejected
    testContractAgainstCpp("vote(address,address)", vote, u160(0), u160(2));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
    // grant vote rights
    testContractAgainstCpp("grantVoteRight(address)", grantVoteRight, u160(0));
    testContractAgainstCpp("grantVoteRight(address)", grantVoteRight, u160(1));
    // vote, should increase 2's vote count
    testContractAgainstCpp("vote(address,address)", vote, u160(0), u160(2));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
    // vote again, should be rejected
    testContractAgainstCpp("vote(address,address)", vote, u160(0), u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
    // vote without right to vote
    testContractAgainstCpp("vote(address,address)", vote, u160(2), u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
    // grant vote right and now vote again
    testContractAgainstCpp("grantVoteRight(address)", grantVoteRight, u160(2));
    testContractAgainstCpp("vote(address,address)", vote, u160(2), u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(0));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(1));
    testContractAgainstCpp("getVoteCount(address)", getVoteCount, u160(2));
}

BOOST_AUTO_TEST_CASE(mapping_state_inc_dec)
{
    char const* sourceCode = R"(
        contract test {
            uint value;
            mapping(uint => uint) table;
            function f(uint x) returns (uint y) {
                value = x;
                if (x > 0) table[++value] = 8;
                if (x > 1) value--;
                if (x > 2) table[value]++;
                return --table[value++];
            }
        }
    )";
    compileAndRun(sourceCode);

    u256 value = 0;
    map<u256, u256> table;
    auto f = [&](u256 const& _x) -> u256
    {
        value = _x;
        if (_x > 0)
            table[++value] = 8;
        if (_x > 1)
            value --;
        if (_x > 2)
            table[value]++;
        return --table[value++];
    };
    testContractAgainstCppOnRange("f(uint256)", f, 0, 5);
}

BOOST_AUTO_TEST_CASE(multi_level_mapping)
{
    char const* sourceCode = R"(
        contract test {
            mapping(uint => mapping(uint => uint)) table;
            function f(uint x, uint y, uint z) returns (uint w) {
                if (z == 0) return table[x][y];
                else return table[x][y] = z;
            }
        }
    )";
    compileAndRun(sourceCode);

    map<u256, map<u256, u256>> table;
    auto f = [&](u256 const& _x, u256 const& _y, u256 const& _z) -> u256
    {
        if (_z == 0) return table[_x][_y];
        else return table[_x][_y] = _z;
    };
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(4), u256(5), u256(0));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(5), u256(4), u256(0));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(4), u256(5), u256(9));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(4), u256(5), u256(0));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(5), u256(4), u256(0));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(5), u256(4), u256(7));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(4), u256(5), u256(0));
    testContractAgainstCpp("f(uint256,uint256,uint256)", f, u256(5), u256(4), u256(0));
}

BOOST_AUTO_TEST_CASE(structs)
{
    char const* sourceCode = R"(
        contract test {
            struct s1 {
                uint8 x;
                bool y;
            }
            struct s2 {
                uint32 z;
                s1 s1data;
                mapping(uint8 => s2) recursive;
            }
            s2 data;
            function check() returns (bool ok) {
                return data.z == 1 && data.s1data.x == 2 &&
                    data.s1data.y == true &&
                    data.recursive[3].recursive[4].z == 5 &&
                    data.recursive[4].recursive[3].z == 6 &&
                    data.recursive[0].s1data.y == false &&
                    data.recursive[4].z == 9;
            }
            function set() {
                data.z = 1;
                data.s1data.x = 2;
                data.s1data.y = true;
                data.recursive[3].recursive[4].z = 5;
                data.recursive[4].recursive[3].z = 6;
                data.recursive[0].s1data.y = false;
                data.recursive[4].z = 9;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("check()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("set()") == bytes());
    BOOST_CHECK(callContractFunction("check()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(struct_reference)
{
    char const* sourceCode = R"(
        contract test {
            struct s2 {
                uint32 z;
                mapping(uint8 => s2) recursive;
            }
            s2 data;
            function check() returns (bool ok) {
                return data.z == 2 &&
                    data.recursive[0].z == 3 &&
                    data.recursive[0].recursive[1].z == 0 &&
                    data.recursive[0].recursive[0].z == 1;
            }
            function set() {
                data.z = 2;
                var map = data.recursive;
                s2 inner = map[0];
                inner.z = 3;
                inner.recursive[0].z = inner.recursive[1].z + 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("check()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("set()") == bytes());
    BOOST_CHECK(callContractFunction("check()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(deleteStruct)
{
    char const* sourceCode = R"(
        contract test {
            struct topStruct {
                nestedStruct nstr;
                emptyStruct empty;
                uint topValue;
                mapping (uint => uint) topMapping;
            }
            uint toDelete;
            topStruct str;
            struct nestedStruct {
                uint nestedValue;
                mapping (uint => bool) nestedMapping;
            }
            struct emptyStruct{
            }
            function test(){
                toDelete = 5;
                str.topValue = 1;
                str.topMapping[0] = 1;
                str.topMapping[1] = 2;

                str.nstr.nestedValue = 2;
                str.nstr.nestedMapping[0] = true;
                str.nstr.nestedMapping[1] = false;
                delete str;
                delete toDelete;
            }
            function getToDelete() returns (uint res){
                res = toDelete;
            }
            function getTopValue() returns(uint topValue){
                topValue = str.topValue;
            }
            function getNestedValue() returns(uint nestedValue){
                nestedValue = str.nstr.nestedValue;
            }
            function getTopMapping(uint index) returns(uint ret) {
                ret = str.topMapping[index];
            }
            function getNestedMapping(uint index) returns(bool ret) {
                return str.nstr.nestedMapping[index];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getToDelete()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("getTopValue()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("getNestedValue()") == encodeArgs(0));
    // mapping values should be the same
    BOOST_CHECK(callContractFunction("getTopMapping(uint256)", 0) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("getTopMapping(uint256)", 1) == encodeArgs(2));
    BOOST_CHECK(callContractFunction("getNestedMapping(uint256)", 0) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("getNestedMapping(uint256)", 1) == encodeArgs(false));
}

BOOST_AUTO_TEST_CASE(deleteLocal)
{
    char const* sourceCode = R"(
        contract test {
            function delLocal() returns (uint res){
                uint v = 5;
                delete v;
                res = v;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("delLocal()") == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(deleteLocals)
{
    char const* sourceCode = R"(
        contract test {
            function delLocal() returns (uint res1, uint res2){
                uint v = 5;
                uint w = 6;
                uint x = 7;
                delete v;
                res1 = w;
                res2 = x;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("delLocal()") == encodeArgs(6, 7));
}

BOOST_AUTO_TEST_CASE(constructor)
{
    char const* sourceCode = R"(
        contract test {
            mapping(uint => uint) data;
            function test() {
                data[7] = 8;
            }
            function get(uint key) returns (uint value) {
                return data[key];
            }
        }
    )";
    compileAndRun(sourceCode);
    map<u256, byte> data;
    data[7] = 8;
    auto get = [&](u256 const& _x) -> u256
    {
        return data[_x];
    };
    testContractAgainstCpp("get(uint256)", get, u256(6));
    testContractAgainstCpp("get(uint256)", get, u256(7));
}

BOOST_AUTO_TEST_CASE(simple_accessor)
{
    char const* sourceCode = R"(
        contract test {
            uint256 public data;
            function test() {
                data = 8;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("data()") == encodeArgs(8));
}

BOOST_AUTO_TEST_CASE(array_accessor)
{
    char const* sourceCode = R"(
        contract test {
            uint[8] public data;
            uint[] public dynamicData;
            uint24[] public smallTypeData;
            struct st { uint a; uint[] finalArray; }
            mapping(uint256 => mapping(uint256 => st[5])) public multiple_map;

            function test() {
                data[0] = 8;
                dynamicData.length = 3;
                dynamicData[2] = 8;
                smallTypeData.length = 128;
                smallTypeData[1] = 22;
                smallTypeData[127] = 2;
                multiple_map[2][1][2].a = 3;
                multiple_map[2][1][2].finalArray.length = 4;
                multiple_map[2][1][2].finalArray[3] = 5;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("data(uint256)", 0) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("data(uint256)", 8) == encodeArgs());
    BOOST_CHECK(callContractFunction("dynamicData(uint256)", 2) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("dynamicData(uint256)", 8) == encodeArgs());
    BOOST_CHECK(callContractFunction("smallTypeData(uint256)", 1) == encodeArgs(22));
    BOOST_CHECK(callContractFunction("smallTypeData(uint256)", 127) == encodeArgs(2));
    BOOST_CHECK(callContractFunction("smallTypeData(uint256)", 128) == encodeArgs());
    BOOST_CHECK(callContractFunction("multiple_map(uint256,uint256,uint256)", 2, 1, 2) == encodeArgs(3));
}

BOOST_AUTO_TEST_CASE(accessors_mapping_for_array)
{
    char const* sourceCode = R"(
        contract test {
            mapping(uint => uint[8]) public data;
            mapping(uint => uint[]) public dynamicData;
            function test() {
                data[2][2] = 8;
                dynamicData[2].length = 3;
                dynamicData[2][2] = 8;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("data(uint256,uint256)", 2, 2) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("data(uint256, 256)", 2, 8) == encodeArgs());
    BOOST_CHECK(callContractFunction("dynamicData(uint256,uint256)", 2, 2) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("dynamicData(uint256,uint256)", 2, 8) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(multiple_elementary_accessors)
{
    char const* sourceCode = R"(
        contract test {
            uint256 public data;
            bytes6 public name;
            bytes32 public a_hash;
            address public an_address;
            function test() {
                data = 8;
                name = "Celina";
                a_hash = keccak256(123);
                an_address = address(0x1337);
                super_secret_data = 42;
            }
            uint256 super_secret_data;
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("data()") == encodeArgs(8));
    BOOST_CHECK(callContractFunction("name()") == encodeArgs("Celina"));
    BOOST_CHECK(callContractFunction("a_hash()") == encodeArgs(dev::keccak256(bytes(1, 0x7b))));
    BOOST_CHECK(callContractFunction("an_address()") == encodeArgs(toBigEndian(u160(0x1337))));
    BOOST_CHECK(callContractFunction("super_secret_data()") == bytes());
}

BOOST_AUTO_TEST_CASE(complex_accessors)
{
    char const* sourceCode = R"(
        contract test {
            mapping(uint256 => bytes4) public to_string_map;
            mapping(uint256 => bool) public to_bool_map;
            mapping(uint256 => uint256) public to_uint_map;
            mapping(uint256 => mapping(uint256 => uint256)) public to_multiple_map;
            function test() {
                to_string_map[42] = "24";
                to_bool_map[42] = false;
                to_uint_map[42] = 12;
                to_multiple_map[42][23] = 31;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("to_string_map(uint256)", 42) == encodeArgs("24"));
    BOOST_CHECK(callContractFunction("to_bool_map(uint256)", 42) == encodeArgs(false));
    BOOST_CHECK(callContractFunction("to_uint_map(uint256)", 42) == encodeArgs(12));
    BOOST_CHECK(callContractFunction("to_multiple_map(uint256,uint256)", 42, 23) == encodeArgs(31));
}

BOOST_AUTO_TEST_CASE(struct_accessor)
{
    char const* sourceCode = R"(
        contract test {
            struct Data { uint a; uint8 b; mapping(uint => uint) c; bool d; }
            mapping(uint => Data) public data;
            function test() {
                data[7].a = 1;
                data[7].b = 2;
                data[7].c[0] = 3;
                data[7].d = true;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("data(uint256)", 7) == encodeArgs(1, 2, true));
}

BOOST_AUTO_TEST_CASE(balance)
{
    char const* sourceCode = R"(
        contract test {
            function test() payable {}
            function getBalance() returns (uint256 balance) {
                return address(this).balance;
            }
        }
    )";
    compileAndRun(sourceCode, 23);
    BOOST_CHECK(callContractFunction("getBalance()") == encodeArgs(23));
}

BOOST_AUTO_TEST_CASE(blockchain)
{
    char const* sourceCode = R"(
        contract test {
            function test() payable {}
            function someInfo() payable returns (uint256 value, address coinbase, uint256 blockNumber) {
                value = msg.value;
                coinbase = block.coinbase;
                blockNumber = block.number;
            }
        }
    )";
    BOOST_CHECK(m_rpc.rpcCall("miner_setEtherbase", {"\"0x1212121212121212121212121212121212121212\""}).asBool() == true);
    m_rpc.test_mineBlocks(5);
    compileAndRun(sourceCode, 27);
    BOOST_CHECK(callContractFunctionWithValue("someInfo()", 28) == encodeArgs(28, u256("0x1212121212121212121212121212121212121212"), 7));
}

BOOST_AUTO_TEST_CASE(msg_sig)
{
    char const* sourceCode = R"(
        contract test {
            function foo(uint256 a) returns (bytes4 value) {
                return msg.sig;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("foo(uint256)") == encodeArgs(asString(FixedHash<4>(dev::keccak256("foo(uint256)")).asBytes())));
}

BOOST_AUTO_TEST_CASE(msg_sig_after_internal_call_is_same)
{
    char const* sourceCode = R"(
        contract test {
            function boo() returns (bytes4 value) {
                return msg.sig;
            }
            function foo(uint256 a) returns (bytes4 value) {
                return boo();
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("foo(uint256)") == encodeArgs(asString(FixedHash<4>(dev::keccak256("foo(uint256)")).asBytes())));
}

BOOST_AUTO_TEST_CASE(now)
{
    char const* sourceCode = R"(
        contract test {
            function someInfo() returns (bool equal, uint val) {
                equal = block.timestamp == now;
                val = now;
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 startBlock = m_blockNumber;
    size_t startTime = blockTimestamp(startBlock);
    auto ret = callContractFunction("someInfo()");
    u256 endBlock = m_blockNumber;
    size_t endTime = blockTimestamp(endBlock);
    BOOST_CHECK(startBlock != endBlock);
    BOOST_CHECK(startTime != endTime);
    BOOST_CHECK(ret == encodeArgs(true, endTime));
}

BOOST_AUTO_TEST_CASE(type_conversions_cleanup)
{
    // 22-byte integer converted to a contract (i.e. address, 20 bytes), converted to a 32 byte
    // integer should drop the first two bytes
    char const* sourceCode = R"(
        contract Test {
            function test() returns (uint ret) { return uint(address(Test(address(0x11223344556677889900112233445566778899001122)))); }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_REQUIRE(callContractFunction("test()") == bytes({0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
                                                           0x33, 0x44, 0x55, 0x66, 0x77, 0x88, 0x99, 0x00, 0x11, 0x22,
                                                           0x33, 0x44, 0x55, 0x66, 0x77, 0x88, 0x99, 0x00, 0x11, 0x22}));
}
// fixed bytes to fixed bytes conversion tests
BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_fixed_bytes_smaller_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToBytes(bytes4 input) returns (bytes2 ret) {
                return bytes2(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToBytes(bytes4)", "abcd") == encodeArgs("ab"));
}

BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_fixed_bytes_greater_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToBytes(bytes2 input) returns (bytes4 ret) {
                return bytes4(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToBytes(bytes2)", "ab") == encodeArgs("ab"));
}

BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_fixed_bytes_same_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToBytes(bytes4 input) returns (bytes4 ret) {
                return bytes4(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToBytes(bytes4)", "abcd") == encodeArgs("abcd"));
}

// fixed bytes to uint conversion tests
BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_uint_same_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToUint(bytes32 s) returns (uint256 h) {
                return uint(s);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToUint(bytes32)", string("abc2")) ==
        encodeArgs(u256("0x6162633200000000000000000000000000000000000000000000000000000000")));
}

BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_uint_same_min_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToUint(bytes1 s) returns (uint8 h) {
                return uint8(s);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToUint(bytes1)", string("a")) ==
        encodeArgs(u256("0x61")));
}

BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_uint_smaller_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToUint(bytes4 s) returns (uint16 h) {
                return uint16(s);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToUint(bytes4)", string("abcd")) ==
        encodeArgs(u256("0x6364")));
}

BOOST_AUTO_TEST_CASE(convert_fixed_bytes_to_uint_greater_size)
{
    char const* sourceCode = R"(
        contract Test {
            function bytesToUint(bytes4 s) returns (uint64 h) {
                return uint64(s);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("bytesToUint(bytes4)", string("abcd")) ==
        encodeArgs(u256("0x61626364")));
}

// uint fixed bytes conversion tests
BOOST_AUTO_TEST_CASE(convert_uint_to_fixed_bytes_same_size)
{
    char const* sourceCode = R"(
        contract Test {
            function uintToBytes(uint256 h) returns (bytes32 s) {
                return bytes32(h);
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 a("0x6162630000000000000000000000000000000000000000000000000000000000");
    BOOST_CHECK(callContractFunction("uintToBytes(uint256)", a) == encodeArgs(a));
}

BOOST_AUTO_TEST_CASE(convert_uint_to_fixed_bytes_same_min_size)
{
    char const* sourceCode = R"(
        contract Test {
            function UintToBytes(uint8 h) returns (bytes1 s) {
                return bytes1(h);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("UintToBytes(uint8)", u256("0x61")) ==
        encodeArgs(string("a")));
}

BOOST_AUTO_TEST_CASE(convert_uint_to_fixed_bytes_smaller_size)
{
    char const* sourceCode = R"(
        contract Test {
            function uintToBytes(uint32 h) returns (bytes2 s) {
                return bytes2(h);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("uintToBytes(uint32)",
            u160("0x61626364")) == encodeArgs(string("cd")));
}

BOOST_AUTO_TEST_CASE(convert_uint_to_fixed_bytes_greater_size)
{
    char const* sourceCode = R"(
        contract Test {
            function UintToBytes(uint16 h) returns (bytes8 s) {
                return bytes8(h);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(
        callContractFunction("UintToBytes(uint16)", u256("0x6162")) ==
        encodeArgs(string("\0\0\0\0\0\0ab", 8))
    );
}

BOOST_AUTO_TEST_CASE(send_ether)
{
    char const* sourceCode = R"(
        contract test {
            function test() payable {}
            function a(address addr, uint amount) returns (uint ret) {
                addr.send(amount);
                return address(this).balance;
            }
        }
    )";
    u256 amount(130);
    compileAndRun(sourceCode, amount + 1);
    u160 address(23);
    BOOST_CHECK(callContractFunction("a(address,uint256)", address, amount) == encodeArgs(1));
    BOOST_CHECK_EQUAL(balanceAt(address), amount);
}

BOOST_AUTO_TEST_CASE(transfer_ether)
{
    char const* sourceCode = R"(
        contract A {
            function A() payable {}
            function a(address addr, uint amount) returns (uint) {
                addr.transfer(amount);
                return this.balance;
            }
            function b(address addr, uint amount) {
                addr.transfer(amount);
            }
        }

        contract B {
        }

        contract C {
            function () payable {
                throw;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "B");
    u160 const nonPayableRecipient = m_contractAddress;
    compileAndRun(sourceCode, 0, "C");
    u160 const oogRecipient = m_contractAddress;
    compileAndRun(sourceCode, 20, "A");
    u160 payableRecipient(23);
    BOOST_CHECK(callContractFunction("a(address,uint256)", payableRecipient, 10) == encodeArgs(10));
    BOOST_CHECK_EQUAL(balanceAt(payableRecipient), 10);
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 10);
    BOOST_CHECK(callContractFunction("b(address,uint256)", nonPayableRecipient, 10) == encodeArgs());
    BOOST_CHECK(callContractFunction("b(address,uint256)", oogRecipient, 10) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(log0)
{
    char const* sourceCode = R"(
        contract test {
            function a() {
                log0(1);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("a()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_CHECK_EQUAL(m_logs[0].topics.size(), 0);
}

BOOST_AUTO_TEST_CASE(log1)
{
    char const* sourceCode = R"(
        contract test {
            function a() {
                log1(1, 2);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("a()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], h256(u256(2)));
}

BOOST_AUTO_TEST_CASE(log2)
{
    char const* sourceCode = R"(
        contract test {
            function a() {
                log2(1, 2, 3);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("a()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 2);
    for (unsigned i = 0; i < 2; ++i)
        BOOST_CHECK_EQUAL(m_logs[0].topics[i], h256(u256(i + 2)));
}

BOOST_AUTO_TEST_CASE(log3)
{
    char const* sourceCode = R"(
        contract test {
            function a() {
                log3(1, 2, 3, 4);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("a()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 3);
    for (unsigned i = 0; i < 3; ++i)
        BOOST_CHECK_EQUAL(m_logs[0].topics[i], h256(u256(i + 2)));
}

BOOST_AUTO_TEST_CASE(log4)
{
    char const* sourceCode = R"(
        contract test {
            function a() {
                log4(1, 2, 3, 4, 5);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("a()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 4);
    for (unsigned i = 0; i < 4; ++i)
        BOOST_CHECK_EQUAL(m_logs[0].topics[i], h256(u256(i + 2)));
}

BOOST_AUTO_TEST_CASE(log_in_constructor)
{
    char const* sourceCode = R"(
        contract test {
            function test() {
                log1(1, 2);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], h256(u256(2)));
}

BOOST_AUTO_TEST_CASE(suicide)
{
    char const* sourceCode = R"(
        contract test {
            function test() payable {}
            function a(address receiver) returns (uint ret) {
                suicide(receiver);
                return 10;
            }
        }
    )";
    u256 amount(130);
    compileAndRun(sourceCode, amount);
    u160 address(23);
    BOOST_CHECK(callContractFunction("a(address)", address) == bytes());
    BOOST_CHECK(!addressHasCode(m_contractAddress));
    BOOST_CHECK_EQUAL(balanceAt(address), amount);
}

BOOST_AUTO_TEST_CASE(selfdestruct)
{
    char const* sourceCode = R"(
        contract test {
            function test() payable {}
            function a(address receiver) returns (uint ret) {
                selfdestruct(receiver);
                return 10;
            }
        }
    )";
    u256 amount(130);
    compileAndRun(sourceCode, amount);
    u160 address(23);
    BOOST_CHECK(callContractFunction("a(address)", address) == bytes());
    BOOST_CHECK(!addressHasCode(m_contractAddress));
    BOOST_CHECK_EQUAL(balanceAt(address), amount);
}

BOOST_AUTO_TEST_CASE(keccak256)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 hash) {
                return keccak256(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> u256
    {
        return dev::keccak256(toBigEndian(_x));
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(sha3)
{
    char const* sourceCode = R"(
        contract test {
            // to confuse the optimiser
            function b(bytes32 input) returns (bytes32) {
                return sha3(input);
            }
            function a(bytes32 input) returns (bool) {
                return keccak256(input) == b(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_REQUIRE(callContractFunction("a(bytes32)", u256(42)) == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(sha256)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 sha256hash) {
                return sha256(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> bytes
    {
        if (_x == u256(4))
            return fromHex("e38990d0c7fc009880a9c07c23842e886c6bbdc964ce6bdd5817ad357335ee6f");
        if (_x == u256(5))
            return fromHex("96de8fc8c256fa1e1556d41af431cace7dca68707c78dd88c3acab8b17164c47");
        if (_x == u256(-1))
            return fromHex("af9613760f72635fbdb44a5a0a63c39f12af30f950a6ee5c971be188e89c4051");
        return fromHex("");
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(ripemd)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 sha256hash) {
                return ripemd160(input);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> bytes
    {
        if (_x == u256(4))
            return fromHex("1b0f3c404d12075c68c938f9f60ebea4f74941a0000000000000000000000000");
        if (_x == u256(5))
            return fromHex("ee54aa84fc32d8fed5a5fe160442ae84626829d9000000000000000000000000");
        if (_x == u256(-1))
            return fromHex("1cf4e77f5966e13e109703cd8a0df7ceda7f3dc3000000000000000000000000");
        return fromHex("");
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(packed_keccak256)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 hash) {
                var b = 65536;
                uint c = 256;
                return keccak256(8, input, b, input, c);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> u256
    {
        return dev::keccak256(
            toCompactBigEndian(unsigned(8)) +
            toBigEndian(_x) +
            toCompactBigEndian(unsigned(65536)) +
            toBigEndian(_x) +
            toBigEndian(u256(256))
        );
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(packed_sha256)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 hash) {
                var b = 65536;
                uint c = 256;
                return sha256(8, input, b, input, c);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> bytes
    {
        if (_x == u256(4))
            return fromHex("804e0d7003cfd70fc925dc103174d9f898ebb142ecc2a286da1abd22ac2ce3ac");
        if (_x == u256(5))
            return fromHex("e94921945f9068726c529a290a954f412bcac53184bb41224208a31edbf63cf0");
        if (_x == u256(-1))
            return fromHex("f14def4d07cd185ddd8b10a81b2238326196a38867e6e6adbcc956dc913488c7");
        return fromHex("");
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(packed_ripemd160)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 input) returns (bytes32 hash) {
                var b = 65536;
                uint c = 256;
                return ripemd160(8, input, b, input, c);
            }
        }
    )";
    compileAndRun(sourceCode);
    auto f = [&](u256 const& _x) -> bytes
    {
        if (_x == u256(4))
            return fromHex("f93175303eba2a7b372174fc9330237f5ad202fc000000000000000000000000");
        if (_x == u256(5))
            return fromHex("04f4fc112e2bfbe0d38f896a46629e08e2fcfad5000000000000000000000000");
        if (_x == u256(-1))
            return fromHex("c0a2e4b1f3ff766a9a0089e7a410391730872495000000000000000000000000");
        return fromHex("");
    };
    testContractAgainstCpp("a(bytes32)", f, u256(4));
    testContractAgainstCpp("a(bytes32)", f, u256(5));
    testContractAgainstCpp("a(bytes32)", f, u256(-1));
}

BOOST_AUTO_TEST_CASE(ecrecover)
{
    char const* sourceCode = R"(
        contract test {
            function a(bytes32 h, uint8 v, bytes32 r, bytes32 s) returns (address addr) {
                return ecrecover(h, v, r, s);
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 h("0x18c547e4f7b0f325ad1e56f57e26c745b09a3e503d86e00e5255ff7f715d3d1c");
    byte v = 28;
    u256 r("0x73b1693892219d736caba55bdb67216e485557ea6b6af75f37096c9aa6a5a75f");
    u256 s("0xeeb940b1d03b21e36b0e47e79769f095fe2ab855bd91e3a38756b7d75a9c4549");
    u160 addr("0xa94f5374fce5edbc8e2a8697c15331677e6ebf0b");
    BOOST_CHECK(callContractFunction("a(bytes32,uint8,bytes32,bytes32)", h, v, r, s) == encodeArgs(addr));
}

BOOST_AUTO_TEST_CASE(inter_contract_calls)
{
    char const* sourceCode = R"(
        contract Helper {
            function multiply(uint a, uint b) returns (uint c) {
                return a * b;
            }
        }
        contract Main {
            Helper h;
            function callHelper(uint a, uint b) returns (uint c) {
                return h.multiply(a, b);
            }
            function getHelper() returns (address haddress) {
                return address(h);
            }
            function setHelper(address haddress) {
                h = Helper(haddress);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    u256 a(3456789);
    u256 b("0x282837623374623234aa74");
    BOOST_REQUIRE(callContractFunction("callHelper(uint256,uint256)", a, b) == encodeArgs(a * b));
}

BOOST_AUTO_TEST_CASE(inter_contract_calls_with_complex_parameters)
{
    char const* sourceCode = R"(
        contract Helper {
            function sel(uint a, bool select, uint b) returns (uint c) {
                if (select) return a; else return b;
            }
        }
        contract Main {
            Helper h;
            function callHelper(uint a, bool select, uint b) returns (uint c) {
                return h.sel(a, select, b) * 3;
            }
            function getHelper() returns (address haddress) {
                return address(h);
            }
            function setHelper(address haddress) {
                h = Helper(haddress);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    u256 a(3456789);
    u256 b("0x282837623374623234aa74");
    BOOST_REQUIRE(callContractFunction("callHelper(uint256,bool,uint256)", a, true, b) == encodeArgs(a * 3));
    BOOST_REQUIRE(callContractFunction("callHelper(uint256,bool,uint256)", a, false, b) == encodeArgs(b * 3));
}

BOOST_AUTO_TEST_CASE(inter_contract_calls_accessing_this)
{
    char const* sourceCode = R"(
        contract Helper {
            function getAddress() returns (address addr) {
                return address(this);
            }
        }
        contract Main {
            Helper h;
            function callHelper() returns (address addr) {
                return h.getAddress();
            }
            function getHelper() returns (address addr) {
                return address(h);
            }
            function setHelper(address addr) {
                h = Helper(addr);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    BOOST_REQUIRE(callContractFunction("callHelper()") == encodeArgs(c_helperAddress));
}

BOOST_AUTO_TEST_CASE(calls_to_this)
{
    char const* sourceCode = R"(
        contract Helper {
            function invoke(uint a, uint b) returns (uint c) {
                return this.multiply(a, b, 10);
            }
            function multiply(uint a, uint b, uint8 c) returns (uint ret) {
                return a * b + c;
            }
        }
        contract Main {
            Helper h;
            function callHelper(uint a, uint b) returns (uint ret) {
                return h.invoke(a, b);
            }
            function getHelper() returns (address addr) {
                return address(h);
            }
            function setHelper(address addr) {
                h = Helper(addr);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    u256 a(3456789);
    u256 b("0x282837623374623234aa74");
    BOOST_REQUIRE(callContractFunction("callHelper(uint256,uint256)", a, b) == encodeArgs(a * b + 10));
}

BOOST_AUTO_TEST_CASE(inter_contract_calls_with_local_vars)
{
    // note that a reference to another contract's function occupies two stack slots,
    // so this tests correct stack slot allocation
    char const* sourceCode = R"(
        contract Helper {
            function multiply(uint a, uint b) returns (uint c) {
                return a * b;
            }
        }
        contract Main {
            Helper h;
            function callHelper(uint a, uint b) returns (uint c) {
                var fu = h.multiply;
                var y = 9;
                var ret = fu(a, b);
                return ret + y;
            }
            function getHelper() returns (address haddress) {
                return address(h);
            }
            function setHelper(address haddress) {
                h = Helper(haddress);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    u256 a(3456789);
    u256 b("0x282837623374623234aa74");
    BOOST_REQUIRE(callContractFunction("callHelper(uint256,uint256)", a, b) == encodeArgs(a * b + 9));
}

BOOST_AUTO_TEST_CASE(fixed_bytes_in_calls)
{
    char const* sourceCode = R"(
        contract Helper {
            function invoke(bytes3 x, bool stop) returns (bytes4 ret) {
                return x;
            }
        }
        contract Main {
            Helper h;
            function callHelper(bytes2 x, bool stop) returns (bytes5 ret) {
                return h.invoke(x, stop);
            }
            function getHelper() returns (address addr) {
                return address(h);
            }
            function setHelper(address addr) {
                h = Helper(addr);
            }
        })";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("setHelper(address)", c_helperAddress) == bytes());
    BOOST_REQUIRE(callContractFunction("getHelper()", c_helperAddress) == encodeArgs(c_helperAddress));
    BOOST_CHECK(callContractFunction("callHelper(bytes2,bool)", string("\0a", 2), true) == encodeArgs(string("\0a\0\0\0", 5)));
}

BOOST_AUTO_TEST_CASE(constructor_arguments_internal)
{
    char const* sourceCode = R"(
        contract Helper {
            bytes3 name;
            bool flag;

            function Helper(bytes3 x, bool f) {
                name = x;
                flag = f;
            }
            function getName() returns (bytes3 ret) { return name; }
            function getFlag() returns (bool ret) { return flag; }
        }
        contract Main {
            Helper h;
            function Main() {
                h = new Helper("abc", true);
            }
            function getFlag() returns (bool ret) { return h.getFlag(); }
            function getName() returns (bytes3 ret) { return h.getName(); }
        })";
    compileAndRun(sourceCode, 0, "Main");
    BOOST_CHECK(callContractFunction("getFlag()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("getName()") == encodeArgs("abc"));
}

BOOST_AUTO_TEST_CASE(constructor_arguments_external)
{
    char const* sourceCode = R"(
        contract Main {
            bytes3 name;
            bool flag;

            function Main(bytes3 x, bool f) {
                name = x;
                flag = f;
            }
            function getName() returns (bytes3 ret) { return name; }
            function getFlag() returns (bool ret) { return flag; }
        }
    )";
    compileAndRun(sourceCode, 0, "Main", encodeArgs("abc", true));
    BOOST_CHECK(callContractFunction("getFlag()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("getName()") == encodeArgs("abc"));
}

BOOST_AUTO_TEST_CASE(constructor_with_long_arguments)
{
    char const* sourceCode = R"(
        contract Main {
            string public a;
            string public b;

            function Main(string _a, string _b) {
                a = _a;
                b = _b;
            }
        }
    )";
    string a = "01234567890123gabddunaouhdaoneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi45678907890123456789abcd123456787890123456789abcd90123456789012345678901234567890123456789aboneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi45678907890123456789abcd123456787890123456789abcd90123456789012345678901234567890123456789aboneudapcgadi4567890789012oneudapcgadi4567890789012oneudapcgadi45678907890123456789abcd123456787890123456789abcd90123456789012345678901234567890123456789aboneudapcgadi4567890789012cdef";
    string b = "AUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PYAUTAHIACIANOTUHAOCUHAOEUNAOEHUNTHDYDHPYDRCPYDRSTITOEUBXHUDGO>PY";

    compileAndRun(sourceCode, 0, "Main", encodeArgs(
        u256(0x40),
        u256(0x40 + 0x20 + ((a.length() + 31) / 32) * 32),
        u256(a.length()),
        a,
        u256(b.length()),
        b
    ));
    BOOST_CHECK(callContractFunction("a()") == encodeDyn(a));
    BOOST_CHECK(callContractFunction("b()") == encodeDyn(b));
}

BOOST_AUTO_TEST_CASE(constructor_static_array_argument)
{
    char const* sourceCode = R"(
        contract C {
            uint public a;
            uint[3] public b;

            function C(uint _a, uint[3] _b) {
                a = _a;
                b = _b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C", encodeArgs(u256(1), u256(2), u256(3), u256(4)));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("b(uint256)", u256(0)) == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("b(uint256)", u256(1)) == encodeArgs(u256(3)));
    BOOST_CHECK(callContractFunction("b(uint256)", u256(2)) == encodeArgs(u256(4)));
}

BOOST_AUTO_TEST_CASE(functions_called_by_constructor)
{
    char const* sourceCode = R"(
        contract Test {
            bytes3 name;
            bool flag;
            function Test() {
                setName("abc");
            }
            function getName() returns (bytes3 ret) { return name; }
            function setName(bytes3 _name) private { name = _name; }
        })";
    compileAndRun(sourceCode);
    BOOST_REQUIRE(callContractFunction("getName()") == encodeArgs("abc"));
}

BOOST_AUTO_TEST_CASE(contracts_as_addresses)
{
    char const* sourceCode = R"(
        contract helper {
            function() payable { } // can receive ether
        }
        contract test {
            helper h;
            function test() payable { h = new helper(); h.send(5); }
            function getBalance() returns (uint256 myBalance, uint256 helperBalance) {
                myBalance = this.balance;
                helperBalance = h.balance;
            }
        }
    )";
    compileAndRun(sourceCode, 20);
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 20 - 5);
    BOOST_REQUIRE(callContractFunction("getBalance()") == encodeArgs(u256(20 - 5), u256(5)));
}

BOOST_AUTO_TEST_CASE(gas_and_value_basic)
{
    char const* sourceCode = R"(
        contract helper {
            bool flag;
            function getBalance() payable returns (uint256 myBalance) {
                return this.balance;
            }
            function setFlag() { flag = true; }
            function getFlag() returns (bool fl) { return flag; }
        }
        contract test {
            helper h;
            function test() payable { h = new helper(); }
            function sendAmount(uint amount) payable returns (uint256 bal) {
                return h.getBalance.value(amount)();
            }
            function outOfGas() returns (bool ret) {
                h.setFlag.gas(2)(); // should fail due to OOG
                return true;
            }
            function checkState() returns (bool flagAfter, uint myBal) {
                flagAfter = h.getFlag();
                myBal = this.balance;
            }
        }
    )";
    compileAndRun(sourceCode, 20);
    BOOST_REQUIRE(callContractFunction("sendAmount(uint256)", 5) == encodeArgs(5));
    // call to helper should not succeed but amount should be transferred anyway
    BOOST_REQUIRE(callContractFunction("outOfGas()") == bytes());
    BOOST_REQUIRE(callContractFunction("checkState()") == encodeArgs(false, 20 - 5));
}

BOOST_AUTO_TEST_CASE(value_complex)
{
    char const* sourceCode = R"(
        contract helper {
            function getBalance() payable returns (uint256 myBalance) {
                return this.balance;
            }
        }
        contract test {
            helper h;
            function test() payable { h = new helper(); }
            function sendAmount(uint amount) payable returns (uint256 bal) {
                var x1 = h.getBalance.value(amount);
                uint someStackElement = 20;
                var x2 = x1.gas(1000);
                return x2.value(amount + 3)();// overwrite value
            }
        }
    )";
    compileAndRun(sourceCode, 20);
    BOOST_REQUIRE(callContractFunction("sendAmount(uint256)", 5) == encodeArgs(8));
}

BOOST_AUTO_TEST_CASE(value_insane)
{
    char const* sourceCode = R"(
        contract helper {
            function getBalance() payable returns (uint256 myBalance) {
                return this.balance;
            }
        }
        contract test {
            helper h;
            function test() payable { h = new helper(); }
            function sendAmount(uint amount) returns (uint256 bal) {
                var x1 = h.getBalance.value;
                var x2 = x1(amount).gas;
                var x3 = x2(1000).value;
                return x3(amount + 3)();// overwrite value
            }
        }
    )";
    compileAndRun(sourceCode, 20);
    BOOST_REQUIRE(callContractFunction("sendAmount(uint256)", 5) == encodeArgs(8));
}

BOOST_AUTO_TEST_CASE(value_for_constructor)
{
    char const* sourceCode = R"(
        contract Helper {
            bytes3 name;
            bool flag;
            function Helper(bytes3 x, bool f) payable {
                name = x;
                flag = f;
            }
            function getName() returns (bytes3 ret) { return name; }
            function getFlag() returns (bool ret) { return flag; }
        }
        contract Main {
            Helper h;
            function Main() payable {
                h = (new Helper).value(10)("abc", true);
            }
            function getFlag() returns (bool ret) { return h.getFlag(); }
            function getName() returns (bytes3 ret) { return h.getName(); }
            function getBalances() returns (uint me, uint them) { me = this.balance; them = h.balance;}
        })";
    compileAndRun(sourceCode, 22, "Main");
    BOOST_REQUIRE(callContractFunction("getFlag()") == encodeArgs(true));
    BOOST_REQUIRE(callContractFunction("getName()") == encodeArgs("abc"));
    BOOST_REQUIRE(callContractFunction("getBalances()") == encodeArgs(12, 10));
}

BOOST_AUTO_TEST_CASE(virtual_function_calls)
{
    char const* sourceCode = R"(
        contract Base {
            function f() returns (uint i) { return g(); }
            function g() returns (uint i) { return 1; }
        }
        contract Derived is Base {
            function g() returns (uint i) { return 2; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(2));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(access_base_storage)
{
    char const* sourceCode = R"(
        contract Base {
            uint dataBase;
            function getViaBase() returns (uint i) { return dataBase; }
        }
        contract Derived is Base {
            uint dataDerived;
            function setData(uint base, uint derived) returns (bool r) {
                dataBase = base;
                dataDerived = derived;
                return true;
            }
            function getViaDerived() returns (uint base, uint derived) {
                base = dataBase;
                derived = dataDerived;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("setData(uint256,uint256)", 1, 2) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("getViaBase()") == encodeArgs(1));
    BOOST_CHECK(callContractFunction("getViaDerived()") == encodeArgs(1, 2));
}

BOOST_AUTO_TEST_CASE(single_copy_with_multiple_inheritance)
{
    char const* sourceCode = R"(
        contract Base {
            uint data;
            function setData(uint i) { data = i; }
            function getViaBase() returns (uint i) { return data; }
        }
        contract A is Base { function setViaA(uint i) { setData(i); } }
        contract B is Base { function getViaB() returns (uint i) { return getViaBase(); } }
        contract Derived is Base, B, A { }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("getViaB()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("setViaA(uint256)", 23) == encodeArgs());
    BOOST_CHECK(callContractFunction("getViaB()") == encodeArgs(23));
}

BOOST_AUTO_TEST_CASE(explicit_base_class)
{
    char const* sourceCode = R"(
        contract BaseBase { function g() returns (uint r) { return 1; } }
        contract Base is BaseBase { function g() returns (uint r) { return 2; } }
        contract Derived is Base {
            function f() returns (uint r) { return BaseBase.g(); }
            function g() returns (uint r) { return 3; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(3));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(base_constructor_arguments)
{
    char const* sourceCode = R"(
        contract BaseBase {
            uint m_a;
            function BaseBase(uint a) {
                m_a = a;
            }
        }
        contract Base is BaseBase(7) {
            function Base() {
                m_a *= m_a;
            }
        }
        contract Derived is Base() {
            function getA() returns (uint r) { return m_a; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("getA()") == encodeArgs(7 * 7));
}

BOOST_AUTO_TEST_CASE(function_usage_in_constructor_arguments)
{
    char const* sourceCode = R"(
        contract BaseBase {
            uint m_a;
            function BaseBase(uint a) {
                m_a = a;
            }
            function g() returns (uint r) { return 2; }
        }
        contract Base is BaseBase(BaseBase.g()) {
        }
        contract Derived is Base() {
            function getA() returns (uint r) { return m_a; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("getA()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(virtual_function_usage_in_constructor_arguments)
{
    char const* sourceCode = R"(
        contract BaseBase {
            uint m_a;
            function BaseBase(uint a) {
                m_a = a;
            }
            function overridden() returns (uint r) { return 1; }
            function g() returns (uint r) { return overridden(); }
        }
        contract Base is BaseBase(BaseBase.g()) {
        }
        contract Derived is Base() {
            function getA() returns (uint r) { return m_a; }
            function overridden() returns (uint r) { return 2; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("getA()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(constructor_argument_overriding)
{
    char const* sourceCode = R"(
        contract BaseBase {
            uint m_a;
            function BaseBase(uint a) {
                m_a = a;
            }
        }
        contract Base is BaseBase(2) { }
        contract Derived is BaseBase(3), Base {
            function getA() returns (uint r) { return m_a; }
        }
    )";
    compileAndRun(sourceCode, 0, "Derived");
    BOOST_CHECK(callContractFunction("getA()") == encodeArgs(3));
}

BOOST_AUTO_TEST_CASE(internal_constructor)
{
    char const* sourceCode = R"(
        contract C {
            function C() internal {}
        }
    )";
    BOOST_CHECK(compileAndRunWithoutCheck(sourceCode, 0, "C").empty());
}

BOOST_AUTO_TEST_CASE(function_modifier)
{
    char const* sourceCode = R"(
        contract C {
            function getOne() payable nonFree returns (uint r) { return 1; }
            modifier nonFree { if (msg.value > 0) _; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getOne()") == encodeArgs(0));
    BOOST_CHECK(callContractFunctionWithValue("getOne()", 1) == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(function_modifier_local_variables)
{
    char const* sourceCode = R"(
        contract C {
            modifier mod1 { var a = 1; var b = 2; _; }
            modifier mod2(bool a) { if (a) return; else _; }
            function f(bool a) mod1 mod2(a) returns (uint r) { return 3; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(3));
}

BOOST_AUTO_TEST_CASE(function_modifier_loop)
{
    char const* sourceCode = R"(
        contract C {
            modifier repeat(uint count) { for (var i = 0; i < count; ++i) _; }
            function f() repeat(10) returns (uint r) { r += 1; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(10));
}

BOOST_AUTO_TEST_CASE(function_modifier_multi_invocation)
{
    char const* sourceCode = R"(
        contract C {
            modifier repeat(bool twice) { if (twice) _; _; }
            function f(bool twice) repeat(twice) returns (uint r) { r += 1; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(function_modifier_multi_with_return)
{
    // Note that return sets the return variable and jumps to the end of the current function or
    // modifier code block.
    char const* sourceCode = R"(
        contract C {
            modifier repeat(bool twice) { if (twice) _; _; }
            function f(bool twice) repeat(twice) returns (uint r) { r += 1; return r; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bool)", false) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("f(bool)", true) == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(function_modifier_overriding)
{
    char const* sourceCode = R"(
        contract A {
            function f() mod returns (bool r) { return true; }
            modifier mod { _; }
        }
        contract C is A {
            modifier mod { if (false) _; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(false));
}

BOOST_AUTO_TEST_CASE(function_modifier_calling_functions_in_creation_context)
{
    char const* sourceCode = R"(
        contract A {
            uint data;
            function A() mod1 { f1(); }
            function f1() mod2 { data |= 0x1; }
            function f2() { data |= 0x20; }
            function f3() { }
            modifier mod1 { f2(); _; }
            modifier mod2 { f3(); if (false) _; }
            function getData() returns (uint r) { return data; }
        }
        contract C is A {
            modifier mod1 { f4(); _; }
            function f3() { data |= 0x300; }
            function f4() { data |= 0x4000; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(0x4300));
}

BOOST_AUTO_TEST_CASE(function_modifier_for_constructor)
{
    char const* sourceCode = R"(
        contract A {
            uint data;
            function A() mod1 { data |= 2; }
            modifier mod1 { data |= 1; _; }
            function getData() returns (uint r) { return data; }
        }
        contract C is A {
            modifier mod1 { data |= 4; _; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(4 | 2));
}

BOOST_AUTO_TEST_CASE(function_modifier_multiple_times)
{
    char const* sourceCode = R"(
        contract C {
            uint public a;
            modifier mod(uint x) { a += x; _; }
            function f(uint x) mod(2) mod(5) mod(x) returns(uint) { return a; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(2 + 5 + 3));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(2 + 5 + 3));
}

BOOST_AUTO_TEST_CASE(function_modifier_multiple_times_local_vars)
{
    char const* sourceCode = R"(
        contract C {
            uint public a;
            modifier mod(uint x) { uint b = x; a += b; _; a -= b; assert(b == x); }
            function f(uint x) mod(2) mod(5) mod(x) returns(uint) { return a; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(2 + 5 + 3));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(crazy_elementary_typenames_on_stack)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint r) {
                uint; uint; uint; uint;
                int x = -7;
                var a = uint;
                return a(x);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(-7)));
}

BOOST_AUTO_TEST_CASE(super)
{
    char const* sourceCode = R"(
        contract A { function f() returns (uint r) { return 1; } }
        contract B is A { function f() returns (uint r) { return super.f() | 2; } }
        contract C is A { function f() returns (uint r) { return super.f() | 4; } }
        contract D is B, C { function f() returns (uint r) { return super.f() | 8; } }
    )";
    compileAndRun(sourceCode, 0, "D");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(1 | 2 | 4 | 8));
}

BOOST_AUTO_TEST_CASE(super_in_constructor)
{
    char const* sourceCode = R"(
        contract A { function f() returns (uint r) { return 1; } }
        contract B is A { function f() returns (uint r) { return super.f() | 2; } }
        contract C is A { function f() returns (uint r) { return super.f() | 4; } }
        contract D is B, C { uint data; function D() { data = super.f() | 8; } function f() returns (uint r) { return data; } }
    )";
    compileAndRun(sourceCode, 0, "D");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(1 | 2 | 4 | 8));
}

BOOST_AUTO_TEST_CASE(super_alone)
{
    char const* sourceCode = R"(
        contract A { function f() { super; } }
    )";
    compileAndRun(sourceCode, 0, "A");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(fallback_function)
{
    char const* sourceCode = R"(
        contract A {
            uint data;
            function() { data = 1; }
            function getData() returns (uint r) { return data; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("") == encodeArgs());
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(inherited_fallback_function)
{
    char const* sourceCode = R"(
        contract A {
            uint data;
            function() { data = 1; }
            function getData() returns (uint r) { return data; }
        }
        contract B is A {}
    )";
    compileAndRun(sourceCode, 0, "B");
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("") == encodeArgs());
    BOOST_CHECK(callContractFunction("getData()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(default_fallback_throws)
{
    char const* sourceCode = R"(
        contract A {
            function f() returns (bool) {
                return this.call();
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(event)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit(address indexed _from, bytes32 indexed _id, uint _value);
            function deposit(bytes32 _id, bool _manually) payable {
                if (_manually) {
                    bytes32 s = 0x19dacbf83c5de6658e14cbf7bcae5c15eca2eedecf1c66fbca928e4d351bea0f;
                    log3(bytes32(msg.value), s, bytes32(msg.sender), _id);
                } else {
                    Deposit(msg.sender, _id, msg.value);
                }
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 value(18);
    u256 id(0x1234);
    for (bool manually: {true, false})
    {
        callContractFunctionWithValue("deposit(bytes32,bool)", value, id, manually);
        BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
        BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
        BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(value)));
        BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 3);
        BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address,bytes32,uint256)")));
        BOOST_CHECK_EQUAL(m_logs[0].topics[1], h256(m_sender, h256::AlignRight));
        BOOST_CHECK_EQUAL(m_logs[0].topics[2], h256(id));
    }
}

BOOST_AUTO_TEST_CASE(event_no_arguments)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit;
            function deposit() {
                Deposit();
            }
        }
    )";

    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data.empty());
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit()")));
}

BOOST_AUTO_TEST_CASE(event_access_through_base_name)
{
    char const* sourceCode = R"(
        contract A {
            event x();
        }
        contract B is A {
            function f() returns (uint) {
                A.x();
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("f()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data.empty());
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("x()")));
}

BOOST_AUTO_TEST_CASE(events_with_same_name)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit;
            event Deposit(address _addr);
            event Deposit(address _addr, uint _amount);
            function deposit() returns (uint) {
                Deposit();
                return 1;
            }
            function deposit(address _addr) returns (uint) {
                Deposit(_addr);
                return 1;
            }
            function deposit(address _addr, uint _amount) returns (uint) {
                Deposit(_addr, _amount);
                return 1;
            }
        }
    )";
    u160 const c_loggedAddress = m_contractAddress;

    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("deposit()") == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data.empty());
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit()")));

    BOOST_CHECK(callContractFunction("deposit(address)", c_loggedAddress) == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(c_loggedAddress));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address)")));

    BOOST_CHECK(callContractFunction("deposit(address,uint256)", c_loggedAddress, u256(100)) == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(c_loggedAddress, 100));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address,uint256)")));
}

BOOST_AUTO_TEST_CASE(events_with_same_name_inherited)
{
    char const* sourceCode = R"(
        contract A {
            event Deposit;
        }

        contract B {
            event Deposit(address _addr);
        }

        contract ClientReceipt is A, B {
            event Deposit(address _addr, uint _amount);
            function deposit() returns (uint) {
                Deposit();
                return 1;
            }
            function deposit(address _addr) returns (uint) {
                Deposit(_addr);
                return 1;
            }
            function deposit(address _addr, uint _amount) returns (uint) {
                Deposit(_addr, _amount);
                return 1;
            }
        }
    )";
    u160 const c_loggedAddress = m_contractAddress;

    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("deposit()") == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data.empty());
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit()")));

    BOOST_CHECK(callContractFunction("deposit(address)", c_loggedAddress) == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(c_loggedAddress));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address)")));

    BOOST_CHECK(callContractFunction("deposit(address,uint256)", c_loggedAddress, u256(100)) == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(c_loggedAddress, 100));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address,uint256)")));
}

BOOST_AUTO_TEST_CASE(event_anonymous)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit() anonymous;
            function deposit() {
                Deposit();
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 0);
}

BOOST_AUTO_TEST_CASE(event_anonymous_with_topics)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit(address indexed _from, bytes32 indexed _id, uint indexed _value, uint indexed _value2, bytes32 data) anonymous;
            function deposit(bytes32 _id, bool _manually) payable {
                Deposit(msg.sender, _id, msg.value, 2, "abc");
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 value(18);
    u256 id(0x1234);
    callContractFunctionWithValue("deposit(bytes32,bool)", value, id);
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs("abc"));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 4);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], h256(m_sender, h256::AlignRight));
    BOOST_CHECK_EQUAL(m_logs[0].topics[1], h256(id));
    BOOST_CHECK_EQUAL(m_logs[0].topics[2], h256(value));
    BOOST_CHECK_EQUAL(m_logs[0].topics[3], h256(2));
}

BOOST_AUTO_TEST_CASE(event_lots_of_data)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit(address _from, bytes32 _id, uint _value, bool _flag);
            function deposit(bytes32 _id) payable {
                Deposit(msg.sender, _id, msg.value, true);
            }
        }
    )";
    compileAndRun(sourceCode);
    u256 value(18);
    u256 id(0x1234);
    callContractFunctionWithValue("deposit(bytes32)", value, id);
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs((u160)m_sender, id, value, true));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(address,bytes32,uint256,bool)")));
}

BOOST_AUTO_TEST_CASE(event_really_lots_of_data)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            event Deposit(uint fixeda, bytes dynx, uint fixedb);
            function deposit() {
                Deposit(10, msg.data, 15);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(toHex(m_logs[0].data), toHex(encodeArgs(10, 0x60, 15, 4) + FixedHash<4>(dev::keccak256("deposit()")).asBytes()));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(uint256,bytes,uint256)")));
}

BOOST_AUTO_TEST_CASE(event_really_lots_of_data_from_storage)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            bytes x;
            event Deposit(uint fixeda, bytes dynx, uint fixedb);
            function deposit() {
                x.length = 3;
                x[0] = "A";
                x[1] = "B";
                x[2] = "C";
                Deposit(10, x, 15);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK_EQUAL(toHex(m_logs[0].data), toHex(encodeArgs(10, 0x60, 15, 3, string("ABC"))));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(uint256,bytes,uint256)")));
}

BOOST_AUTO_TEST_CASE(event_really_really_lots_of_data_from_storage)
{
    char const* sourceCode = R"(
        contract ClientReceipt {
            bytes x;
            event Deposit(uint fixeda, bytes dynx, uint fixedb);
            function deposit() {
                x.length = 31;
                x[0] = "A";
                x[1] = "B";
                x[2] = "C";
                x[30] = "Z";
                Deposit(10, x, 15);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(10, 0x60, 15, 31, string("ABC") + string(27, 0) + "Z"));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Deposit(uint256,bytes,uint256)")));
}

BOOST_AUTO_TEST_CASE(event_indexed_string)
{
    char const* sourceCode = R"(
        contract C {
            string x;
            uint[4] y;
            event E(string indexed r, uint[4] indexed t);
            function deposit() {
                bytes(x).length = 90;
                for (uint i = 0; i < 90; i++)
                    bytes(x)[i] = byte(i);
                y[0] = 4;
                y[1] = 5;
                y[2] = 6;
                y[3] = 7;
                E(x, y);
            }
        }
    )";
    compileAndRun(sourceCode);
    callContractFunction("deposit()");
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    string dynx(90, 0);
    for (size_t i = 0; i < dynx.size(); ++i)
        dynx[i] = i;
    BOOST_CHECK(m_logs[0].data == bytes());
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 3);
    BOOST_CHECK_EQUAL(m_logs[0].topics[1], dev::keccak256(dynx));
    BOOST_CHECK_EQUAL(m_logs[0].topics[2], dev::keccak256(
        encodeArgs(u256(4), u256(5), u256(6), u256(7))
    ));
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("E(string,uint256[4])")));
}

BOOST_AUTO_TEST_CASE(empty_name_input_parameter_with_named_one)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint, uint k) returns(uint ret_k, uint ret_g){
                uint g = 8;
                ret_k = k;
                ret_g = g;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", 5, 9) != encodeArgs(5, 8));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", 5, 9) == encodeArgs(9, 8));
}

BOOST_AUTO_TEST_CASE(empty_name_return_parameter)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint k) returns(uint){
                return k;
        }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", 9) == encodeArgs(9));
}

BOOST_AUTO_TEST_CASE(keccak256_multiple_arguments)
{
    char const* sourceCode = R"(
        contract c {
            function foo(uint a, uint b, uint c) returns (bytes32 d)
            {
                d = keccak256(a, b, c);
            }
        }
    )";
    compileAndRun(sourceCode);

    BOOST_CHECK(callContractFunction("foo(uint256,uint256,uint256)", 10, 12, 13) == encodeArgs(
                    dev::keccak256(
                        toBigEndian(u256(10)) +
                        toBigEndian(u256(12)) +
                        toBigEndian(u256(13)))));
}

BOOST_AUTO_TEST_CASE(keccak256_multiple_arguments_with_numeric_literals)
{
    char const* sourceCode = R"(
        contract c {
            function foo(uint a, uint16 b) returns (bytes32 d)
            {
                d = keccak256(a, b, 145);
            }
        }
    )";
    compileAndRun(sourceCode);

    BOOST_CHECK(callContractFunction("foo(uint256,uint16)", 10, 12) == encodeArgs(
                    dev::keccak256(
                        toBigEndian(u256(10)) +
                        bytes{0x0, 0xc} +
                        bytes(1, 0x91))));
}

BOOST_AUTO_TEST_CASE(keccak256_multiple_arguments_with_string_literals)
{
    char const* sourceCode = R"(
        contract c {
            function foo() returns (bytes32 d)
            {
                d = keccak256("foo");
            }
            function bar(uint a, uint16 b) returns (bytes32 d)
            {
                d = keccak256(a, b, 145, "foo");
            }
        }
    )";
    compileAndRun(sourceCode);

    BOOST_CHECK(callContractFunction("foo()") == encodeArgs(dev::keccak256("foo")));

    BOOST_CHECK(callContractFunction("bar(uint256,uint16)", 10, 12) == encodeArgs(
                    dev::keccak256(
                        toBigEndian(u256(10)) +
                        bytes{0x0, 0xc} +
                        bytes(1, 0x91) +
                        bytes{0x66, 0x6f, 0x6f})));
}

BOOST_AUTO_TEST_CASE(keccak256_with_bytes)
{
    char const* sourceCode = R"(
        contract c {
            bytes data;
            function foo() returns (bool)
            {
                data.length = 3;
                data[0] = "f";
                data[1] = "o";
                data[2] = "o";
                return keccak256(data) == keccak256("foo");
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("foo()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(iterated_keccak256_with_bytes)
{
    char const* sourceCode = R"(
        contract c {
            bytes data;
            function foo() returns (bytes32)
            {
                data.length = 3;
                data[0] = "x";
                data[1] = "y";
                data[2] = "z";
                return keccak256("b", keccak256(data), "a");
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("foo()") == encodeArgs(
        u256(dev::keccak256(bytes{'b'} + dev::keccak256("xyz").asBytes() + bytes{'a'}))
    ));
}

BOOST_AUTO_TEST_CASE(sha3_multiple_arguments)
{
    char const* sourceCode = R"(
        contract c {
            function foo(uint a, uint b, uint c) returns (bytes32 d)
            {
                d = sha3(a, b, c);
            }
        })";
    compileAndRun(sourceCode);

    BOOST_CHECK(callContractFunction("foo(uint256,uint256,uint256)", 10, 12, 13) == encodeArgs(
        dev::keccak256(
            toBigEndian(u256(10)) +
            toBigEndian(u256(12)) +
            toBigEndian(u256(13))
        )
    ));
}

BOOST_AUTO_TEST_CASE(generic_call)
{
    char const* sourceCode = R"**(
            contract receiver {
                uint public received;
                function receive(uint256 x) payable { received = x; }
            }
            contract sender {
                function sender() payable {}
                function doSend(address rec) returns (uint d)
                {
                    bytes4 signature = bytes4(bytes32(keccak256("receive(uint256)")));
                    rec.call.value(2)(signature, 23);
                    return receiver(rec).received();
                }
            }
    )**";
    compileAndRun(sourceCode, 0, "receiver");
    u160 const c_receiverAddress = m_contractAddress;
    compileAndRun(sourceCode, 50, "sender");
    BOOST_REQUIRE(callContractFunction("doSend(address)", c_receiverAddress) == encodeArgs(23));
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 50 - 2);
}

BOOST_AUTO_TEST_CASE(generic_callcode)
{
    char const* sourceCode = R"**(
            contract Receiver {
                uint public received;
                function receive(uint256 x) payable { received = x; }
            }
            contract Sender {
                uint public received;
                function Sender() payable { }
                function doSend(address rec) returns (uint d)
                {
                    bytes4 signature = bytes4(bytes32(keccak256("receive(uint256)")));
                    rec.callcode.value(2)(signature, 23);
                    return Receiver(rec).received();
                }
            }
    )**";
    compileAndRun(sourceCode, 0, "Receiver");
    u160 const c_receiverAddress = m_contractAddress;
    compileAndRun(sourceCode, 50, "Sender");
    u160 const c_senderAddress = m_contractAddress;
    BOOST_CHECK(callContractFunction("doSend(address)", c_receiverAddress) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("received()") == encodeArgs(23));
    m_contractAddress = c_receiverAddress;
    BOOST_CHECK(callContractFunction("received()") == encodeArgs(0));
    BOOST_CHECK(storageEmpty(c_receiverAddress));
    BOOST_CHECK(!storageEmpty(c_senderAddress));
    BOOST_CHECK_EQUAL(balanceAt(c_receiverAddress), 0);
    BOOST_CHECK_EQUAL(balanceAt(c_senderAddress), 50);
}

BOOST_AUTO_TEST_CASE(generic_delegatecall)
{
    char const* sourceCode = R"**(
            contract Receiver {
                uint public received;
                address public sender;
                uint public value;
                function Receiver() payable {}
                function receive(uint256 x) payable { received = x; sender = msg.sender; value = msg.value; }
            }
            contract Sender {
                uint public received;
                address public sender;
                uint public value;
                function Sender() payable {}
                function doSend(address rec) payable
                {
                    bytes4 signature = bytes4(bytes32(keccak256("receive(uint256)")));
                    if (rec.delegatecall(signature, 23)) {}
                }
            }
    )**";
    compileAndRun(sourceCode, 0, "Receiver");
    u160 const c_receiverAddress = m_contractAddress;
    compileAndRun(sourceCode, 50, "Sender");
    u160 const c_senderAddress = m_contractAddress;
    BOOST_CHECK(m_sender != c_senderAddress); // just for sanity
    BOOST_CHECK(callContractFunctionWithValue("doSend(address)", 11, c_receiverAddress) == encodeArgs());
    BOOST_CHECK(callContractFunction("received()") == encodeArgs(u256(23)));
    BOOST_CHECK(callContractFunction("sender()") == encodeArgs(u160(m_sender)));
    BOOST_CHECK(callContractFunction("value()") == encodeArgs(u256(11)));
    m_contractAddress = c_receiverAddress;
    BOOST_CHECK(callContractFunction("received()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("sender()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("value()") == encodeArgs(u256(0)));
    BOOST_CHECK(storageEmpty(c_receiverAddress));
    BOOST_CHECK(!storageEmpty(c_senderAddress));
    BOOST_CHECK_EQUAL(balanceAt(c_receiverAddress), 0);
    BOOST_CHECK_EQUAL(balanceAt(c_senderAddress), 50 + 11);
}

BOOST_AUTO_TEST_CASE(library_call_in_homestead)
{
    char const* sourceCode = R"(
        library Lib { function m() returns (address) { return msg.sender; } }
        contract Test {
            address public sender;
            function f() {
                sender = Lib.m();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Lib");
    compileAndRun(sourceCode, 0, "Test", bytes(), map<string, Address>{{"Lib", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("sender()") == encodeArgs(u160(m_sender)));
}

BOOST_AUTO_TEST_CASE(store_bytes)
{
    // this test just checks that the copy loop does not mess up the stack
    char const* sourceCode = R"(
        contract C {
            function save() returns (uint r) {
                r = 23;
                savedData = msg.data;
                r = 24;
            }
            bytes savedData;
        }
    )";
    compileAndRun(sourceCode);
    // empty copy loop
    BOOST_CHECK(callContractFunction("save()") == encodeArgs(24));
    BOOST_CHECK(callContractFunction("save()", "abcdefg") == encodeArgs(24));
}

BOOST_AUTO_TEST_CASE(bytes_from_calldata_to_memory)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (bytes32) {
                return keccak256("abc", msg.data);
            }
        }
    )";
    compileAndRun(sourceCode);
    bytes calldata1 = FixedHash<4>(dev::keccak256("f()")).asBytes() + bytes(61, 0x22) + bytes(12, 0x12);
    sendMessage(calldata1, false);
    BOOST_CHECK(m_output == encodeArgs(dev::keccak256(bytes{'a', 'b', 'c'} + calldata1)));
}

BOOST_AUTO_TEST_CASE(call_forward_bytes)
{
    char const* sourceCode = R"(
        contract receiver {
            uint public received;
            function receive(uint x) { received += x + 1; }
            function() { received = 0x80; }
        }
        contract sender {
            function sender() { rec = new receiver(); }
            function() { savedData = msg.data; }
            function forward() returns (bool) { !rec.call(savedData); return true; }
            function clear() returns (bool) { delete savedData; return true; }
            function val() returns (uint) { return rec.received(); }
            receiver rec;
            bytes savedData;
        }
    )";
    compileAndRun(sourceCode, 0, "sender");
    BOOST_CHECK(callContractFunction("receive(uint256)", 7) == bytes());
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("forward()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(8));
    BOOST_CHECK(callContractFunction("clear()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(8));
    BOOST_CHECK(callContractFunction("forward()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(0x80));
}

BOOST_AUTO_TEST_CASE(copying_bytes_multiassign)
{
    char const* sourceCode = R"(
        contract receiver {
            uint public received;
            function receive(uint x) { received += x + 1; }
            function() { received = 0x80; }
        }
        contract sender {
            function sender() { rec = new receiver(); }
            function() { savedData1 = savedData2 = msg.data; }
            function forward(bool selector) returns (bool) {
                if (selector) { rec.call(savedData1); delete savedData1; }
                else { rec.call(savedData2); delete savedData2; }
                return true;
            }
            function val() returns (uint) { return rec.received(); }
            receiver rec;
            bytes savedData1;
            bytes savedData2;
        }
    )";
    compileAndRun(sourceCode, 0, "sender");
    BOOST_CHECK(callContractFunction("receive(uint256)", 7) == bytes());
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("forward(bool)", true) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(8));
    BOOST_CHECK(callContractFunction("forward(bool)", false) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(16));
    BOOST_CHECK(callContractFunction("forward(bool)", true) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("val()") == encodeArgs(0x80));
}

BOOST_AUTO_TEST_CASE(delete_removes_bytes_data)
{
    char const* sourceCode = R"(
        contract c {
            function() { data = msg.data; }
            function del() returns (bool) { delete data; return true; }
            bytes data;
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("---", 7) == bytes());
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("del()", 7) == encodeArgs(true));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(copy_from_calldata_removes_bytes_data)
{
    char const* sourceCode = R"(
        contract c {
            function set() returns (bool) { data = msg.data; return true; }
            function() { data = msg.data; }
            bytes data;
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("set()", 1, 2, 3, 4, 5) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    sendMessage(bytes(), false);
    BOOST_CHECK(m_output == bytes());
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(copy_removes_bytes_data)
{
    char const* sourceCode = R"(
        contract c {
            function set() returns (bool) { data1 = msg.data; return true; }
            function reset() returns (bool) { data1 = data2; return true; }
            bytes data1;
            bytes data2;
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("set()", 1, 2, 3, 4, 5) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("reset()") == encodeArgs(true));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(bytes_inside_mappings)
{
    char const* sourceCode = R"(
        contract c {
            function set(uint key) returns (bool) { data[key] = msg.data; return true; }
            function copy(uint from, uint to) returns (bool) { data[to] = data[from]; return true; }
            mapping(uint => bytes) data;
        }
    )";
    compileAndRun(sourceCode);
    // store a short byte array at 1 and a longer one at 2
    BOOST_CHECK(callContractFunction("set(uint256)", 1, 2) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("set(uint256)", 2, 2, 3, 4, 5) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    // copy shorter to longer
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 1, 2) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    // copy empty to both
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 99, 1) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 99, 2) == encodeArgs(true));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(bytes_length_member)
{
    char const* sourceCode = R"(
        contract c {
            function set() returns (bool) { data = msg.data; return true; }
            function getLength() returns (uint) { return data.length; }
            bytes data;
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getLength()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("set()", 1, 2) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("getLength()") == encodeArgs(4+32+32));
}

BOOST_AUTO_TEST_CASE(struct_copy)
{
    char const* sourceCode = R"(
        contract c {
            struct Nested { uint x; uint y; }
            struct Struct { uint a; mapping(uint => Struct) b; Nested nested; uint c; }
            mapping(uint => Struct) data;
            function set(uint k) returns (bool) {
                data[k].a = 1;
                data[k].nested.x = 3;
                data[k].nested.y = 4;
                data[k].c = 2;
                return true;
            }
            function copy(uint from, uint to) returns (bool) {
                data[to] = data[from];
                return true;
            }
            function retrieve(uint k) returns (uint a, uint x, uint y, uint c)
            {
                a = data[k].a;
                x = data[k].nested.x;
                y = data[k].nested.y;
                c = data[k].c;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("set(uint256)", 7) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 7) == encodeArgs(1, 3, 4, 2));
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 7, 8) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 7) == encodeArgs(1, 3, 4, 2));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 8) == encodeArgs(1, 3, 4, 2));
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 0, 7) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 7) == encodeArgs(0, 0, 0, 0));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 8) == encodeArgs(1, 3, 4, 2));
    BOOST_CHECK(callContractFunction("copy(uint256,uint256)", 7, 8) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("retrieve(uint256)", 8) == encodeArgs(0, 0, 0, 0));
}

BOOST_AUTO_TEST_CASE(struct_containing_bytes_copy_and_delete)
{
    char const* sourceCode = R"(
        contract c {
            struct Struct { uint a; bytes data; uint b; }
            Struct data1;
            Struct data2;
            function set(uint _a, bytes _data, uint _b) external returns (bool) {
                data1.a = _a;
                data1.b = _b;
                data1.data = _data;
                return true;
            }
            function copy() returns (bool) {
                data1 = data2;
                return true;
            }
            function del() returns (bool) {
                delete data1;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode);
    string data = "123456789012345678901234567890123";
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("set(uint256,bytes,uint256)", 12, u256(data.length()), 13, data) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("copy()") == encodeArgs(true));
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("set(uint256,bytes,uint256)", 12, u256(data.length()), 13, data) == encodeArgs(true));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("del()") == encodeArgs(true));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(struct_copy_via_local)
{
    char const* sourceCode = R"(
        contract c {
            struct Struct { uint a; uint b; }
            Struct data1;
            Struct data2;
            function test() returns (bool) {
                data1.a = 1;
                data1.b = 2;
                var x = data1;
                data2 = x;
                return data2.a == data1.a && data2.b == data1.b;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(using_enums)
{
    char const* sourceCode = R"(
            contract test {
                enum ActionChoices { GoLeft, GoRight, GoStraight, Sit }
                function test()
                {
                    choices = ActionChoices.GoStraight;
                }
                function getChoice() returns (uint d)
                {
                    d = uint256(choices);
                }
                ActionChoices choices;
            }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getChoice()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(enum_explicit_overflow)
{
    char const* sourceCode = R"(
            contract test {
                enum ActionChoices { GoLeft, GoRight, GoStraight }
                function test()
                {
                }
                function getChoiceExp(uint x) returns (uint d)
                {
                    choice = ActionChoices(x);
                    d = uint256(choice);
                }
                function getChoiceFromSigned(int x) returns (uint d)
                {
                    choice = ActionChoices(x);
                    d = uint256(choice);
                }
                function getChoiceFromNegativeLiteral() returns (uint d)
                {
                    choice = ActionChoices(-1);
                    d = uint256(choice);
                }
                ActionChoices choice;
            }
    )";
    compileAndRun(sourceCode);
    // These should throw
    BOOST_CHECK(callContractFunction("getChoiceExp(uint256)", 3) == encodeArgs());
    BOOST_CHECK(callContractFunction("getChoiceFromSigned(int256)", -1) == encodeArgs());
    BOOST_CHECK(callContractFunction("getChoiceFromNegativeLiteral()") == encodeArgs());
    // These should work
    BOOST_CHECK(callContractFunction("getChoiceExp(uint256)", 2) == encodeArgs(2));
    BOOST_CHECK(callContractFunction("getChoiceExp(uint256)", 0) == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(storing_invalid_boolean)
{
    char const* sourceCode = R"(
        contract C {
            event Ev(bool);
            bool public perm;
            function set() returns(uint) {
                bool tmp;
                assembly {
                    tmp := 5
                }
                perm = tmp;
                return 1;
            }
            function ret() returns(bool) {
                bool tmp;
                assembly {
                    tmp := 5
                }
                return tmp;
            }
            function ev() returns(uint) {
                bool tmp;
                assembly {
                    tmp := 5
                }
                Ev(tmp);
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("set()") == encodeArgs(1));
    BOOST_CHECK(callContractFunction("perm()") == encodeArgs(1));
    BOOST_CHECK(callContractFunction("ret()") == encodeArgs(1));
    BOOST_CHECK(callContractFunction("ev()") == encodeArgs(1));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_CHECK(m_logs[0].data == encodeArgs(1));
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Ev(bool)")));
}


BOOST_AUTO_TEST_CASE(using_contract_enums_with_explicit_contract_name)
{
    char const* sourceCode = R"(
            contract test {
                enum Choice { A, B, C }
                function answer () returns (test.Choice _ret)
                {
                    _ret = test.Choice.B;
                }
            }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("answer()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(using_inherited_enum)
{
    char const* sourceCode = R"(
            contract base {
                enum Choice { A, B, C }
            }

            contract test is base {
                function answer () returns (Choice _ret)
                {
                    _ret = Choice.B;
                }
            }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("answer()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(using_inherited_enum_excplicitly)
{
    char const* sourceCode = R"(
            contract base {
                enum Choice { A, B, C }
            }

            contract test is base {
                function answer () returns (base.Choice _ret)
                {
                    _ret = base.Choice.B;
                }
            }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("answer()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(constructing_enums_from_ints)
{
    char const* sourceCode = R"(
            contract c {
                enum Truth { False, True }
                function test() returns (uint)
                {
                    return uint(Truth(uint8(0x701)));
                }
            }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(inline_member_init)
{
    char const* sourceCode = R"(
        contract test {
            function test(){
                m_b = 6;
                m_c = 8;
            }
            uint m_a = 5;
            uint m_b;
            uint m_c = 7;
            function get() returns (uint a, uint b, uint c){
                a = m_a;
                b = m_b;
                c = m_c;
            }
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(5, 6, 8));
}

BOOST_AUTO_TEST_CASE(inline_member_init_inheritence)
{
    char const* sourceCode = R"(
        contract Base {
            function Base(){}
            uint m_base = 5;
            function getBMember() returns (uint i) { return m_base; }
        }
        contract Derived is Base {
            function Derived(){}
            uint m_derived = 6;
            function getDMember() returns (uint i) { return m_derived; }
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getBMember()") == encodeArgs(5));
    BOOST_CHECK(callContractFunction("getDMember()") == encodeArgs(6));
}

BOOST_AUTO_TEST_CASE(inline_member_init_inheritence_without_constructor)
{
    char const* sourceCode = R"(
        contract Base {
            uint m_base = 5;
            function getBMember() returns (uint i) { return m_base; }
        }
        contract Derived is Base {
            uint m_derived = 6;
            function getDMember() returns (uint i) { return m_derived; }
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getBMember()") == encodeArgs(5));
    BOOST_CHECK(callContractFunction("getDMember()") == encodeArgs(6));
}

BOOST_AUTO_TEST_CASE(external_function)
{
    char const* sourceCode = R"(
        contract c {
            function f(uint a) returns (uint) { return a; }
            function test(uint a, uint b) external returns (uint r_a, uint r_b) {
                r_a = f(a + 7);
                r_b = b;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", 2, 3) == encodeArgs(2+7, 3));
}

BOOST_AUTO_TEST_CASE(bytes_in_arguments)
{
    char const* sourceCode = R"(
        contract c {
            uint result;
            function f(uint a, uint b) { result += a + b; }
            function g(uint a) { result *= a; }
            function test(uint a, bytes data1, bytes data2, uint b) external returns (uint r_a, uint r, uint r_b, uint l) {
                r_a = a;
                this.call(data1);
                this.call(data2);
                r = result;
                r_b = b;
                l = data1.length;
            }
        }
    )";
    compileAndRun(sourceCode);

    string innercalldata1 = asString(FixedHash<4>(dev::keccak256("f(uint256,uint256)")).asBytes() + encodeArgs(8, 9));
    string innercalldata2 = asString(FixedHash<4>(dev::keccak256("g(uint256)")).asBytes() + encodeArgs(3));
    bytes calldata = encodeArgs(
        12, 32 * 4, u256(32 * 4 + 32 + (innercalldata1.length() + 31) / 32 * 32), 13,
        u256(innercalldata1.length()), innercalldata1,
        u256(innercalldata2.length()), innercalldata2);
    BOOST_CHECK(callContractFunction("test(uint256,bytes,bytes,uint256)", calldata)
        == encodeArgs(12, (8 + 9) * 3, 13, u256(innercalldata1.length())));
}

BOOST_AUTO_TEST_CASE(fixed_arrays_in_storage)
{
    char const* sourceCode = R"(
        contract c {
            struct Data { uint x; uint y; }
            Data[2**10] data;
            uint[2**10 + 3] ids;
            function setIDStatic(uint id) { ids[2] = id; }
            function setID(uint index, uint id) { ids[index] = id; }
            function setData(uint index, uint x, uint y) { data[index].x = x; data[index].y = y; }
            function getID(uint index) returns (uint) { return ids[index]; }
            function getData(uint index) returns (uint x, uint y) { x = data[index].x; y = data[index].y; }
            function getLengths() returns (uint l1, uint l2) { l1 = data.length; l2 = ids.length; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("setIDStatic(uint256)", 11) == bytes());
    BOOST_CHECK(callContractFunction("getID(uint256)", 2) == encodeArgs(11));
    BOOST_CHECK(callContractFunction("setID(uint256,uint256)", 7, 8) == bytes());
    BOOST_CHECK(callContractFunction("getID(uint256)", 7) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("setData(uint256,uint256,uint256)", 7, 8, 9) == bytes());
    BOOST_CHECK(callContractFunction("setData(uint256,uint256,uint256)", 8, 10, 11) == bytes());
    BOOST_CHECK(callContractFunction("getData(uint256)", 7) == encodeArgs(8, 9));
    BOOST_CHECK(callContractFunction("getData(uint256)", 8) == encodeArgs(10, 11));
    BOOST_CHECK(callContractFunction("getLengths()") == encodeArgs(u256(1) << 10, (u256(1) << 10) + 3));
}

BOOST_AUTO_TEST_CASE(dynamic_arrays_in_storage)
{
    char const* sourceCode = R"(
        contract c {
            struct Data { uint x; uint y; }
            Data[] data;
            uint[] ids;
            function setIDStatic(uint id) { ids[2] = id; }
            function setID(uint index, uint id) { ids[index] = id; }
            function setData(uint index, uint x, uint y) { data[index].x = x; data[index].y = y; }
            function getID(uint index) returns (uint) { return ids[index]; }
            function getData(uint index) returns (uint x, uint y) { x = data[index].x; y = data[index].y; }
            function getLengths() returns (uint l1, uint l2) { l1 = data.length; l2 = ids.length; }
            function setLengths(uint l1, uint l2) { data.length = l1; ids.length = l2; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getLengths()") == encodeArgs(0, 0));
    BOOST_CHECK(callContractFunction("setLengths(uint256,uint256)", 48, 49) == bytes());
    BOOST_CHECK(callContractFunction("getLengths()") == encodeArgs(48, 49));
    BOOST_CHECK(callContractFunction("setIDStatic(uint256)", 11) == bytes());
    BOOST_CHECK(callContractFunction("getID(uint256)", 2) == encodeArgs(11));
    BOOST_CHECK(callContractFunction("setID(uint256,uint256)", 7, 8) == bytes());
    BOOST_CHECK(callContractFunction("getID(uint256)", 7) == encodeArgs(8));
    BOOST_CHECK(callContractFunction("setData(uint256,uint256,uint256)", 7, 8, 9) == bytes());
    BOOST_CHECK(callContractFunction("setData(uint256,uint256,uint256)", 8, 10, 11) == bytes());
    BOOST_CHECK(callContractFunction("getData(uint256)", 7) == encodeArgs(8, 9));
    BOOST_CHECK(callContractFunction("getData(uint256)", 8) == encodeArgs(10, 11));
}

BOOST_AUTO_TEST_CASE(fixed_out_of_bounds_array_access)
{
    char const* sourceCode = R"(
        contract c {
            uint[4] data;
            function set(uint index, uint value) returns (bool) { data[index] = value; return true; }
            function get(uint index) returns (uint) { return data[index]; }
            function length() returns (uint) { return data.length; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(4));
    BOOST_CHECK(callContractFunction("set(uint256,uint256)", 3, 4) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("set(uint256,uint256)", 4, 5) == bytes());
    BOOST_CHECK(callContractFunction("set(uint256,uint256)", 400, 5) == bytes());
    BOOST_CHECK(callContractFunction("get(uint256)", 3) == encodeArgs(4));
    BOOST_CHECK(callContractFunction("get(uint256)", 4) == bytes());
    BOOST_CHECK(callContractFunction("get(uint256)", 400) == bytes());
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(4));
}

BOOST_AUTO_TEST_CASE(dynamic_out_of_bounds_array_access)
{
    char const* sourceCode = R"(
        contract c {
            uint[] data;
            function enlarge(uint amount) returns (uint) { return data.length += amount; }
            function set(uint index, uint value) returns (bool) { data[index] = value; return true; }
            function get(uint index) returns (uint) { return data[index]; }
            function length() returns (uint) { return data.length; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(0));
    BOOST_CHECK(callContractFunction("get(uint256)", 3) == bytes());
    BOOST_CHECK(callContractFunction("enlarge(uint256)", 4) == encodeArgs(4));
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(4));
    BOOST_CHECK(callContractFunction("set(uint256,uint256)", 3, 4) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("get(uint256)", 3) == encodeArgs(4));
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(4));
    BOOST_CHECK(callContractFunction("set(uint256,uint256)", 4, 8) == bytes());
    BOOST_CHECK(callContractFunction("length()") == encodeArgs(4));
}

BOOST_AUTO_TEST_CASE(fixed_array_cleanup)
{
    char const* sourceCode = R"(
        contract c {
            uint spacer1;
            uint spacer2;
            uint[20] data;
            function fill() {
                for (uint i = 0; i < data.length; ++i) data[i] = i+1;
            }
            function clear() { delete data; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("fill()") == bytes());
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("clear()") == bytes());
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(short_fixed_array_cleanup)
{
    char const* sourceCode = R"(
        contract c {
            uint spacer1;
            uint spacer2;
            uint[3] data;
            function fill() {
                for (uint i = 0; i < data.length; ++i) data[i] = i+1;
            }
            function clear() { delete data; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("fill()") == bytes());
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("clear()") == bytes());
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(dynamic_array_cleanup)
{
    char const* sourceCode = R"(
        contract c {
            uint[20] spacer;
            uint[] dynamic;
            function fill() {
                dynamic.length = 21;
                for (uint i = 0; i < dynamic.length; ++i) dynamic[i] = i+1;
            }
            function halfClear() { dynamic.length = 5; }
            function fullClear() { delete dynamic; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("fill()") == bytes());
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("halfClear()") == bytes());
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("fullClear()") == bytes());
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(dynamic_multi_array_cleanup)
{
    char const* sourceCode = R"(
        contract c {
            struct s { uint[][] d; }
            s[] data;
            function fill() returns (uint) {
                data.length = 3;
                data[2].d.length = 4;
                data[2].d[3].length = 5;
                data[2].d[3][4] = 8;
                return data[2].d[3][4];
            }
            function clear() { delete data; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("fill()") == encodeArgs(8));
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("clear()") == bytes());
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(array_copy_storage_storage_dyn_dyn)
{
    char const* sourceCode = R"(
        contract c {
            uint[] data1;
            uint[] data2;
            function setData1(uint length, uint index, uint value) {
                data1.length = length; if (index < length) data1[index] = value;
            }
            function copyStorageStorage() { data2 = data1; }
            function getData2(uint index) returns (uint len, uint val) {
                len = data2.length; if (index < len) val = data2[index];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("setData1(uint256,uint256,uint256)", 10, 5, 4) == bytes());
    BOOST_CHECK(callContractFunction("copyStorageStorage()") == bytes());
    BOOST_CHECK(callContractFunction("getData2(uint256)", 5) == encodeArgs(10, 4));
    BOOST_CHECK(callContractFunction("setData1(uint256,uint256,uint256)", 0, 0, 0) == bytes());
    BOOST_CHECK(callContractFunction("copyStorageStorage()") == bytes());
    BOOST_CHECK(callContractFunction("getData2(uint256)", 0) == encodeArgs(0, 0));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(array_copy_storage_storage_static_static)
{
    char const* sourceCode = R"(
        contract c {
            uint[40] data1;
            uint[20] data2;
            function test() returns (uint x, uint y){
                data1[30] = 4;
                data1[2] = 7;
                data1[3] = 9;
                data2[3] = 8;
                data1 = data2;
                x = data1[3];
                y = data1[30]; // should be cleared
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(8, 0));
}

BOOST_AUTO_TEST_CASE(array_copy_storage_storage_static_dynamic)
{
    char const* sourceCode = R"(
        contract c {
            uint[9] data1;
            uint[] data2;
            function test() returns (uint x, uint y){
                data1[8] = 4;
                data2 = data1;
                x = data2.length;
                y = data2[8];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(9, 4));
}

BOOST_AUTO_TEST_CASE(array_copy_different_packing)
{
    char const* sourceCode = R"(
        contract c {
            bytes8[] data1; // 4 per slot
            bytes10[] data2; // 3 per slot
            function test() returns (bytes10 a, bytes10 b, bytes10 c, bytes10 d, bytes10 e) {
                data1.length = 9;
                for (uint i = 0; i < data1.length; ++i)
                    data1[i] = bytes8(i);
                data2 = data1;
                a = data2[1];
                b = data2[2];
                c = data2[3];
                d = data2[4];
                e = data2[5];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(
        asString(fromHex("0000000000000001")),
        asString(fromHex("0000000000000002")),
        asString(fromHex("0000000000000003")),
        asString(fromHex("0000000000000004")),
        asString(fromHex("0000000000000005"))
    ));
}

BOOST_AUTO_TEST_CASE(array_copy_target_simple)
{
    char const* sourceCode = R"(
        contract c {
            bytes8[9] data1; // 4 per slot
            bytes17[10] data2; // 1 per slot, no offset counter
            function test() returns (bytes17 a, bytes17 b, bytes17 c, bytes17 d, bytes17 e) {
                for (uint i = 0; i < data1.length; ++i)
                    data1[i] = bytes8(i);
                data2[8] = data2[9] = 2;
                data2 = data1;
                a = data2[1];
                b = data2[2];
                c = data2[3];
                d = data2[4];
                e = data2[9];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(
        asString(fromHex("0000000000000001")),
        asString(fromHex("0000000000000002")),
        asString(fromHex("0000000000000003")),
        asString(fromHex("0000000000000004")),
        asString(fromHex("0000000000000000"))
    ));
}

BOOST_AUTO_TEST_CASE(array_copy_target_leftover)
{
    // test that leftover elements in the last slot of target are correctly cleared during assignment
    char const* sourceCode = R"(
        contract c {
            byte[10] data1;
            bytes2[32] data2;
            function test() returns (uint check, uint res1, uint res2) {
                uint i;
                for (i = 0; i < data2.length; ++i)
                    data2[i] = 0xffff;
                check = uint(data2[31]) * 0x10000 | uint(data2[14]);
                for (i = 0; i < data1.length; ++i)
                    data1[i] = byte(uint8(1 + i));
                data2 = data1;
                for (i = 0; i < 16; ++i)
                    res1 |= uint(data2[i]) * 0x10000**i;
                for (i = 0; i < 16; ++i)
                    res2 |= uint(data2[16 + i]) * 0x10000**i;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(
        u256("0xffffffff"),
        asString(fromHex("0000000000000000""000000000a000900""0800070006000500""0400030002000100")),
        asString(fromHex("0000000000000000""0000000000000000""0000000000000000""0000000000000000"))
    ));
}

BOOST_AUTO_TEST_CASE(array_copy_target_leftover2)
{
    // since the copy always copies whole slots, we have to make sure that the source size maxes
    // out a whole slot and at the same time there are still elements left in the target at that point
    char const* sourceCode = R"(
        contract c {
            bytes8[4] data1; // fits into one slot
            bytes10[6] data2; // 4 elements need two slots
            function test() returns (bytes10 r1, bytes10 r2, bytes10 r3) {
                data1[0] = 1;
                data1[1] = 2;
                data1[2] = 3;
                data1[3] = 4;
                for (uint i = 0; i < data2.length; ++i)
                    data2[i] = bytes10(0xffff00 | (1 + i));
                data2 = data1;
                r1 = data2[3];
                r2 = data2[4];
                r3 = data2[5];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(
        asString(fromHex("0000000000000004")),
        asString(fromHex("0000000000000000")),
        asString(fromHex("0000000000000000"))
    ));
}

BOOST_AUTO_TEST_CASE(array_copy_storage_storage_struct)
{
    char const* sourceCode = R"(
        contract c {
            struct Data { uint x; uint y; }
            Data[] data1;
            Data[] data2;
            function test() returns (uint x, uint y) {
                data1.length = 9;
                data1[8].x = 4;
                data1[8].y = 5;
                data2 = data1;
                x = data2[8].x;
                y = data2[8].y;
                data1.length = 0;
                data2 = data1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(4, 5));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(array_copy_storage_abi)
{
    // NOTE: This does not really test copying from storage to ABI directly,
    // because it will always copy to memory first.
    char const* sourceCode = R"(
        pragma experimental ABIEncoderV2;
        contract c {
            uint8[] x;
            uint16[] y;
            uint24[] z;
            uint24[][] w;
            function test1() returns (uint8[]) {
                for (uint i = 0; i < 101; ++i)
                    x.push(uint8(i));
                return x;
            }
            function test2() returns (uint16[]) {
                for (uint i = 0; i < 101; ++i)
                    y.push(uint16(i));
                return y;
            }
            function test3() returns (uint24[]) {
                for (uint i = 0; i < 101; ++i)
                    z.push(uint24(i));
                return z;
            }
            function test4() returns (uint24[][]) {
                w.length = 5;
                for (uint i = 0; i < 5; ++i)
                    for (uint j = 0; j < 101; ++j)
                        w[i].push(uint24(j));
                return w;
            }
        }
    )";
    compileAndRun(sourceCode);
    bytes valueSequence;
    for (size_t i = 0; i < 101; ++i)
        valueSequence += toBigEndian(u256(i));
    BOOST_CHECK(callContractFunction("test1()") == encodeArgs(0x20, 101) + valueSequence);
    BOOST_CHECK(callContractFunction("test2()") == encodeArgs(0x20, 101) + valueSequence);
    BOOST_CHECK(callContractFunction("test3()") == encodeArgs(0x20, 101) + valueSequence);
    BOOST_CHECK(callContractFunction("test4()") ==
        encodeArgs(0x20, 5, 0xa0, 0xa0 + 102 * 32 * 1, 0xa0 + 102 * 32 * 2, 0xa0 + 102 * 32 * 3, 0xa0 + 102 * 32 * 4) +
        encodeArgs(101) + valueSequence +
        encodeArgs(101) + valueSequence +
        encodeArgs(101) + valueSequence +
        encodeArgs(101) + valueSequence +
        encodeArgs(101) + valueSequence
    );
}

BOOST_AUTO_TEST_CASE(array_copy_storage_abi_signed)
{
    // NOTE: This does not really test copying from storage to ABI directly,
    // because it will always copy to memory first.
    char const* sourceCode = R"(
        contract c {
            int16[] x;
            function test() returns (int16[]) {
                x.push(int16(-1));
                x.push(int16(-1));
                x.push(int16(8));
                x.push(int16(-16));
                x.push(int16(-2));
                x.push(int16(6));
                x.push(int16(8));
                x.push(int16(-1));
                return x;
            }
        }
    )";
    compileAndRun(sourceCode);
    bytes valueSequence;
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(0x20, 8,
        u256(-1),
        u256(-1),
        u256(8),
        u256(-16),
        u256(-2),
        u256(6),
        u256(8),
        u256(-1)
    ));
}

BOOST_AUTO_TEST_CASE(array_push)
{
    char const* sourceCode = R"(
        contract c {
            uint[] data;
            function test() returns (uint x, uint y, uint z, uint l) {
                data.push(5);
                x = data[0];
                data.push(4);
                y = data[1];
                l = data.push(3);
                z = data[2];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(5, 4, 3, 3));
}

BOOST_AUTO_TEST_CASE(byte_array_push)
{
    char const* sourceCode = R"(
        contract c {
            bytes data;
            function test() returns (bool x) {
                if (data.push(5) != 1)  return true;
                if (data[0] != 5) return true;
                data.push(4);
                if (data[1] != 4) return true;
                uint l = data.push(3);
                if (data[2] != 3) return true;
                if (l != 3) return true;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(false));
}

BOOST_AUTO_TEST_CASE(external_array_args)
{
    char const* sourceCode = R"(
        contract c {
            function test(uint[8] a, uint[] b, uint[5] c, uint a_index, uint b_index, uint c_index)
                    external returns (uint av, uint bv, uint cv) {
                av = a[a_index];
                bv = b[b_index];
                cv = c[c_index];
            }
        }
    )";
    compileAndRun(sourceCode);
    bytes params = encodeArgs(
        1, 2, 3, 4, 5, 6, 7, 8, // a
        32 * (8 + 1 + 5 + 1 + 1 + 1), // offset to b
        21, 22, 23, 24, 25, // c
        0, 1, 2, // (a,b,c)_index
        3, // b.length
        11, 12, 13 // b
        );
    BOOST_CHECK(callContractFunction("test(uint256[8],uint256[],uint256[5],uint256,uint256,uint256)", params) == encodeArgs(1, 12, 23));
}

BOOST_AUTO_TEST_CASE(bytes_index_access)
{
    char const* sourceCode = R"(
        contract c {
            bytes data;
            function direct(bytes arg, uint index) external returns (uint) {
                return uint(arg[index]);
            }
            function storageCopyRead(bytes arg, uint index) external returns (uint) {
                data = arg;
                return uint(data[index]);
            }
            function storageWrite() external returns (uint) {
                data.length = 35;
                data[31] = 0x77;
                data[32] = 0x14;

                data[31] = 1;
                data[31] |= 8;
                data[30] = 1;
                data[32] = 3;
                return uint(data[30]) * 0x100 | uint(data[31]) * 0x10 | uint(data[32]);
            }
        }
    )";
    compileAndRun(sourceCode);
    string array{
        0, 1, 2, 3, 4, 5, 6, 7, 8, 9,
        10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
        20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
        30, 31, 32, 33};
    BOOST_CHECK(callContractFunction("direct(bytes,uint256)", 64, 33, u256(array.length()), array) == encodeArgs(33));
    BOOST_CHECK(callContractFunction("storageCopyRead(bytes,uint256)", 64, 33, u256(array.length()), array) == encodeArgs(33));
    BOOST_CHECK(callContractFunction("storageWrite()") == encodeArgs(0x193));
}

BOOST_AUTO_TEST_CASE(bytes_delete_element)
{
    char const* sourceCode = R"(
        contract c {
            bytes data;
            function test1() external returns (bool) {
                data.length = 100;
                for (uint i = 0; i < data.length; i++)
                    data[i] = byte(i);
                delete data[94];
                delete data[96];
                delete data[98];
                return data[94] == 0 && data[95] == 95 && data[96] == 0 && data[97] == 97;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test1()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(array_copy_calldata_storage)
{
    char const* sourceCode = R"(
        contract c {
            uint[9] m_data;
            uint[] m_data_dyn;
            uint8[][] m_byte_data;
            function store(uint[9] a, uint8[3][] b) external returns (uint8) {
                m_data = a;
                m_data_dyn = a;
                m_byte_data = b;
                return b[3][1]; // note that access and declaration are reversed to each other
            }
            function retrieve() returns (uint a, uint b, uint c, uint d, uint e, uint f, uint g) {
                a = m_data.length;
                b = m_data[7];
                c = m_data_dyn.length;
                d = m_data_dyn[7];
                e = m_byte_data.length;
                f = m_byte_data[3].length;
                g = m_byte_data[3][1];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("store(uint256[9],uint8[3][])", encodeArgs(
        21, 22, 23, 24, 25, 26, 27, 28, 29, // a
        u256(32 * (9 + 1)),
        4, // size of b
        1, 2, 3, // b[0]
        11, 12, 13, // b[1]
        21, 22, 23, // b[2]
        31, 32, 33 // b[3]
    )) == encodeArgs(32));
    BOOST_CHECK(callContractFunction("retrieve()") == encodeArgs(
        9, 28, 9, 28,
        4, 3, 32));
}

BOOST_AUTO_TEST_CASE(array_copy_nested_array)
{
    char const* sourceCode = R"(
        contract c {
            uint[4][] a;
            uint[10][] b;
            uint[][] c;
            function test(uint[2][] d) external returns (uint) {
                a = d;
                b = a;
                c = b;
                return c[1][1] | c[1][2] | c[1][3] | c[1][4];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test(uint256[2][])", encodeArgs(
        32, 3,
        7, 8,
        9, 10,
        11, 12
    )) == encodeArgs(10));
}

BOOST_AUTO_TEST_CASE(array_copy_including_mapping)
{
    char const* sourceCode = R"(
        contract c {
            mapping(uint=>uint)[90][] large;
            mapping(uint=>uint)[3][] small;
            function test() returns (uint r) {
                large.length = small.length = 7;
                large[3][2][0] = 2;
                large[1] = large[3];
                small[3][2][0] = 2;
                small[1] = small[2];
                r = ((
                    small[3][2][0] * 0x100 |
                    small[1][2][0]) * 0x100 |
                    large[3][2][0]) * 0x100 |
                    large[1][2][0];
                delete small;
                delete large;
            }
            function clear() returns (uint r) {
                large.length = small.length = 7;
                small[3][2][0] = 0;
                large[3][2][0] = 0;
                small.length = large.length = 0;
                return 7;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(0x02000200));
    // storage is not empty because we cannot delete the mappings
    BOOST_CHECK(!storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("clear()") == encodeArgs(7));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(swap_in_storage_overwrite)
{
    // This tests a swap in storage which does not work as one
    // might expect because we do not have temporary storage.
    // (x, y) = (y, x) is the same as
    // y = x;
    // x = y;
    char const* sourceCode = R"(
        contract c {
            struct S { uint a; uint b; }
            S public x;
            S public y;
            function set() {
                x.a = 1; x.b = 2;
                y.a = 3; y.b = 4;
            }
            function swap() {
                (x, y) = (y, x);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0), u256(0)));
    BOOST_CHECK(callContractFunction("y()") == encodeArgs(u256(0), u256(0)));
    BOOST_CHECK(callContractFunction("set()") == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1), u256(2)));
    BOOST_CHECK(callContractFunction("y()") == encodeArgs(u256(3), u256(4)));
    BOOST_CHECK(callContractFunction("swap()") == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1), u256(2)));
    BOOST_CHECK(callContractFunction("y()") == encodeArgs(u256(1), u256(2)));
}

BOOST_AUTO_TEST_CASE(pass_dynamic_arguments_to_the_base)
{
    char const* sourceCode = R"(
        contract Base {
            function Base(uint i)
            {
                m_i = i;
            }
            uint public m_i;
        }
        contract Derived is Base(2) {
            function Derived(uint i) Base(i)
            {}
        }
        contract Final is Derived(4) {
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("m_i()") == encodeArgs(4));
}

BOOST_AUTO_TEST_CASE(pass_dynamic_arguments_to_the_base_base)
{
    char const* sourceCode = R"(
        contract Base {
            function Base(uint j)
            {
                m_i = j;
            }
            uint public m_i;
        }
        contract Base1 is Base(3) {
            function Base1(uint k) Base(k*k) {}
        }
        contract Derived is Base(3), Base1(2) {
            function Derived(uint i) Base(i) Base1(i)
            {}
        }
        contract Final is Derived(4) {
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("m_i()") == encodeArgs(4));
}

BOOST_AUTO_TEST_CASE(pass_dynamic_arguments_to_the_base_base_with_gap)
{
    char const* sourceCode = R"(
        contract Base {
            function Base(uint i)
            {
                m_i = i;
            }
            uint public m_i;
        }
        contract Base1 is Base(3) {}
        contract Derived is Base(2), Base1 {
            function Derived(uint i) Base(i) {}
        }
        contract Final is Derived(4) {
        })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("m_i()") == encodeArgs(4));
}

BOOST_AUTO_TEST_CASE(simple_constant_variables_test)
{
    char const* sourceCode = R"(
        contract Foo {
            function getX() returns (uint r) { return x; }
            uint constant x = 56;
    })";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("getX()") == encodeArgs(56));
}

BOOST_AUTO_TEST_CASE(constant_variables)
{
    char const* sourceCode = R"(
        contract Foo {
            uint constant x = 56;
            enum ActionChoices { GoLeft, GoRight, GoStraight, Sit }
            ActionChoices constant choices = ActionChoices.GoLeft;
            bytes32 constant st = "abc\x00\xff__";
    })";
    compileAndRun(sourceCode);
}

BOOST_AUTO_TEST_CASE(assignment_to_const_var_involving_expression)
{
    char const* sourceCode = R"(
        contract C {
            uint constant x = 0x123 + 0x456;
            function f() returns (uint) { return x + 1; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(0x123 + 0x456 + 1));
}

BOOST_AUTO_TEST_CASE(assignment_to_const_var_involving_keccak)
{
    char const* sourceCode = R"(
        contract C {
            bytes32 constant x = keccak256("abc");
            function f() returns (bytes32) { return x; }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(dev::keccak256("abc")));
}

// Disabled until https://github.com/ethereum/solidity/issues/715 is implemented
//BOOST_AUTO_TEST_CASE(assignment_to_const_array_vars)
//{
//  char const* sourceCode = R"(
//      contract C {
//          uint[3] constant x = [uint(1), 2, 3];
//          uint constant y = x[0] + x[1] + x[2];
//          function f() returns (uint) { return y; }
//      }
//  )";
//  compileAndRun(sourceCode);
//  BOOST_CHECK(callContractFunction("f()") == encodeArgs(1 + 2 + 3));
//}

// Disabled until https://github.com/ethereum/solidity/issues/715 is implemented
//BOOST_AUTO_TEST_CASE(constant_struct)
//{
//  char const* sourceCode = R"(
//      contract C {
//          struct S { uint x; uint[] y; }
//          S constant x = S(5, new uint[](4));
//          function f() returns (uint) { return x.x; }
//      }
//  )";
//  compileAndRun(sourceCode);
//  BOOST_CHECK(callContractFunction("f()") == encodeArgs(5));
//}

BOOST_AUTO_TEST_CASE(packed_storage_structs_uint)
{
    char const* sourceCode = R"(
        contract C {
            struct str { uint8 a; uint16 b; uint248 c; }
            str data;
            function test() returns (uint) {
                data.a = 2;
                if (data.a != 2) return 2;
                data.b = 0xabcd;
                if (data.b != 0xabcd) return 3;
                data.c = 0x1234567890;
                if (data.c != 0x1234567890) return 4;
                if (data.a != 2) return 5;
                data.a = 8;
                if (data.a != 8) return 6;
                if (data.b != 0xabcd) return 7;
                data.b = 0xdcab;
                if (data.b != 0xdcab) return 8;
                if (data.c != 0x1234567890) return 9;
                data.c = 0x9876543210;
                if (data.c != 0x9876543210) return 10;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(packed_storage_structs_enum)
{
    char const* sourceCode = R"(
        contract C {
            enum small { A, B, C, D }
            enum larger { A, B, C, D, E}
            struct str { small a; small b; larger c; larger d; }
            str data;
            function test() returns (uint) {
                data.a = small.B;
                if (data.a != small.B) return 2;
                data.b = small.C;
                if (data.b != small.C) return 3;
                data.c = larger.D;
                if (data.c != larger.D) return 4;
                if (data.a != small.B) return 5;
                data.a = small.C;
                if (data.a != small.C) return 6;
                if (data.b != small.C) return 7;
                data.b = small.D;
                if (data.b != small.D) return 8;
                if (data.c != larger.D) return 9;
                data.c = larger.B;
                if (data.c != larger.B) return 10;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(packed_storage_structs_bytes)
{
    char const* sourceCode = R"(
        contract C {
            struct s1 { byte a; byte b; bytes10 c; bytes9 d; bytes10 e; }
            struct s2 { byte a; s1 inner; byte b; byte c; }
            byte x;
            s2 data;
            byte y;
            function test() returns (bool) {
                x = 1;
                data.a = 2;
                data.inner.a = 3;
                data.inner.b = 4;
                data.inner.c = "1234567890";
                data.inner.d = "123456789";
                data.inner.e = "abcdefghij";
                data.b = 5;
                data.c = 6;
                y = 7;
                return x == 1 && data.a == 2 && data.inner.a == 3 && data.inner.b == 4 &&
                    data.inner.c == "1234567890" && data.inner.d == "123456789" &&
                    data.inner.e == "abcdefghij" && data.b == 5 && data.c == 6 && y == 7;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(packed_storage_structs_delete)
{
    char const* sourceCode = R"(
        contract C {
            struct str { uint8 a; uint16 b; uint8 c; }
            uint8 x;
            uint16 y;
            str data;
            function test() returns (uint) {
                x = 1;
                y = 2;
                data.a = 2;
                data.b = 0xabcd;
                data.c = 0xfa;
                if (x != 1 || y != 2 || data.a != 2 || data.b != 0xabcd || data.c != 0xfa)
                    return 2;
                delete y;
                delete data.b;
                if (x != 1 || y != 0 || data.a != 2 || data.b != 0 || data.c != 0xfa)
                    return 3;
                delete x;
                delete data;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(1));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(overloaded_function_call_resolve_to_first)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint k) returns(uint d) { return k; }
            function f(uint a, uint b) returns(uint d) { return a + b; }
            function g() returns(uint d) { return f(3); }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(3));
}

BOOST_AUTO_TEST_CASE(overloaded_function_call_resolve_to_second)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint a, uint b) returns(uint d) { return a + b; }
            function f(uint k) returns(uint d) { return k; }
            function g() returns(uint d) { return f(3, 7); }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(10));
}

BOOST_AUTO_TEST_CASE(overloaded_function_call_with_if_else)
{
    char const* sourceCode = R"(
        contract test {
            function f(uint a, uint b) returns(uint d) { return a + b; }
            function f(uint k) returns(uint d) { return k; }
            function g(bool flag) returns(uint d) {
                if (flag)
                    return f(3);
                else
                    return f(3, 7);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("g(bool)", true) == encodeArgs(3));
    BOOST_CHECK(callContractFunction("g(bool)", false) == encodeArgs(10));
}

BOOST_AUTO_TEST_CASE(derived_overload_base_function_direct)
{
    char const* sourceCode = R"(
        contract B { function f() returns(uint) { return 10; } }
        contract C is B {
            function f(uint i) returns(uint) { return 2 * i; }
            function g() returns(uint) { return f(1); }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(derived_overload_base_function_indirect)
{
    char const* sourceCode = R"(
        contract A { function f(uint a) returns(uint) { return 2 * a; } }
        contract B { function f() returns(uint) { return 10; } }
        contract C is A, B {
            function g() returns(uint) { return f(); }
            function h() returns(uint) { return f(1); }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(10));
    BOOST_CHECK(callContractFunction("h()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(super_overload)
{
    char const* sourceCode = R"(
        contract A { function f(uint a) returns(uint) { return 2 * a; } }
        contract B { function f(bool b) returns(uint) { return 10; } }
        contract C is A, B {
            function g() returns(uint) { return super.f(true); }
            function h() returns(uint) { return super.f(1); }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(10));
    BOOST_CHECK(callContractFunction("h()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(bool_conversion)
{
    char const* sourceCode = R"(
        contract C {
            function f(bool _b) returns(uint) {
                if (_b)
                    return 1;
                else
                    return 0;
            }
            function g(bool _in) returns (bool _out) {
                _out = _in;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(bool)", 0) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("f(bool)", 1) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("f(bool)", 2) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("f(bool)", 3) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("f(bool)", 255) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("g(bool)", 0) == encodeArgs(0));
    BOOST_CHECK(callContractFunction("g(bool)", 1) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("g(bool)", 2) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("g(bool)", 3) == encodeArgs(1));
    BOOST_CHECK(callContractFunction("g(bool)", 255) == encodeArgs(1));
}

BOOST_AUTO_TEST_CASE(packed_storage_signed)
{
    char const* sourceCode = R"(
        contract C {
            int8 a;
            uint8 b;
            int8 c;
            uint8 d;
            function test() returns (uint x1, uint x2, uint x3, uint x4) {
                a = -2;
                b = -uint8(a) * 2;
                c = a * int8(120) * int8(121);
                x1 = uint(a);
                x2 = b;
                x3 = uint(c);
                x4 = d;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK( callContractFunction("test()") == encodeArgs(u256(-2), u256(4), u256(-112), u256(0)));
}

BOOST_AUTO_TEST_CASE(external_types_in_calls)
{
    char const* sourceCode = R"(
        contract C1 { C1 public bla; function C1(C1 x) { bla = x; } }
        contract C {
            function test() returns (C1 x, C1 y) {
                C1 c = new C1(C1(9));
                x = c.bla();
                y = this.t1(C1(7));
            }
            function t1(C1 a) returns (C1) { return a; }
            function t2() returns (C1) { return C1(9); }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(9), u256(7)));
    BOOST_CHECK(callContractFunction("t2()") == encodeArgs(u256(9)));
}

BOOST_AUTO_TEST_CASE(invalid_enum_compared)
{
    char const* sourceCode = R"(
        contract C {
            enum X { A, B }

            function test_eq() returns (bool) {
                X garbled;
                assembly {
                    garbled := 5
                }
                return garbled == garbled;
            }
            function test_eq_ok() returns (bool) {
                X garbled = X.A;
                return garbled == garbled;
            }
            function test_neq() returns (bool) {
                X garbled;
                assembly {
                    garbled := 5
                }
                return garbled != garbled;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test_eq_ok()") == encodeArgs(u256(1)));
    // both should throw
    BOOST_CHECK(callContractFunction("test_eq()") == encodeArgs());
    BOOST_CHECK(callContractFunction("test_neq()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(invalid_enum_logged)
{
    char const* sourceCode = R"(
        contract C {
            enum X { A, B }
            event Log(X);

            function test_log() returns (uint) {
                X garbled = X.A;
                assembly {
                    garbled := 5
                }
                Log(garbled);
                return 1;
            }
            function test_log_ok() returns (uint) {
                X x = X.A;
                Log(x);
                return 1;
            }
        }
        )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test_log_ok()") == encodeArgs(u256(1)));
    BOOST_REQUIRE_EQUAL(m_logs.size(), 1);
    BOOST_CHECK_EQUAL(m_logs[0].address, m_contractAddress);
    BOOST_REQUIRE_EQUAL(m_logs[0].topics.size(), 1);
    BOOST_REQUIRE_EQUAL(m_logs[0].topics[0], dev::keccak256(string("Log(uint8)")));
    BOOST_CHECK_EQUAL(h256(m_logs[0].data), h256(u256(0)));

    // should throw
    BOOST_CHECK(callContractFunction("test_log()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(invalid_enum_stored)
{
    char const* sourceCode = R"(
        contract C {
            enum X { A, B }
            X public x;

            function test_store() returns (uint) {
                X garbled = X.A;
                assembly {
                    garbled := 5
                }
                x = garbled;
                return 1;
            }
            function test_store_ok() returns (uint) {
                x = X.A;
                return 1;
            }
        }
        )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test_store_ok()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));

    // should throw
    BOOST_CHECK(callContractFunction("test_store()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(invalid_enum_as_external_ret)
{
    char const* sourceCode = R"(
        contract C {
            enum X { A, B }

            function test_return() returns (X) {
                X garbled;
                assembly {
                    garbled := 5
                }
                return garbled;
            }
            function test_inline_assignment() returns (X _ret) {
                assembly {
                    _ret := 5
                }
            }
            function test_assignment() returns (X _ret) {
                X tmp;
                assembly {
                    tmp := 5
                }
                _ret = tmp;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    // both should throw
    BOOST_CHECK(callContractFunction("test_return()") == encodeArgs());
    BOOST_CHECK(callContractFunction("test_inline_assignment()") == encodeArgs());
    BOOST_CHECK(callContractFunction("test_assignment()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(invalid_enum_as_external_arg)
{
    char const* sourceCode = R"(
        contract C {
            enum X { A, B }

            function tested (X x) returns (uint) {
                return 1;
            }

            function test() returns (uint) {
                X garbled;

                assembly {
                    garbled := 5
                }

                return this.tested(garbled);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    // should throw
    BOOST_CHECK(callContractFunction("test()") == encodeArgs());
}


BOOST_AUTO_TEST_CASE(proper_order_of_overwriting_of_attributes)
{
    // bug #1798
    char const* sourceCode = R"(
        contract init {
            function isOk() returns (bool) { return false; }
            bool public ok = false;
        }
        contract fix {
            function isOk() returns (bool) { return true; }
            bool public ok = true;
        }

        contract init_fix is init, fix {
            function checkOk() returns (bool) { return ok; }
        }
        contract fix_init is fix, init {
            function checkOk() returns (bool) { return ok; }
        }
    )";
    compileAndRun(sourceCode, 0, "init_fix");
    BOOST_CHECK(callContractFunction("isOk()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("ok()") == encodeArgs(true));

    compileAndRun(sourceCode, 0, "fix_init");
    BOOST_CHECK(callContractFunction("isOk()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("ok()") == encodeArgs(false));
}

BOOST_AUTO_TEST_CASE(struct_assign_reference_to_struct)
{
    char const* sourceCode = R"(
        contract test {
            struct testStruct
            {
                uint m_value;
            }
            testStruct data1;
            testStruct data2;
            testStruct data3;
            function test()
            {
                data1.m_value = 2;
            }
            function assign() returns (uint ret_local, uint ret_global, uint ret_global3, uint ret_global1)
            {
                testStruct x = data1; //x is a reference data1.m_value == 2 as well as x.m_value = 2
                data2 = data1; // should copy data. data2.m_value == 2

                ret_local = x.m_value; // = 2
                ret_global = data2.m_value; // = 2

                x.m_value = 3;
                data3 = x; //should copy the data. data3.m_value == 3
                ret_global3 = data3.m_value; // = 3
                ret_global1 = data1.m_value; // = 3. Changed due to the assignment to x.m_value
            }
        }
    )";
    compileAndRun(sourceCode, 0, "test");
    BOOST_CHECK(callContractFunction("assign()") == encodeArgs(2, 2, 3, 3));
}

BOOST_AUTO_TEST_CASE(struct_delete_member)
{
    char const* sourceCode = R"(
        contract test {
            struct testStruct
            {
                uint m_value;
            }
            testStruct data1;
            function test()
            {
                data1.m_value = 2;
            }
            function deleteMember() returns (uint ret_value)
            {
                testStruct x = data1; //should not copy the data. data1.m_value == 2 but x.m_value = 0
                x.m_value = 4;
                delete x.m_value;
                ret_value = data1.m_value;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "test");
    BOOST_CHECK(callContractFunction("deleteMember()") == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(struct_delete_struct_in_mapping)
{
    char const* sourceCode = R"(
        contract test {
            struct testStruct
            {
                uint m_value;
            }
            mapping (uint => testStruct) campaigns;

            function test()
            {
                campaigns[0].m_value = 2;
            }
            function deleteIt() returns (uint)
            {
                delete campaigns[0];
                return campaigns[0].m_value;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "test");
    BOOST_CHECK(callContractFunction("deleteIt()") == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(evm_exceptions_out_of_band_access)
{
    char const* sourceCode = R"(
        contract A {
            uint[3] arr;
            bool public test = false;
            function getElement(uint i) returns (uint)
            {
                return arr[i];
            }
            function testIt() returns (bool)
            {
                uint i = this.getElement(5);
                test = true;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "A");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("testIt()") == encodeArgs());
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(false));
}

BOOST_AUTO_TEST_CASE(evm_exceptions_in_constructor_call_fail)
{
    char const* sourceCode = R"(
        contract A {
            function A()
            {
                this.call("123");
            }
        }
        contract B {
            uint public test = 1;
            function testIt()
            {
                A a = new A();
                ++test;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "B");

    BOOST_CHECK(callContractFunction("testIt()") == encodeArgs());
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(evm_exceptions_in_constructor_out_of_baund)
{
    char const* sourceCode = R"(
        contract A {
            uint public test = 1;
            uint[3] arr;
            function A()
            {
                uint index = 5;
                test = arr[index];
                ++test;
            }
        }
    )";
    BOOST_CHECK(compileAndRunWithoutCheck(sourceCode, 0, "A").empty());
}

BOOST_AUTO_TEST_CASE(positive_integers_to_signed)
{
    char const* sourceCode = R"(
        contract test {
            int8 public x = 2;
            int8 public y = 127;
            int16 public q = 250;
        }
    )";
    compileAndRun(sourceCode, 0, "test");
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(2));
    BOOST_CHECK(callContractFunction("y()") == encodeArgs(127));
    BOOST_CHECK(callContractFunction("q()") == encodeArgs(250));
}

BOOST_AUTO_TEST_CASE(failing_send)
{
    char const* sourceCode = R"(
        contract Helper {
            uint[] data;
            function () {
                data[9]; // trigger exception
            }
        }
        contract Main {
            function Main() payable {}
            function callHelper(address _a) returns (bool r, uint bal) {
                r = !_a.send(5);
                bal = this.balance;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Helper");
    u160 const c_helperAddress = m_contractAddress;
    compileAndRun(sourceCode, 20, "Main");
    BOOST_REQUIRE(callContractFunction("callHelper(address)", c_helperAddress) == encodeArgs(true, 20));
}

BOOST_AUTO_TEST_CASE(send_zero_ether)
{
    // Sending zero ether to a contract should still invoke the fallback function
    // (it previously did not because the gas stipend was not provided by the EVM)
    char const* sourceCode = R"(
        contract Receiver {
            function () payable {
            }
        }
        contract Main {
            function Main() payable {}
            function s() returns (bool) {
                var r = new Receiver();
                return r.send(0);
            }
        }
    )";
    compileAndRun(sourceCode, 20, "Main");
    BOOST_REQUIRE(callContractFunction("s()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(reusing_memory)
{
    // Invoke some features that use memory and test that they do not interfere with each other.
    char const* sourceCode = R"(
        contract Helper {
            uint public flag;
            function Helper(uint x) {
                flag = x;
            }
        }
        contract Main {
            mapping(uint => uint) map;
            function f(uint x) returns (uint) {
                map[x] = x;
                return (new Helper(uint(keccak256(this.g(map[x]))))).flag();
            }
            function g(uint a) returns (uint)
            {
                return map[a];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    BOOST_REQUIRE(callContractFunction("f(uint256)", 0x34) == encodeArgs(dev::keccak256(dev::toBigEndian(u256(0x34)))));
}

BOOST_AUTO_TEST_CASE(return_string)
{
    char const* sourceCode = R"(
        contract Main {
            string public s;
            function set(string _s) external {
                s = _s;
            }
            function get1() returns (string r) {
                return s;
            }
            function get2() returns (string r) {
                r = s;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s("Julia");
    bytes args = encodeArgs(u256(0x20), u256(s.length()), s);
    BOOST_REQUIRE(callContractFunction("set(string)", asString(args)) == encodeArgs());
    BOOST_CHECK(callContractFunction("get1()") == args);
    BOOST_CHECK(callContractFunction("get2()") == args);
    BOOST_CHECK(callContractFunction("s()") == args);
}

BOOST_AUTO_TEST_CASE(return_multiple_strings_of_various_sizes)
{
    char const* sourceCode = R"(
        contract Main {
            string public s1;
            string public s2;
            function set(string _s1, uint x, string _s2) external returns (uint) {
                s1 = _s1;
                s2 = _s2;
                return x;
            }
            function get() returns (string r1, string r2) {
                r1 = s1;
                r2 = s2;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s1(
        "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
        "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
        "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
        "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
    );
    string s2(
        "ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ"
        "ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ"
        "ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ"
        "ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ"
        "ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ"
    );
    vector<size_t> lengthes{0, 30, 32, 63, 64, 65, 210, 300};
    for (auto l1: lengthes)
        for (auto l2: lengthes)
        {
            bytes dyn1 = encodeArgs(u256(l1), s1.substr(0, l1));
            bytes dyn2 = encodeArgs(u256(l2), s2.substr(0, l2));
            bytes args = encodeArgs(u256(0x60), u256(l1), u256(0x60 + dyn1.size())) + dyn1 + dyn2;
            BOOST_REQUIRE(
                callContractFunction("set(string,uint256,string)", asString(args)) ==
                encodeArgs(u256(l1))
            );
            bytes result = encodeArgs(u256(0x40), u256(0x40 + dyn1.size())) + dyn1 + dyn2;
            BOOST_CHECK(callContractFunction("get()") == result);
            BOOST_CHECK(callContractFunction("s1()") == encodeArgs(0x20) + dyn1);
            BOOST_CHECK(callContractFunction("s2()") == encodeArgs(0x20) + dyn2);
        }
}

BOOST_AUTO_TEST_CASE(accessor_involving_strings)
{
    char const* sourceCode = R"(
        contract Main {
            struct stringData { string a; uint b; string c; }
            mapping(uint => stringData[]) public data;
            function set(uint x, uint y, string a, uint b, string c) external returns (bool) {
                data[x].length = y + 1;
                data[x][y].a = a;
                data[x][y].b = b;
                data[x][y].c = c;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    string s2("ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ");
    bytes s1Data = encodeArgs(u256(s1.length()), s1);
    bytes s2Data = encodeArgs(u256(s2.length()), s2);
    u256 b = 765;
    u256 x = 7;
    u256 y = 123;
    bytes args = encodeArgs(x, y, u256(0xa0), b, u256(0xa0 + s1Data.size()), s1Data, s2Data);
    bytes result = encodeArgs(u256(0x60), b, u256(0x60 + s1Data.size()), s1Data, s2Data);
    BOOST_REQUIRE(callContractFunction("set(uint256,uint256,string,uint256,string)", asString(args)) == encodeArgs(true));
    BOOST_REQUIRE(callContractFunction("data(uint256,uint256)", x, y) == result);
}

BOOST_AUTO_TEST_CASE(bytes_in_function_calls)
{
    char const* sourceCode = R"(
        contract Main {
            string public s1;
            string public s2;
            function set(string _s1, uint x, string _s2) returns (uint) {
                s1 = _s1;
                s2 = _s2;
                return x;
            }
            function setIndirectFromMemory(string _s1, uint x, string _s2) returns (uint) {
                return this.set(_s1, x, _s2);
            }
            function setIndirectFromCalldata(string _s1, uint x, string _s2) external returns (uint) {
                return this.set(_s1, x, _s2);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    string s2("ABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZABCDEFGHIJKLMNOPQRSTUVXYZ");
    vector<size_t> lengthes{0, 31, 64, 65};
    for (auto l1: lengthes)
        for (auto l2: lengthes)
        {
            bytes dyn1 = encodeArgs(u256(l1), s1.substr(0, l1));
            bytes dyn2 = encodeArgs(u256(l2), s2.substr(0, l2));
            bytes args1 = encodeArgs(u256(0x60), u256(l1), u256(0x60 + dyn1.size())) + dyn1 + dyn2;
            BOOST_REQUIRE(
                callContractFunction("setIndirectFromMemory(string,uint256,string)", asString(args1)) ==
                encodeArgs(u256(l1))
            );
            BOOST_CHECK(callContractFunction("s1()") == encodeArgs(0x20) + dyn1);
            BOOST_CHECK(callContractFunction("s2()") == encodeArgs(0x20) + dyn2);
            // swapped
            bytes args2 = encodeArgs(u256(0x60), u256(l1), u256(0x60 + dyn2.size())) + dyn2 + dyn1;
            BOOST_REQUIRE(
                callContractFunction("setIndirectFromCalldata(string,uint256,string)", asString(args2)) ==
                encodeArgs(u256(l1))
            );
            BOOST_CHECK(callContractFunction("s1()") == encodeArgs(0x20) + dyn2);
            BOOST_CHECK(callContractFunction("s2()") == encodeArgs(0x20) + dyn1);
        }
}

BOOST_AUTO_TEST_CASE(return_bytes_internal)
{
    char const* sourceCode = R"(
        contract Main {
            bytes s1;
            function doSet(bytes _s1) returns (bytes _r1) {
                s1 = _s1;
                _r1 = s1;
            }
            function set(bytes _s1) external returns (uint _r, bytes _r1) {
                _r1 = doSet(_s1);
                _r = _r1.length;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    vector<size_t> lengthes{0, 31, 64, 65};
    for (auto l1: lengthes)
    {
        bytes dyn1 = encodeArgs(u256(l1), s1.substr(0, l1));
        bytes args1 = encodeArgs(u256(0x20)) + dyn1;
        BOOST_REQUIRE(
            callContractFunction("set(bytes)", asString(args1)) ==
            encodeArgs(u256(l1), u256(0x40)) + dyn1
        );
    }
}

BOOST_AUTO_TEST_CASE(bytes_index_access_memory)
{
    char const* sourceCode = R"(
        contract Main {
            function f(bytes _s1, uint i1, uint i2, uint i3) returns (byte c1, byte c2, byte c3) {
                c1 = _s1[i1];
                c2 = intern(_s1, i2);
                c3 = internIndirect(_s1)[i3];
            }
            function intern(bytes _s1, uint i) returns (byte c) {
                return _s1[i];
            }
            function internIndirect(bytes _s1) returns (bytes) {
                return _s1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Main");
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    bytes dyn1 = encodeArgs(u256(s1.length()), s1);
    bytes args1 = encodeArgs(u256(0x80), u256(3), u256(4), u256(5)) + dyn1;
    BOOST_REQUIRE(
        callContractFunction("f(bytes,uint256,uint256,uint256)", asString(args1)) ==
        encodeArgs(string{s1[3]}, string{s1[4]}, string{s1[5]})
    );
}

BOOST_AUTO_TEST_CASE(bytes_in_constructors_unpacker)
{
    char const* sourceCode = R"(
        contract Test {
            uint public m_x;
            bytes public m_s;
            function Test(uint x, bytes s) {
                m_x = x;
                m_s = s;
            }
        }
    )";
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    bytes dyn1 = encodeArgs(u256(s1.length()), s1);
    u256 x = 7;
    bytes args1 = encodeArgs(x, u256(0x40)) + dyn1;
    compileAndRun(sourceCode, 0, "Test", args1);
    BOOST_REQUIRE(callContractFunction("m_x()") == encodeArgs(x));
    BOOST_REQUIRE(callContractFunction("m_s()") == encodeArgs(u256(0x20)) + dyn1);
}

BOOST_AUTO_TEST_CASE(bytes_in_constructors_packer)
{
    char const* sourceCode = R"(
        contract Base {
            uint public m_x;
            bytes m_s;
            function Base(uint x, bytes s) {
                m_x = x;
                m_s = s;
            }
            function part(uint i) returns (byte) {
                return m_s[i];
            }
        }
        contract Main is Base {
            function Main(bytes s, uint x) Base(x, f(s)) {}
            function f(bytes s) returns (bytes) {
                return s;
            }
        }
        contract Creator {
            function f(uint x, bytes s) returns (uint r, byte ch) {
                var c = new Main(s, x);
                r = c.m_x();
                ch = c.part(x);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Creator");
    string s1("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz");
    bytes dyn1 = encodeArgs(u256(s1.length()), s1);
    u256 x = 7;
    bytes args1 = encodeArgs(x, u256(0x40)) + dyn1;
    BOOST_REQUIRE(
        callContractFunction("f(uint256,bytes)", asString(args1)) ==
        encodeArgs(x, string{s1[unsigned(x)]})
    );
}

BOOST_AUTO_TEST_CASE(arrays_in_constructors)
{
    char const* sourceCode = R"(
        contract Base {
            uint public m_x;
            address[] m_s;
            function Base(uint x, address[] s) {
                m_x = x;
                m_s = s;
            }
            function part(uint i) returns (address) {
                return m_s[i];
            }
        }
        contract Main is Base {
            function Main(address[] s, uint x) Base(x, f(s)) {}
            function f(address[] s) returns (address[]) {
                return s;
            }
        }
        contract Creator {
            function f(uint x, address[] s) returns (uint r, address ch) {
                var c = new Main(s, x);
                r = c.m_x();
                ch = c.part(x);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Creator");
    vector<u256> s1{1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
    bytes dyn1 = encodeArgs(u256(s1.size()), s1);
    u256 x = 7;
    bytes args1 = encodeArgs(x, u256(0x40)) + dyn1;
    BOOST_REQUIRE(
        callContractFunction("f(uint256,address[])", asString(args1)) ==
        encodeArgs(x, s1[unsigned(x)])
    );
}

BOOST_AUTO_TEST_CASE(fixed_arrays_in_constructors)
{
    char const* sourceCode = R"(
        contract Creator {
            uint public r;
            address public ch;
            function Creator(address[3] s, uint x) {
                r = x;
                ch = s[2];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Creator", encodeArgs(u256(1), u256(2), u256(3), u256(4)));
    BOOST_REQUIRE(callContractFunction("r()") == encodeArgs(u256(4)));
    BOOST_REQUIRE(callContractFunction("ch()") == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(arrays_from_and_to_storage)
{
    char const* sourceCode = R"(
        contract Test {
            uint24[] public data;
            function set(uint24[] _data) returns (uint) {
                data = _data;
                return data.length;
            }
            function get() returns (uint24[]) {
                return data;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18};
    BOOST_REQUIRE(
        callContractFunction("set(uint24[])", u256(0x20), u256(data.size()), data) ==
        encodeArgs(u256(data.size()))
    );
    BOOST_CHECK(callContractFunction("data(uint256)", u256(7)) == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("data(uint256)", u256(15)) == encodeArgs(u256(16)));
    BOOST_CHECK(callContractFunction("data(uint256)", u256(18)) == encodeArgs());
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(u256(0x20), u256(data.size()), data));
}

BOOST_AUTO_TEST_CASE(arrays_complex_from_and_to_storage)
{
    char const* sourceCode = R"(
        contract Test {
            uint24[3][] public data;
            function set(uint24[3][] _data) returns (uint) {
                data = _data;
                return data.length;
            }
            function get() returns (uint24[3][]) {
                return data;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18};
    BOOST_REQUIRE(
        callContractFunction("set(uint24[3][])", u256(0x20), u256(data.size() / 3), data) ==
        encodeArgs(u256(data.size() / 3))
    );
    BOOST_CHECK(callContractFunction("data(uint256,uint256)", u256(2), u256(2)) == encodeArgs(u256(9)));
    BOOST_CHECK(callContractFunction("data(uint256,uint256)", u256(5), u256(1)) == encodeArgs(u256(17)));
    BOOST_CHECK(callContractFunction("data(uint256,uint256)", u256(6), u256(0)) == encodeArgs());
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(u256(0x20), u256(data.size() / 3), data));
}

BOOST_AUTO_TEST_CASE(arrays_complex_memory_index_access)
{
    char const* sourceCode = R"(
        contract Test {
            function set(uint24[3][] _data, uint a, uint b) returns (uint l, uint e) {
                l = _data.length;
                e = _data[a][b];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18};
    BOOST_REQUIRE(callContractFunction(
            "set(uint24[3][],uint256,uint256)",
            u256(0x60),
            u256(3),
            u256(2),
            u256(data.size() / 3),
            data
    ) == encodeArgs(u256(data.size() / 3), u256(data[3 * 3 + 2])));
}

BOOST_AUTO_TEST_CASE(bytes_memory_index_access)
{
    char const* sourceCode = R"(
        contract Test {
            function set(bytes _data, uint i) returns (uint l, byte c) {
                l = _data.length;
                c = _data[i];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    string data("abcdefgh");
    BOOST_REQUIRE(callContractFunction(
            "set(bytes,uint256)",
            u256(0x40),
            u256(3),
            u256(data.size()),
            data
    ) == encodeArgs(u256(data.size()), string("d")));
}

BOOST_AUTO_TEST_CASE(storage_array_ref)
{
    char const* sourceCode = R"(
        contract BinarySearch {
          /// Finds the position of _value in the sorted list _data.
          /// Note that "internal" is important here, because storage references only work for internal or private functions
          function find(uint[] storage _data, uint _value) internal returns (uint o_position) {
            return find(_data, 0, _data.length, _value);
          }
          function find(uint[] storage _data, uint _begin, uint _len, uint _value) private returns (uint o_position) {
            if (_len == 0 || (_len == 1 && _data[_begin] != _value))
              return uint(-1); // failure
            uint halfLen = _len / 2;
            uint v = _data[_begin + halfLen];
            if (_value < v)
              return find(_data, _begin, halfLen, _value);
            else if (_value > v)
              return find(_data, _begin + halfLen + 1, halfLen - 1, _value);
            else
              return _begin + halfLen;
          }
        }

        contract Store is BinarySearch {
            uint[] data;
            function add(uint v) {
                data.length++;
                data[data.length - 1] = v;
            }
            function find(uint v) returns (uint) {
                return find(data, v);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Store");
    BOOST_REQUIRE(callContractFunction("find(uint256)", u256(7)) == encodeArgs(u256(-1)));
    BOOST_REQUIRE(callContractFunction("add(uint256)", u256(7)) == encodeArgs());
    BOOST_REQUIRE(callContractFunction("find(uint256)", u256(7)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("add(uint256)", u256(11)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(17)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(27)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(31)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(32)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(66)) == encodeArgs());
    BOOST_CHECK(callContractFunction("add(uint256)", u256(177)) == encodeArgs());
    BOOST_CHECK(callContractFunction("find(uint256)", u256(7)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("find(uint256)", u256(27)) == encodeArgs(u256(3)));
    BOOST_CHECK(callContractFunction("find(uint256)", u256(32)) == encodeArgs(u256(5)));
    BOOST_CHECK(callContractFunction("find(uint256)", u256(176)) == encodeArgs(u256(-1)));
    BOOST_CHECK(callContractFunction("find(uint256)", u256(0)) == encodeArgs(u256(-1)));
    BOOST_CHECK(callContractFunction("find(uint256)", u256(400)) == encodeArgs(u256(-1)));
}

BOOST_AUTO_TEST_CASE(memory_types_initialisation)
{
    char const* sourceCode = R"(
        contract Test {
            mapping(uint=>uint) data;
            function stat() returns (uint[5])
            {
                data[2] = 3; // make sure to use some memory
            }
            function dyn() returns (uint[]) { stat(); }
            function nested() returns (uint[3][]) { stat(); }
            function nestedStat() returns (uint[3][7]) { stat(); }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    BOOST_CHECK(callContractFunction("stat()") == encodeArgs(vector<u256>(5)));
    BOOST_CHECK(callContractFunction("dyn()") == encodeArgs(u256(0x20), u256(0)));
    BOOST_CHECK(callContractFunction("nested()") == encodeArgs(u256(0x20), u256(0)));
    BOOST_CHECK(callContractFunction("nestedStat()") == encodeArgs(vector<u256>(3 * 7)));
}

BOOST_AUTO_TEST_CASE(memory_arrays_delete)
{
    char const* sourceCode = R"(
        contract Test {
            function del() returns (uint24[3][4]) {
                uint24[3][4] memory x;
                for (uint24 i = 0; i < x.length; i ++)
                    for (uint24 j = 0; j < x[i].length; j ++)
                        x[i][j] = i * 0x10 + j;
                delete x[1];
                delete x[3][2];
                return x;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data(3 * 4);
    for (unsigned i = 0; i < 4; i++)
        for (unsigned j = 0; j < 3; j++)
        {
            u256 v = 0;
            if (!(i == 1 || (i == 3 && j == 2)))
                v = i * 0x10 + j;
            data[i * 3 + j] = v;
        }
    BOOST_CHECK(callContractFunction("del()") == encodeArgs(data));
}

BOOST_AUTO_TEST_CASE(memory_arrays_index_access_write)
{
    char const* sourceCode = R"(
        contract Test {
            function set(uint24[3][4] x) {
                x[2][2] = 1;
                x[3][2] = 7;
            }
            function f() returns (uint24[3][4]){
                uint24[3][4] memory data;
                set(data);
                return data;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data(3 * 4);
    data[3 * 2 + 2] = 1;
    data[3 * 3 + 2] = 7;
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(data));
}

BOOST_AUTO_TEST_CASE(memory_arrays_dynamic_index_access_write)
{
    char const* sourceCode = R"(
        contract Test {
            uint24[3][][4] data;
            function set(uint24[3][][4] x) internal returns (uint24[3][][4]) {
                x[1][2][2] = 1;
                x[1][3][2] = 7;
                return x;
            }
            function f() returns (uint24[3][]) {
                data[1].length = 4;
                return set(data)[1];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    vector<u256> data(3 * 4);
    data[3 * 2 + 2] = 1;
    data[3 * 3 + 2] = 7;
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x20), u256(4), data));
}

BOOST_AUTO_TEST_CASE(memory_structs_read_write)
{
    char const* sourceCode = R"(
        contract Test {
            struct S { uint8 x; uint16 y; uint z; uint8[2] a; }
            S[5] data;
            function testInit() returns (uint8 x, uint16 y, uint z, uint8 a, bool flag) {
                S[2] memory d;
                x = d[0].x;
                y = d[0].y;
                z = d[0].z;
                a = d[0].a[1];
                flag = true;
            }
            function testCopyRead() returns (uint8 x, uint16 y, uint z, uint8 a) {
                data[2].x = 1;
                data[2].y = 2;
                data[2].z = 3;
                data[2].a[1] = 4;
                S memory s = data[2];
                x = s.x;
                y = s.y;
                z = s.z;
                a = s.a[1];
            }
            function testAssign() returns (uint8 x, uint16 y, uint z, uint8 a) {
                S memory s;
                s.x = 1;
                s.y = 2;
                s.z = 3;
                s.a[1] = 4;
                x = s.x;
                y = s.y;
                z = s.z;
                a = s.a[1];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    BOOST_CHECK(callContractFunction("testInit()") == encodeArgs(u256(0), u256(0), u256(0), u256(0), true));
    BOOST_CHECK(callContractFunction("testCopyRead()") == encodeArgs(u256(1), u256(2), u256(3), u256(4)));
    BOOST_CHECK(callContractFunction("testAssign()") == encodeArgs(u256(1), u256(2), u256(3), u256(4)));
}

BOOST_AUTO_TEST_CASE(memory_structs_as_function_args)
{
    char const* sourceCode = R"(
        contract Test {
            struct S { uint8 x; uint16 y; uint z; }
            function test() returns (uint x, uint y, uint z) {
                S memory data = combine(1, 2, 3);
                x = extract(data, 0);
                y = extract(data, 1);
                z = extract(data, 2);
            }
            function extract(S s, uint which) internal returns (uint x) {
                if (which == 0) return s.x;
                else if (which == 1) return s.y;
                else return s.z;
            }
            function combine(uint8 x, uint16 y, uint z) internal returns (S s) {
                s.x = x;
                s.y = y;
                s.z = z;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(1), u256(2), u256(3)));
}

BOOST_AUTO_TEST_CASE(memory_structs_nested)
{
    char const* sourceCode = R"(
        contract Test {
            struct S { uint8 x; uint16 y; uint z; }
            struct X { uint8 x; S s; }
            function test() returns (uint a, uint x, uint y, uint z) {
                X memory d = combine(1, 2, 3, 4);
                a = extract(d, 0);
                x = extract(d, 1);
                y = extract(d, 2);
                z = extract(d, 3);
            }
            function extract(X s, uint which) internal returns (uint x) {
                if (which == 0) return s.x;
                else if (which == 1) return s.s.x;
                else if (which == 2) return s.s.y;
                else return s.s.z;
            }
            function combine(uint8 a, uint8 x, uint16 y, uint z) internal returns (X s) {
                s.x = a;
                s.s.x = x;
                s.s.y = y;
                s.s.z = z;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(1), u256(2), u256(3), u256(4)));
}

BOOST_AUTO_TEST_CASE(memory_structs_nested_load)
{
    char const* sourceCode = R"(
        contract Test {
            struct S { uint8 x; uint16 y; uint z; }
            struct X { uint8 x; S s; uint8[2] a; }
            X m_x;
            function load() returns (uint a, uint x, uint y, uint z, uint a1, uint a2) {
                m_x.x = 1;
                m_x.s.x = 2;
                m_x.s.y = 3;
                m_x.s.z = 4;
                m_x.a[0] = 5;
                m_x.a[1] = 6;
                X memory d = m_x;
                a = d.x;
                x = d.s.x;
                y = d.s.y;
                z = d.s.z;
                a1 = d.a[0];
                a2 = d.a[1];
            }
            function store() returns (uint a, uint x, uint y, uint z, uint a1, uint a2) {
                X memory d;
                d.x = 1;
                d.s.x = 2;
                d.s.y = 3;
                d.s.z = 4;
                d.a[0] = 5;
                d.a[1] = 6;
                m_x = d;
                a = m_x.x;
                x = m_x.s.x;
                y = m_x.s.y;
                z = m_x.s.z;
                a1 = m_x.a[0];
                a2 = m_x.a[1];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");

    auto out = encodeArgs(u256(1), u256(2), u256(3), u256(4), u256(5), u256(6));
    BOOST_CHECK(callContractFunction("load()") == out);
    BOOST_CHECK(callContractFunction("store()") == out);
}

BOOST_AUTO_TEST_CASE(struct_constructor_nested)
{
    char const* sourceCode = R"(
        contract C {
            struct X { uint x1; uint x2; }
            struct S { uint s1; uint[3] s2; X s3; }
            S s;
            function C() {
                uint[3] memory s2;
                s2[1] = 9;
                s = S(1, s2, X(4, 5));
            }
            function get() returns (uint s1, uint[3] s2, uint x1, uint x2)
            {
                s1 = s.s1;
                s2 = s.s2;
                x1 = s.s3.x1;
                x2 = s.s3.x2;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");

    auto out = encodeArgs(u256(1), u256(0), u256(9), u256(0), u256(4), u256(5));
    BOOST_CHECK(callContractFunction("get()") == out);
}

BOOST_AUTO_TEST_CASE(struct_named_constructor)
{
    char const* sourceCode = R"(
        contract C {
            struct S { uint a; bool x; }
            S public s;
            function C() {
                s = S({a: 1, x: true});
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");

    BOOST_CHECK(callContractFunction("s()") == encodeArgs(u256(1), true));
}

BOOST_AUTO_TEST_CASE(literal_strings)
{
    char const* sourceCode = R"(
        contract Test {
            string public long;
            string public medium;
            string public short;
            string public empty;
            function f() returns (string) {
                long = "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
                medium = "01234567890123456789012345678901234567890123456789012345678901234567890123456789";
                short = "123";
                empty = "";
                return "Hello, World!";
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    string longStr = "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
    string medium = "01234567890123456789012345678901234567890123456789012345678901234567890123456789";
    string shortStr = "123";
    string hello = "Hello, World!";

    BOOST_CHECK(callContractFunction("f()") == encodeDyn(hello));
    BOOST_CHECK(callContractFunction("long()") == encodeDyn(longStr));
    BOOST_CHECK(callContractFunction("medium()") == encodeDyn(medium));
    BOOST_CHECK(callContractFunction("short()") == encodeDyn(shortStr));
    BOOST_CHECK(callContractFunction("empty()") == encodeDyn(string()));
}

BOOST_AUTO_TEST_CASE(initialise_string_constant)
{
    char const* sourceCode = R"(
        contract Test {
            string public short = "abcdef";
            string public long = "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    string longStr = "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
    string shortStr = "abcdef";

    BOOST_CHECK(callContractFunction("long()") == encodeDyn(longStr));
    BOOST_CHECK(callContractFunction("short()") == encodeDyn(shortStr));
}

BOOST_AUTO_TEST_CASE(memory_structs_with_mappings)
{
    char const* sourceCode = R"(
        contract Test {
            struct S { uint8 a; mapping(uint => uint) b; uint8 c; }
            S s;
            function f() returns (uint) {
                S memory x;
                if (x.a != 0 || x.c != 0) return 1;
                x.a = 4; x.c = 5;
                s = x;
                if (s.a != 4 || s.c != 5) return 2;
                x = S(2, 3);
                if (x.a != 2 || x.c != 3) return 3;
                x = s;
                if (s.a != 4 || s.c != 5) return 4;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(string_bytes_conversion)
{
    char const* sourceCode = R"(
        contract Test {
            string s;
            bytes b;
            function f(string _s, uint n) returns (byte) {
                b = bytes(_s);
                s = string(b);
                return bytes(s)[n];
            }
            function l() returns (uint) { return bytes(s).length; }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    BOOST_CHECK(callContractFunction(
        "f(string,uint256)",
        u256(0x40),
        u256(2),
        u256(6),
        string("abcdef")
    ) == encodeArgs("c"));
    BOOST_CHECK(callContractFunction("l()") == encodeArgs(u256(6)));
}

BOOST_AUTO_TEST_CASE(string_as_mapping_key)
{
    char const* sourceCode = R"(
        contract Test {
            mapping(string => uint) data;
            function set(string _s, uint _v) { data[_s] = _v; }
            function get(string _s) returns (uint) { return data[_s]; }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    vector<string> strings{
        "Hello, World!",
        "Hello,                            World!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1111",
        "",
        "1"
    };
    for (unsigned i = 0; i < strings.size(); i++)
        BOOST_CHECK(callContractFunction(
            "set(string,uint256)",
            u256(0x40),
            u256(7 + i),
            u256(strings[i].size()),
            strings[i]
        ) == encodeArgs());
    for (unsigned i = 0; i < strings.size(); i++)
        BOOST_CHECK(callContractFunction(
            "get(string)",
            u256(0x20),
            u256(strings[i].size()),
            strings[i]
        ) == encodeArgs(u256(7 + i)));
}

BOOST_AUTO_TEST_CASE(accessor_for_state_variable)
{
    char const* sourceCode = R"(
        contract Lotto{
            uint public ticketPrice = 500;
        })";

        compileAndRun(sourceCode);
        BOOST_CHECK(callContractFunction("ticketPrice()") == encodeArgs(u256(500)));
}

BOOST_AUTO_TEST_CASE(accessor_for_const_state_variable)
{
    char const* sourceCode = R"(
        contract Lotto{
            uint constant public ticketPrice = 555;
        })";

        compileAndRun(sourceCode);
        BOOST_CHECK(callContractFunction("ticketPrice()") == encodeArgs(u256(555)));
}

BOOST_AUTO_TEST_CASE(state_variable_under_contract_name)
{
    char const* text = R"(
        contract Scope {
            uint stateVar = 42;

            function getStateVar() constant returns (uint stateVar) {
                stateVar = Scope.stateVar;
            }
        }
    )";
    compileAndRun(text);
    BOOST_CHECK(callContractFunction("getStateVar()") == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(state_variable_local_variable_mixture)
{
    char const* sourceCode = R"(
        contract A {
            uint x = 1;
            uint y = 2;
            function a() returns (uint x) {
                x = A.y;
            }
        }
    )";

    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(inherited_function) {
    char const* sourceCode = R"(
        contract A { function f() internal returns (uint) { return 1; } }
        contract B is A {
            function f() internal returns (uint) { return 2; }
            function g() returns (uint) {
                return A.f();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "B");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(inherited_function_from_a_library) {
    char const* sourceCode = R"(
        library A { function f() internal returns (uint) { return 1; } }
        contract B {
            function f() internal returns (uint) { return 2; }
            function g() returns (uint) {
                return A.f();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "B");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(inherited_constant_state_var)
{
    char const* sourceCode = R"(
        contract A {
            uint constant x = 7;
        }
        contract B is A {
            function f() returns (uint) {
                return A.x;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "B");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(multiple_inherited_state_vars)
{
    char const* sourceCode = R"(
        contract A {
            uint x = 7;
        }
        contract B {
            uint x = 9;
        }
        contract C is A, B {
            function a() returns (uint) {
                return A.x;
            }
            function b() returns (uint) {
                return B.x;
            }
            function a_set(uint _x) returns (uint) {
                A.x = _x;
                return 1;
            }
            function b_set(uint _x) returns (uint) {
                B.x = _x;
                return 1;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("b()") == encodeArgs(u256(9)));
    BOOST_CHECK(callContractFunction("a_set(uint256)", u256(1)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("b_set(uint256)", u256(3)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("b()") == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(constant_string_literal)
{
    char const* sourceCode = R"(
        contract Test {
            bytes32 constant public b = "abcdefghijklmnopq";
            string constant public x = "abefghijklmnopqabcdefghijklmnopqabcdefghijklmnopqabca";

            function Test() {
                var xx = x;
                var bb = b;
            }
            function getB() returns (bytes32) { return b; }
            function getX() returns (string) { return x; }
            function getX2() returns (string r) { r = x; }
            function unused() returns (uint) {
                "unusedunusedunusedunusedunusedunusedunusedunusedunusedunusedunusedunused";
                return 2;
            }
        }
    )";

    compileAndRun(sourceCode);
    string longStr = "abefghijklmnopqabcdefghijklmnopqabcdefghijklmnopqabca";
    string shortStr = "abcdefghijklmnopq";
    BOOST_CHECK(callContractFunction("b()") == encodeArgs(shortStr));
    BOOST_CHECK(callContractFunction("x()") == encodeDyn(longStr));
    BOOST_CHECK(callContractFunction("getB()") == encodeArgs(shortStr));
    BOOST_CHECK(callContractFunction("getX()") == encodeDyn(longStr));
    BOOST_CHECK(callContractFunction("getX2()") == encodeDyn(longStr));
    BOOST_CHECK(callContractFunction("unused()") == encodeArgs(2));
}

BOOST_AUTO_TEST_CASE(storage_string_as_mapping_key_without_variable)
{
    char const* sourceCode = R"(
        contract Test {
            mapping(string => uint) data;
            function f() returns (uint) {
                data["abc"] = 2;
                return data["abc"];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(library_call)
{
    char const* sourceCode = R"(
        library Lib { function m(uint x, uint y) returns (uint) { return x * y; } }
        contract Test {
            function f(uint x) returns (uint) {
                return Lib.m(x, 9);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Lib");
    compileAndRun(sourceCode, 0, "Test", bytes(), map<string, Address>{{"Lib", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(33)) == encodeArgs(u256(33) * 9));
}

BOOST_AUTO_TEST_CASE(library_stray_values)
{
    char const* sourceCode = R"(
        library Lib { function m(uint x, uint y) returns (uint) { return x * y; } }
        contract Test {
            function f(uint x) returns (uint) {
                Lib;
                Lib.m;
                return x + 9;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Lib");
    compileAndRun(sourceCode, 0, "Test", bytes(), map<string, Address>{{"Lib", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(33)) == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(cross_contract_types)
{
    char const* sourceCode = R"(
        contract Lib { struct S {uint a; uint b; } }
        contract Test {
            function f() returns (uint r) {
                var x = Lib.S({a: 2, b: 3});
                r = x.b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Test");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(simple_throw)
{
    char const* sourceCode = R"(
        contract Test {
            function f(uint x) returns (uint) {
                if (x > 10)
                    return x + 10;
                else
                    throw;
                return 2;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(11)) == encodeArgs(u256(21)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(strings_in_struct)
{
    char const* sourceCode = R"(
        contract buggystruct {
            Buggy public bug;

            struct Buggy {
                uint first;
                uint second;
                uint third;
                string last;
            }

            function buggystruct(){
                bug = Buggy(10, 20, 30, "asdfghjkl");
            }
            function getFirst() returns (uint)
            {
                return bug.first;
            }
            function getSecond() returns (uint)
            {
                return bug.second;
            }
            function getThird() returns (uint)
            {
                return bug.third;
            }
            function getLast() returns (string)
            {
                return bug.last;
            }
        }
        )";
    compileAndRun(sourceCode);
    string s = "asdfghjkl";
    BOOST_CHECK(callContractFunction("getFirst()") == encodeArgs(u256(10)));
    BOOST_CHECK(callContractFunction("getSecond()") == encodeArgs(u256(20)));
    BOOST_CHECK(callContractFunction("getThird()") == encodeArgs(u256(30)));
    BOOST_CHECK(callContractFunction("getLast()") == encodeDyn(s));
}

BOOST_AUTO_TEST_CASE(fixed_arrays_as_return_type)
{
    char const* sourceCode = R"(
        contract A {
            function f(uint16 input) constant returns (uint16[5] arr)
            {
                arr[0] = input;
                arr[1] = ++input;
                arr[2] = ++input;
                arr[3] = ++input;
                arr[4] = ++input;
            }
        }
        contract B {
            function f() returns (uint16[5] res, uint16[5] res2)
            {
                var a = new A();
                res = a.f(2);
                res2 = a.f(1000);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "B");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(
        u256(2), u256(3), u256(4), u256(5), u256(6), // first return argument
        u256(1000), u256(1001), u256(1002), u256(1003), u256(1004)) // second return argument
    );
}

BOOST_AUTO_TEST_CASE(internal_types_in_library)
{
    char const* sourceCode = R"(
        library Lib {
            function find(uint16[] storage _haystack, uint16 _needle) constant returns (uint)
            {
                for (uint i = 0; i < _haystack.length; ++i)
                    if (_haystack[i] == _needle)
                        return i;
                return uint(-1);
            }
        }
        contract Test {
            mapping(string => uint16[]) data;
            function f() returns (uint a, uint b)
            {
                data["abc"].length = 20;
                data["abc"][4] = 9;
                data["abc"][17] = 3;
                a = Lib.find(data["abc"], 9);
                b = Lib.find(data["abc"], 3);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Lib");
    compileAndRun(sourceCode, 0, "Test", bytes(), map<string, Address>{{"Lib", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(4), u256(17)));
}

BOOST_AUTO_TEST_CASE(using_library_structs)
{
    char const* sourceCode = R"(
        library Lib {
            struct Data { uint a; uint[] b; }
            function set(Data storage _s)
            {
                _s.a = 7;
                _s.b.length = 20;
                _s.b[19] = 8;
            }
        }
        contract Test {
            mapping(string => Lib.Data) data;
            function f() returns (uint a, uint b)
            {
                Lib.set(data["abc"]);
                a = data["abc"].a;
                b = data["abc"].b[19];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Lib");
    compileAndRun(sourceCode, 0, "Test", bytes(), map<string, Address>{{"Lib", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7), u256(8)));
}

BOOST_AUTO_TEST_CASE(library_struct_as_an_expression)
{
    char const* sourceCode = R"(
        library Arst {
            struct Foo {
                int Things;
                int Stuff;
            }
        }

        contract Tsra {
            function f() returns(uint) {
                Arst.Foo;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Tsra");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(library_enum_as_an_expression)
{
    char const* sourceCode = R"(
        library Arst {
            enum Foo {
                Things,
                Stuff
            }
        }

        contract Tsra {
            function f() returns(uint) {
                Arst.Foo;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "Tsra");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(short_strings)
{
    // This test verifies that the byte array encoding that combines length and data works
    // correctly.
    char const* sourceCode = R"(
        contract A {
            bytes public data1 = "123";
            bytes data2;
            function lengthChange() returns (uint)
            {
                // store constant in short and long string
                data1 = "123";
                if (!equal(data1, "123")) return 1;
                data2 = "12345678901234567890123456789012345678901234567890a";
                if (data2[17] != "8") return 3;
                if (data2.length != 51) return 4;
                if (data2[data2.length - 1] != "a") return 5;
                // change length: short -> short
                data1.length = 5;
                if (data1.length != 5) return 6;
                data1[4] = "4";
                if (data1[0] != "1") return 7;
                if (data1[4] != "4") return 8;
                // change length: short -> long
                data1.length = 80;
                if (data1.length != 80) return 9;
                data1.length = 70;
                if (data1.length != 70) return 9;
                if (data1[0] != "1") return 10;
                if (data1[4] != "4") return 11;
                for (uint i = 0; i < data1.length; i ++)
                    data1[i] = byte(i * 3);
                if (data1[4] != 4 * 3) return 12;
                if (data1[67] != 67 * 3) return 13;
                // change length: long -> short
                data1.length = 22;
                if (data1.length != 22) return 14;
                if (data1[21] != byte(21 * 3)) return 15;
                if (data1[2] != 2 * 3) return 16;
                // change length: short -> shorter
                data1.length = 19;
                if (data1.length != 19) return 17;
                if (data1[7] != byte(7 * 3)) return 18;
                // and now again to original size
                data1.length = 22;
                if (data1.length != 22) return 19;
                if (data1[21] != 0) return 20;
                data1.length = 0;
                data2.length = 0;
            }
            function copy() returns (uint) {
                bytes memory x = "123";
                bytes memory y = "012345678901234567890123456789012345678901234567890123456789";
                bytes memory z = "1234567";
                data1 = x;
                data2 = y;
                if (!equal(data1, x)) return 1;
                if (!equal(data2, y)) return 2;
                // lengthen
                data1 = y;
                if (!equal(data1, y)) return 3;
                // shorten
                data1 = x;
                if (!equal(data1, x)) return 4;
                // change while keeping short
                data1 = z;
                if (!equal(data1, z)) return 5;
                // copy storage -> storage
                data1 = x;
                data2 = y;
                // lengthen
                data1 = data2;
                if (!equal(data1, y)) return 6;
                // shorten
                data1 = x;
                data2 = data1;
                if (!equal(data2, x)) return 7;
                bytes memory c = data2;
                data1 = c;
                if (!equal(data1, x)) return 8;
                data1 = "";
                data2 = "";
            }
            function deleteElements() returns (uint) {
                data1 = "01234";
                delete data1[2];
                if (data1[2] != 0) return 1;
                if (data1[0] != "0") return 2;
                if (data1[3] != "3") return 3;
                delete data1;
                if (data1.length != 0) return 4;
            }

            function equal(bytes storage a, bytes memory b) internal returns (bool) {
                if (a.length != b.length) return false;
                for (uint i = 0; i < a.length; ++i) if (a[i] != b[i]) return false;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "A");
    BOOST_CHECK(callContractFunction("data1()") == encodeDyn(string("123")));
    BOOST_CHECK(callContractFunction("lengthChange()") == encodeArgs(u256(0)));
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("deleteElements()") == encodeArgs(u256(0)));
    BOOST_CHECK(storageEmpty(m_contractAddress));
    BOOST_CHECK(callContractFunction("copy()") == encodeArgs(u256(0)));
    BOOST_CHECK(storageEmpty(m_contractAddress));
}

BOOST_AUTO_TEST_CASE(calldata_offset)
{
    // This tests a specific bug that was caused by not using the correct memory offset in the
    // calldata unpacker.
    char const* sourceCode = R"(
        contract CB
        {
            address[] _arr;
            string public last = "nd";
            function CB(address[] guardians)
            {
                _arr = guardians;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "CB", encodeArgs(u256(0x20)));
    BOOST_CHECK(callContractFunction("last()", encodeArgs()) == encodeDyn(string("nd")));
}

BOOST_AUTO_TEST_CASE(contract_binary_dependencies)
{
    char const* sourceCode = R"(
        contract A { function f() { new B(); } }
        contract B { function f() { } }
        contract C { function f() { new B(); } }
    )";
    compileAndRun(sourceCode);
}

BOOST_AUTO_TEST_CASE(reject_ether_sent_to_library)
{
    char const* sourceCode = R"(
        library lib {}
        contract c {
            function c() payable {}
            function f(address x) returns (bool) {
                return x.send(1);
            }
            function () payable {}
        }
    )";
    compileAndRun(sourceCode, 0, "lib");
    Address libraryAddress = m_contractAddress;
    compileAndRun(sourceCode, 10, "c");
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 10);
    BOOST_CHECK_EQUAL(balanceAt(libraryAddress), 0);
    BOOST_CHECK(callContractFunction("f(address)", encodeArgs(u160(libraryAddress))) == encodeArgs(false));
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 10);
    BOOST_CHECK_EQUAL(balanceAt(libraryAddress), 0);
    BOOST_CHECK(callContractFunction("f(address)", encodeArgs(u160(m_contractAddress))) == encodeArgs(true));
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 10);
    BOOST_CHECK_EQUAL(balanceAt(libraryAddress), 0);
}

BOOST_AUTO_TEST_CASE(multi_variable_declaration)
{
    char const* sourceCode = R"(
        contract C {
            function g() returns (uint a, uint b, uint c) {
                a = 1; b = 2; c = 3;
            }
            function f() returns (bool) {
                var (x, y, z) = g();
                if (x != 1 || y != 2 || z != 3) return false;
                var (, a,) = g();
                if (a != 2) return false;
                var (b,) = g();
                if (b != 1) return false;
                var (,c) = g();
                if (c != 3) return false;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()", encodeArgs()) == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(tuples)
{
    char const* sourceCode = R"(
        contract C {
            uint[] data;
            function g() internal returns (uint a, uint b, uint[] storage c) {
                return (1, 2, data);
            }
            function h() external returns (uint a, uint b) {
                return (5, 6);
            }
            function f() returns (uint) {
                data.length = 1;
                data[0] = 3;
                uint a; uint b;
                (a, b) = this.h();
                if (a != 5 || b != 6) return 1;
                uint[] storage c;
                (a, b, c) = g();
                if (a != 1 || b != 2 || c[0] != 3) return 2;
                (a, b) = (b, a);
                if (a != 2 || b != 1) return 3;
                (a, , b, ) = (8, 9, 10, 11, 12);
                if (a != 8 || b != 10) return 4;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(string_tuples)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (string, uint) {
                return ("abc", 8);
            }
            function g() returns (string, string) {
                return (h(), "def");
            }
            function h() returns (string) {
                return ("abc",);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x40), u256(8), u256(3), string("abc")));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(0x40), u256(0x80), u256(3), string("abc"), u256(3), string("def")));
}

BOOST_AUTO_TEST_CASE(decayed_tuple)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                uint x = 1;
                (x) = 2;
                return x;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(inline_tuple_with_rational_numbers)
{
    char const* sourceCode = R"(
        contract c {
            function f() returns (int8) {
                int8[5] memory foo3 = [int8(1), -1, 0, 0, 0];
                return foo3[0];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(destructuring_assignment)
{
    char const* sourceCode = R"(
        contract C {
            uint x = 7;
            bytes data;
            uint[] y;
            uint[] arrayData;
            function returnsArray() returns (uint[]) {
                arrayData.length = 9;
                arrayData[2] = 5;
                arrayData[7] = 4;
                return arrayData;
            }
            function f(bytes s) returns (uint) {
                uint loc;
                uint[] memory memArray;
                (loc, x, y, data, arrayData[3]) = (8, 4, returnsArray(), s, 2);
                if (loc != 8) return 1;
                if (x != 4) return 2;
                if (y.length != 9) return 3;
                if (y[2] != 5) return 4;
                if (y[7] != 4) return 5;
                if (data.length != s.length) return 6;
                if (data[3] != s[3]) return 7;
                if (arrayData[3] != 2) return 8;
                (memArray, loc) = (arrayData, 3);
                if (loc != 3) return 9;
                if (memArray.length != arrayData.length) return 10;
                bytes memory memBytes;
                (x, memBytes, y[2], ) = (456, s, 789, 101112, 131415);
                if (x != 456 || memBytes.length != s.length || y[2] != 789) return 11;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(bytes)", u256(0x20), u256(5), string("abcde")) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(destructuring_assignment_wildcard)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                uint a;
                uint b;
                uint c;
                (a,) = (1,);
                if (a != 1) return 1;
                (,b) = (2,3,4);
                if (b != 4) return 2;
                (, c,) = (5,6,7);
                if (c != 6) return 3;
                (a, b,) = (11, 12, 13);
                if (a != 11 || b != 12) return 4;
                (, a, b) = (11, 12, 13);
                if (a != 12 || b != 13) return 5;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(lone_struct_array_type)
{
    char const* sourceCode = R"(
        contract C {
            struct s { uint a; uint b;}
            function f() returns (uint) {
                s[7][]; // This is only the type, should not have any effect
                return 3;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(create_memory_array)
{
    char const* sourceCode = R"(
        contract C {
            struct S { uint[2] a; bytes b; }
            function f() returns (byte, uint, uint, byte) {
                var x = new bytes(200);
                x[199] = 'A';
                var y = new uint[2][](300);
                y[203][1] = 8;
                var z = new S[](180);
                z[170].a[1] = 4;
                z[170].b = new bytes(102);
                z[170].b[99] = 'B';
                return (x[199], y[203][1], z[170].a[1], z[170].b[99]);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(string("A"), u256(8), u256(4), string("B")));
}

BOOST_AUTO_TEST_CASE(memory_arrays_of_various_sizes)
{
    // Computes binomial coefficients the chinese way
    char const* sourceCode = R"(
        contract C {
            function f(uint n, uint k) returns (uint) {
                uint[][] memory rows = new uint[][](n + 1);
                for (uint i = 1; i <= n; i++) {
                    rows[i] = new uint[](i);
                    rows[i][0] = rows[i][rows[i].length - 1] = 1;
                    for (uint j = 1; j < i - 1; j++)
                        rows[i][j] = rows[i - 1][j - 1] + rows[i - 1][j];
                }
                return rows[n][k - 1];
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", encodeArgs(u256(3), u256(1))) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", encodeArgs(u256(9), u256(5))) == encodeArgs(u256(70)));
}

BOOST_AUTO_TEST_CASE(memory_overwrite)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (bytes x) {
                x = "12345";
                x[3] = 0x61;
                x[0] = 0x62;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeDyn(string("b23a5")));
}

BOOST_AUTO_TEST_CASE(addmod_mulmod)
{
    char const* sourceCode = R"(
        contract C {
            function test() returns (uint) {
                // Note that this only works because computation on literals is done using
                // unbounded integers.
                if ((2**255 + 2**255) % 7 != addmod(2**255, 2**255, 7))
                    return 1;
                if ((2**255 + 2**255) % 7 != addmod(2**255, 2**255, 7))
                    return 2;
                return 0;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(divisiod_by_zero)
{
    char const* sourceCode = R"(
        contract C {
            function div(uint a, uint b) returns (uint) {
                return a / b;
            }
            function mod(uint a, uint b) returns (uint) {
                return a % b;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("div(uint256,uint256)", 7, 2) == encodeArgs(u256(3)));
    // throws
    BOOST_CHECK(callContractFunction("div(uint256,uint256)", 7, 0) == encodeArgs());
    BOOST_CHECK(callContractFunction("mod(uint256,uint256)", 7, 2) == encodeArgs(u256(1)));
    // throws
    BOOST_CHECK(callContractFunction("mod(uint256,uint256)", 7, 0) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(string_allocation_bug)
{
    char const* sourceCode = R"(
        contract Sample
        {
            struct s { uint16 x; uint16 y; string a; string b;}
            s[2] public p;
            function Sample() {
                s memory m;
                m.x = 0xbbbb;
                m.y = 0xcccc;
                m.a = "hello";
                m.b = "world";
                p[0] = m;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("p(uint256)") == encodeArgs(
        u256(0xbbbb),
        u256(0xcccc),
        u256(0x80),
        u256(0xc0),
        u256(5),
        string("hello"),
        u256(5),
        string("world")
    ));
}

BOOST_AUTO_TEST_CASE(using_for_function_on_int)
{
    char const* sourceCode = R"(
        library D { function double(uint self) returns (uint) { return 2*self; } }
        contract C {
            using D for uint;
            function f(uint a) returns (uint) {
                return a.double();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(9)) == encodeArgs(u256(2 * 9)));
}

BOOST_AUTO_TEST_CASE(using_for_function_on_struct)
{
    char const* sourceCode = R"(
        library D { struct s { uint a; } function mul(s storage self, uint x) returns (uint) { return self.a *= x; } }
        contract C {
            using D for D.s;
            D.s public x;
            function f(uint a) returns (uint) {
                x.a = 3;
                return x.mul(a);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(7)) == encodeArgs(u256(3 * 7)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(3 * 7)));
}

BOOST_AUTO_TEST_CASE(using_for_overload)
{
    char const* sourceCode = R"(
        library D {
            struct s { uint a; }
            function mul(s storage self, uint x) returns (uint) { return self.a *= x; }
            function mul(s storage self, bytes32 x) returns (bytes32) { }
        }
        contract C {
            using D for D.s;
            D.s public x;
            function f(uint a) returns (uint) {
                x.a = 6;
                return x.mul(a);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(7)) == encodeArgs(u256(6 * 7)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(6 * 7)));
}

BOOST_AUTO_TEST_CASE(using_for_by_name)
{
    char const* sourceCode = R"(
        library D { struct s { uint a; } function mul(s storage self, uint x) returns (uint) { return self.a *= x; } }
        contract C {
            using D for D.s;
            D.s public x;
            function f(uint a) returns (uint) {
                x.a = 6;
                return x.mul({x: a});
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(7)) == encodeArgs(u256(6 * 7)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(6 * 7)));
}

BOOST_AUTO_TEST_CASE(bound_function_in_var)
{
    char const* sourceCode = R"(
        library D { struct s { uint a; } function mul(s storage self, uint x) returns (uint) { return self.a *= x; } }
        contract C {
            using D for D.s;
            D.s public x;
            function f(uint a) returns (uint) {
                x.a = 6;
                var g = x.mul;
                return g({x: a});
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f(uint256)", u256(7)) == encodeArgs(u256(6 * 7)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(6 * 7)));
}

BOOST_AUTO_TEST_CASE(bound_function_to_string)
{
    char const* sourceCode = R"(
        library D { function length(string memory self) returns (uint) { return bytes(self).length; } }
        contract C {
            using D for string;
            string x;
            function f() returns (uint) {
                x = "abc";
                return x.length();
            }
            function g() returns (uint) {
                string memory s = "abc";
                return s.length();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "D");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"D", m_contractAddress}});
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(3)));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(inline_array_storage_to_memory_conversion_strings)
{
    char const* sourceCode = R"(
        contract C {
            string s = "doh";
            function f() returns (string, string) {
                string memory t = "ray";
                string[3] memory x = [s, t, "mi"];
                return (x[1], x[2]);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x40), u256(0x80), u256(3), string("ray"), u256(2), string("mi")));
}

BOOST_AUTO_TEST_CASE(inline_array_strings_from_document)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint i) returns (string) {
                string[4] memory x = ["This", "is", "an", "array"];
                return (x[i]);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0)) == encodeArgs(u256(0x20), u256(4), string("This")));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs(u256(0x20), u256(2), string("is")));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(2)) == encodeArgs(u256(0x20), u256(2), string("an")));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(u256(0x20), u256(5), string("array")));
}

BOOST_AUTO_TEST_CASE(inline_array_storage_to_memory_conversion_ints)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint x, uint y) {
                x = 3;
                y = 6;
                uint[2] memory z = [x, y];
                return (z[0], z[1]);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(3, 6));
}

BOOST_AUTO_TEST_CASE(inline_array_index_access_ints)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                return ([1, 2, 3, 4][2]);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(3));
}

BOOST_AUTO_TEST_CASE(inline_array_index_access_strings)
{
    char const* sourceCode = R"(
        contract C {
            string public tester;
            function f() returns (string) {
                return (["abc", "def", "g"][0]);
            }
            function test() {
                tester = f();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs());
    BOOST_CHECK(callContractFunction("tester()") == encodeArgs(u256(0x20), u256(3), string("abc")));
}

BOOST_AUTO_TEST_CASE(inline_array_return)
{
    char const* sourceCode = R"(
        contract C {
            uint8[] tester; 
            function f() returns (uint8[5]) {
                return ([1,2,3,4,5]);
            }
            function test() returns (uint8, uint8, uint8, uint8, uint8) {
                tester = f(); 
                return (tester[0], tester[1], tester[2], tester[3], tester[4]);
            }
            
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(1, 2, 3, 4, 5));
}

BOOST_AUTO_TEST_CASE(inline_array_singleton)
{
    // This caused a failure since the type was not converted to its mobile type.
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                return [4][0];
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(4)));
}

BOOST_AUTO_TEST_CASE(inline_long_string_return)
{
        char const* sourceCode = R"(
        contract C { 
            function f() returns (string) {
                return (["somethingShort", "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"][1]);
            }
        }
    )";
    
    string strLong = "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678900123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789001234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeDyn(strLong));
}

BOOST_AUTO_TEST_CASE(fixed_bytes_index_access)
{
    char const* sourceCode = R"(
        contract C {
            bytes16[] public data;
            function f(bytes32 x) returns (byte) {
                return x[2];
            }
            function g(bytes32 x) returns (uint) {
                data = [x[0], x[1], x[2]];
                data[0] = "12345";
                return uint(data[0][4]);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(bytes32)", "789") == encodeArgs("9"));
    BOOST_CHECK(callContractFunction("g(bytes32)", "789") == encodeArgs(u256(int('5'))));
    BOOST_CHECK(callContractFunction("data(uint256)", u256(1)) == encodeArgs("8"));
}

BOOST_AUTO_TEST_CASE(fixed_bytes_length_access)
{
    char const* sourceCode = R"(
        contract C {
            byte a;
            function f(bytes32 x) returns (uint, uint, uint) {
                return (x.length, bytes16(2).length, a.length + 7);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(bytes32)", "789") == encodeArgs(u256(32), u256(16), u256(8)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_write_to_stack)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint r, bytes32 r2) {
                assembly { r := 7 r2 := "abcdef" }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7), string("abcdef")));
}

BOOST_AUTO_TEST_CASE(inline_assembly_read_and_write_stack)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint r) {
                for (uint x = 0; x < 10; ++x)
                    assembly { r := add(r, x) }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(45)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_memory_access)
{
    char const* sourceCode = R"(
        contract C {
            function test() returns (bytes) {
                bytes memory x = new bytes(5);
                for (uint i = 0; i < x.length; ++i)
                    x[i] = byte(i + 1);
                assembly { mstore(add(x, 32), "12345678901234567890123456789012") }
                return x;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(0x20), u256(5), string("12345")));
}

BOOST_AUTO_TEST_CASE(inline_assembly_storage_access)
{
    char const* sourceCode = R"(
        contract C {
            uint16 x;
            uint16 public y;
            uint public z;
            function f() returns (bool) {
                uint off1;
                uint off2;
                assembly {
                    sstore(z_slot, 7)
                    off1 := z_offset
                    off2 := y_offset
                }
                assert(off1 == 0);
                assert(off2 == 2);
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("z()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_storage_access_inside_function)
{
    char const* sourceCode = R"(
        contract C {
            uint16 x;
            uint16 public y;
            uint public z;
            function f() returns (bool) {
                uint off1;
                uint off2;
                assembly {
                    function f() -> o1 {
                        sstore(z_slot, 7)
                        o1 := y_offset
                    }
                    off2 := f()
                }
                assert(off2 == 2);
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("z()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_storage_access_via_pointer)
{
    char const* sourceCode = R"(
        contract C {
            struct Data { uint contents; }
            uint public separator;
            Data public a;
            uint public separator2;
            function f() returns (bool) {
                Data x = a;
                uint off;
                assembly {
                    sstore(x_slot, 7)
                    off := x_offset
                }
                assert(off == 0);
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("separator()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("separator2()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_jumps)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assembly {
                    let n := calldataload(4)
                    let a := 1
                    let b := a
                loop:
                    jumpi(loopend, eq(n, 0))
                    a add swap1
                    n := sub(n, 1)
                    jump(loop)
                loopend:
                    mstore(0, a)
                    return(0, 0x20)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()", u256(5)) == encodeArgs(u256(13)));
    BOOST_CHECK(callContractFunction("f()", u256(7)) == encodeArgs(u256(34)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_function_access)
{
    char const* sourceCode = R"(
        contract C {
            uint public x;
            function g(uint y) { x = 2 * y; assembly { stop } }
            function f(uint _x) {
                assembly {
                    _x
                    jump(g)
                    pop
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", u256(5)) == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(10)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_function_call)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assembly {
                    function asmfun(a, b, c) -> x, y, z {
                        x := a
                        y := b
                        z := 7
                    }
                    let a1, b1, c1 := asmfun(1, 2, 3)
                    mstore(0x00, a1)
                    mstore(0x20, b1)
                    mstore(0x40, c1)
                    return(0, 0x60)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1), u256(2), u256(7)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_function_call2)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assembly {
                    let d := 0x10
                    function asmfun(a, b, c) -> x, y, z {
                        x := a
                        y := b
                        z := 7
                    }
                    let a1, b1, c1 := asmfun(1, 2, 3)
                    mstore(0x00, a1)
                    mstore(0x20, b1)
                    mstore(0x40, c1)
                    mstore(0x60, d)
                    return(0, 0x80)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1), u256(2), u256(7), u256(0x10)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_embedded_function_call)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assembly {
                    let d := 0x10
                    function asmfun(a, b, c) -> x, y, z {
                        x := g(a)
                        function g(r) -> s { s := mul(r, r) }
                        y := g(b)
                        z := 7
                    }
                    let a1, b1, c1 := asmfun(1, 2, 3)
                    mstore(0x00, a1)
                    mstore(0x20, b1)
                    mstore(0x40, c1)
                    mstore(0x60, d)
                    return(0, 0x80)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1), u256(4), u256(7), u256(0x10)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_switch)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a) returns (uint b) {
                assembly {
                    switch a
                    case 1 { b := 8 }
                    case 2 { b := 9 }
                    default { b := 2 }
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0)) == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(2)) == encodeArgs(u256(9)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_recursion)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a) returns (uint b) {
                assembly {
                    function fac(n) -> nf {
                        switch n
                        case 0 { nf := 1 }
                        case 1 { nf := 1 }
                        default { nf := mul(n, fac(sub(n, 1))) }
                    }
                    b := fac(a)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(2)) == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(u256(6)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(4)) == encodeArgs(u256(24)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_for)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a) returns (uint b) {
                assembly {
                    function fac(n) -> nf {
                        nf := 1
                        for { let i := n } gt(i, 0) { i := sub(i, 1) } {
                            nf := mul(nf, i)
                        }
                    }
                    b := fac(a)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(2)) == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(3)) == encodeArgs(u256(6)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(4)) == encodeArgs(u256(24)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_for2)
{
    char const* sourceCode = R"(
        contract C {
            uint st;
            function f(uint a) returns (uint b, uint c, uint d) {
                st = 0;
                assembly {
                    function sideeffect(r) -> x { sstore(0, add(sload(0), r)) x := 1}
                    for { let i := a } eq(i, sideeffect(2)) { d := add(d, 3) } {
                        b := i
                        i := 0
                    }
                }
                c = st;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0)) == encodeArgs(u256(0), u256(2), u256(0)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(1)) == encodeArgs(u256(1), u256(4), u256(3)));
    BOOST_CHECK(callContractFunction("f(uint256)", u256(2)) == encodeArgs(u256(0), u256(2), u256(0)));
}

BOOST_AUTO_TEST_CASE(index_access_with_type_conversion)
{
    // Test for a bug where higher order bits cleanup was not done for array index access.
    char const* sourceCode = R"(
            contract C {
                function f(uint x) returns (uint[256] r){
                    r[uint8(x)] = 2;
                }
            }
    )";
    compileAndRun(sourceCode, 0, "C");
    // neither of the two should throw due to out-of-bounds access
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0x01)).size() == 256 * 32);
    BOOST_CHECK(callContractFunction("f(uint256)", u256(0x101)).size() == 256 * 32);
}

BOOST_AUTO_TEST_CASE(delete_on_array_of_structs)
{
    // Test for a bug where we did not increment the counter properly while deleting a dynamic array.
    char const* sourceCode = R"(
        contract C {
            struct S { uint x; uint[] y; }
            S[] data;
            function f() returns (bool) {
                data.length = 2;
                data[0].x = 2**200;
                data[1].x = 2**200;
                delete data;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    // This code interprets x as an array length and thus will go out of gas.
    // neither of the two should throw due to out-of-bounds access
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));

}

BOOST_AUTO_TEST_CASE(internal_library_function)
{
    // tests that internal library functions can be called from outside
    // and retain the same memory context (i.e. are pulled into the caller's code)
    char const* sourceCode = R"(
        library L {
            function f(uint[] _data) internal {
                _data[3] = 2;
            }
        }
        contract C {
            function f() returns (uint) {
                uint[] memory x = new uint[](7);
                x[3] = 8;
                L.f(x);
                return x[3];
            }
        }
    )";
    // This has to work without linking, because everything will be inlined.
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(internal_library_function_calling_private)
{
    // tests that internal library functions that are called from outside and that
    // themselves call private functions are still able to (i.e. the private function
    // also has to be pulled into the caller's code)
    char const* sourceCode = R"(
        library L {
            function g(uint[] _data) private {
                _data[3] = 2;
            }
            function f(uint[] _data) internal {
                g(_data);
            }
        }
        contract C {
            function f() returns (uint) {
                uint[] memory x = new uint[](7);
                x[3] = 8;
                L.f(x);
                return x[3];
            }
        }
    )";
    // This has to work without linking, because everything will be inlined.
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(internal_library_function_bound)
{
    char const* sourceCode = R"(
        library L {
            struct S { uint[] data; }
            function f(S _s) internal {
                _s.data[3] = 2;
            }
        }
        contract C {
            using L for L.S;
            function f() returns (uint) {
                L.S memory x;
                x.data = new uint[](7);
                x.data[3] = 8;
                x.f();
                return x.data[3];
            }
        }
    )";
    // This has to work without linking, because everything will be inlined.
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(internal_library_function_return_var_size)
{
    char const* sourceCode = R"(
        library L {
            struct S { uint[] data; }
            function f(S _s) internal returns (uint[]) {
                _s.data[3] = 2;
                return _s.data;
            }
        }
        contract C {
            using L for L.S;
            function f() returns (uint) {
                L.S memory x;
                x.data = new uint[](7);
                x.data[3] = 8;
                return x.f()[3];
            }
        }
    )";
    // This has to work without linking, because everything will be inlined.
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(iszero_bnot_correct)
{
    // A long time ago, some opcodes were renamed, which involved the opcodes
    // "iszero" and "not".
    char const* sourceCode = R"(
        contract C {
            function f() returns (bool) {
                bytes32 x = 1;
                assembly { x := not(x) }
                if (x != ~bytes32(1)) return false;
                assembly { x := iszero(x) }
                if (x != bytes32(0)) return false;
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(cleanup_bytes_types)
{
    // Checks that bytesXX types are properly cleaned before they are compared.
    char const* sourceCode = R"(
        contract C {
            function f(bytes2 a, uint16 x) returns (uint) {
                if (a != "ab") return 1;
                if (x != 0x0102) return 2;
                if (bytes3(x) != 0x0102) return 3;
                return 0;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    // We input longer data on purpose.
    BOOST_CHECK(callContractFunction("f(bytes2,uint16)", string("abc"), u256(0x040102)) == encodeArgs(0));
}

BOOST_AUTO_TEST_CASE(skip_dynamic_types)
{
    // The EVM cannot provide access to dynamically-sized return values, so we have to skip them.
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint, uint[], uint) {
                return (7, new uint[](2), 8);
            }
            function g() returns (uint, uint) {
                // Previous implementation "moved" b to the second place and did not skip.
                var (a, _, b) = this.f();
                return (a, b);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(7), u256(8)));
}

BOOST_AUTO_TEST_CASE(skip_dynamic_types_for_structs)
{
    // For accessors, the dynamic types are already removed in the external signature itself.
    char const* sourceCode = R"(
        contract C {
            struct S {
                uint x;
                string a; // this is present in the accessor
                uint[] b; // this is not present
                uint y;
            }
            S public s;
            function g() returns (uint, uint) {
                s.x = 2;
                s.a = "abc";
                s.b = [7, 8, 9];
                s.y = 6;
                var (x, a, y) = this.s();
                return (x, y);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(2), u256(6)));
}

BOOST_AUTO_TEST_CASE(failed_create)
{
    char const* sourceCode = R"(
        contract D { function D() payable {} }
        contract C {
            uint public x;
            function C() payable {}
            function f(uint amount) returns (address) {
                x++;
                return (new D).value(amount)();
            }
            function stack(uint depth) returns (address) {
                if (depth < 1024)
                    return this.stack(depth - 1);
                else
                    return f(0);
            }
        }
    )";
    compileAndRun(sourceCode, 20, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", 20) != encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("f(uint256)", 20) == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("stack(uint256)", 1023) == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(create_dynamic_array_with_zero_length)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                var a = new uint[][](0);
                return 7;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(return_does_not_skip_modifier)
{
    char const* sourceCode = R"(
        contract C {
            uint public x;
            modifier setsx {
                _;
                x = 9;
            }
            function f() setsx returns (uint) {
                return 2;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(9)));
}

BOOST_AUTO_TEST_CASE(break_in_modifier)
{
    char const* sourceCode = R"(
        contract C {
            uint public x;
            modifier run() {
                for (uint i = 0; i < 10; i++) {
                    _;
                    break;
                }
            }
            function f() run {
                x++;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(stacked_return_with_modifiers)
{
    char const* sourceCode = R"(
        contract C {
            uint public x;
            modifier run() {
                for (uint i = 0; i < 10; i++) {
                    _;
                    break;
                }
            }
            function f() run {
                x++;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(mutex)
{
    char const* sourceCode = R"(
        contract mutexed {
            bool locked;
            modifier protected {
                if (locked) throw;
                locked = true;
                _;
                locked = false;
            }
        }
        contract Fund is mutexed {
            uint shares;
            function Fund() payable { shares = msg.value; }
            function withdraw(uint amount) protected returns (uint) {
                // NOTE: It is very bad practice to write this function this way.
                // Please refer to the documentation of how to do this properly.
                if (amount > shares) throw;
                if (!msg.sender.call.value(amount)()) throw;
                shares -= amount;
                return shares;
            }
            function withdrawUnprotected(uint amount) returns (uint) {
                // NOTE: It is very bad practice to write this function this way.
                // Please refer to the documentation of how to do this properly.
                if (amount > shares) throw;
                if (!msg.sender.call.value(amount)()) throw;
                shares -= amount;
                return shares;
            }
        }
        contract Attacker {
            Fund public fund;
            uint callDepth;
            bool protected;
            function setProtected(bool _protected) { protected = _protected; }
            function Attacker(Fund _fund) { fund = _fund; }
            function attack() returns (uint) {
                callDepth = 0;
                return attackInternal();
            }
            function attackInternal() internal returns (uint) {
                if (protected)
                    return fund.withdraw(10);
                else
                    return fund.withdrawUnprotected(10);
            }
            function() payable {
                callDepth++;
                if (callDepth < 4)
                    attackInternal();
            }
        }
    )";
    compileAndRun(sourceCode, 500, "Fund");
    auto fund = m_contractAddress;
    BOOST_CHECK_EQUAL(balanceAt(fund), 500);
    compileAndRun(sourceCode, 0, "Attacker", encodeArgs(u160(fund)));
    BOOST_CHECK(callContractFunction("setProtected(bool)", true) == encodeArgs());
    BOOST_CHECK(callContractFunction("attack()") == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(fund), 500);
    BOOST_CHECK(callContractFunction("setProtected(bool)", false) == encodeArgs());
    BOOST_CHECK(callContractFunction("attack()") == encodeArgs(u256(460)));
    BOOST_CHECK_EQUAL(balanceAt(fund), 460);
}

BOOST_AUTO_TEST_CASE(failing_ecrecover_invalid_input)
{
    // ecrecover should return zero for malformed input
    // (v should be 27 or 28, not 1)
    // Note that the precompile does not return zero but returns nothing.
    char const* sourceCode = R"(
        contract C {
            function f() returns (address) {
                return ecrecover(bytes32(uint(-1)), 1, 2, 3);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(failing_ecrecover_invalid_input_proper)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (address) {
                return recover(
                    0x77e5189111eb6557e8a637b27ef8fbb15bc61d61c2f00cc48878f3a296e5e0ca,
                    0, // invalid v value
                    0x6944c77849b18048f6abe0db8084b0d0d0689cdddb53d2671c36967b58691ad4,
                    0xef4f06ba4f78319baafd0424365777241af4dfd3da840471b4b4b087b7750d0d,
                    0xca35b7d915458ef540ade6068dfe2f44e8fa733c,
                    0xca35b7d915458ef540ade6068dfe2f44e8fa733c
                );
            }
            function recover(bytes32 hash, uint8 v, bytes32 r, bytes32 s, uint blockExpired, bytes32 salt)
                returns (address)
            {
                require(hash == keccak256(blockExpired, salt));
                return ecrecover(hash, v, r, s);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(failing_ecrecover_invalid_input_asm)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (address) {
                assembly {
                    mstore(mload(0x40), 0xca35b7d915458ef540ade6068dfe2f44e8fa733c)
                }
                return ecrecover(
                    0x77e5189111eb6557e8a637b27ef8fbb15bc61d61c2f00cc48878f3a296e5e0ca,
                    0, // invalid v value
                    0x6944c77849b18048f6abe0db8084b0d0d0689cdddb53d2671c36967b58691ad4,
                    0xef4f06ba4f78319baafd0424365777241af4dfd3da840471b4b4b087b7750d0d
                );
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(calling_nonexisting_contract_throws)
{
    char const* sourceCode = R"(
        contract D { function g(); }
        contract C {
            D d = D(0x1212);
            function f() returns (uint) {
                d.g();
                return 7;
            }
            function g() returns (uint) {
                d.g.gas(200)();
                return 7;
            }
            function h() returns (uint) {
                d.call(); // this does not throw (low-level)
                return 7;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("g()") == encodeArgs());
    BOOST_CHECK(callContractFunction("h()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(payable_constructor)
{
    char const* sourceCode = R"(
        contract C {
            function C() payable { }
        }
    )";
    compileAndRun(sourceCode, 27, "C");
}

BOOST_AUTO_TEST_CASE(payable_function)
{
    char const* sourceCode = R"(
        contract C {
            uint public a;
            function f() payable returns (uint) {
                return msg.value;
            }
            function() payable {
                a = msg.value + 1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunctionWithValue("f()", 27) == encodeArgs(u256(27)));
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 27);
    BOOST_CHECK(callContractFunctionWithValue("", 27) == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 27 + 27);
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(28)));
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 27 + 27);
}

BOOST_AUTO_TEST_CASE(payable_function_calls_library)
{
    char const* sourceCode = R"(
        library L {
            function f() returns (uint) { return 7; }
        }
        contract C {
            function f() payable returns (uint) {
                return L.f();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "L");
    compileAndRun(sourceCode, 0, "C", bytes(), map<string, Address>{{"L", m_contractAddress}});
    BOOST_CHECK(callContractFunctionWithValue("f()", 27) == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(non_payable_throw)
{
    char const* sourceCode = R"(
        contract C {
            uint public a;
            function f() returns (uint) {
                return msg.value;
            }
            function() {
                a = msg.value + 1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunctionWithValue("f()", 27) == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 0);
    BOOST_CHECK(callContractFunction("") == encodeArgs());
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunctionWithValue("", 27) == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 0);
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunctionWithValue("a()", 27) == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 0);
}

BOOST_AUTO_TEST_CASE(no_nonpayable_circumvention_by_modifier)
{
    char const* sourceCode = R"(
        contract C {
            modifier tryCircumvent {
                if (false) _; // avoid the function, we should still not accept ether
            }
            function f() tryCircumvent returns (uint) {
                return msg.value;
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK(callContractFunctionWithValue("f()", 27) == encodeArgs());
    BOOST_CHECK_EQUAL(balanceAt(m_contractAddress), 0);
}

BOOST_AUTO_TEST_CASE(mem_resize_is_not_paid_at_call)
{
    // This tests that memory resize for return values is not paid during the call, which would
    // make the gas calculation overly complex. We access the end of the output area before
    // the call is made.
    // Tests that this also survives the optimizer.
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint[200]) {}
        }
        contract D {
            function f(C c) returns (uint) { c.f(); return 7; }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    u160 cAddr = m_contractAddress;
    compileAndRun(sourceCode, 0, "D");
    BOOST_CHECK(callContractFunction("f(address)", cAddr) == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(calling_uninitialized_function)
{
    char const* sourceCode = R"(
        contract C {
            function intern() returns (uint) {
                function (uint) internal returns (uint) x;
                x(2);
                return 7;
            }
            function extern() returns (uint) {
                function (uint) external returns (uint) x;
                x(2);
                return 7;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    // This should throw exceptions
    BOOST_CHECK(callContractFunction("intern()") == encodeArgs());
    BOOST_CHECK(callContractFunction("extern()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(calling_uninitialized_function_in_detail)
{
    char const* sourceCode = R"(
        contract C {
            function() internal returns (uint) x;
            int mutex;
            function t() returns (uint) {
                if (mutex > 0)
                    return 7;
                mutex = 1;
                // Avoid re-executing this function if we jump somewhere.
                x();
                return 2;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("t()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(pass_function_types_internally)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint x) returns (uint) {
                return eval(g, x);
            }
            function eval(function(uint) returns (uint) x, uint a) internal returns (uint) {
                return x(a);
            }
            function g(uint x) returns (uint) { return x + 1; }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", 7) == encodeArgs(u256(8)));
}

BOOST_AUTO_TEST_CASE(pass_function_types_externally)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint x) returns (uint) {
                return this.eval(this.g, x);
            }
            function f2(uint x) returns (uint) {
                return eval(this.g, x);
            }
            function eval(function(uint) external returns (uint) x, uint a) returns (uint) {
                return x(a);
            }
            function g(uint x) returns (uint) { return x + 1; }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256)", 7) == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("f2(uint256)", 7) == encodeArgs(u256(8)));
}

BOOST_AUTO_TEST_CASE(receive_external_function_type)
{
    char const* sourceCode = R"(
        contract C {
            function g() returns (uint) { return 7; }
            function f(function() external returns (uint) g) returns (uint) {
                return g();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction(
        "f(function)",
        m_contractAddress.asBytes() + FixedHash<4>(dev::keccak256("g()")).asBytes() + bytes(32 - 4 - 20, 0)
    ) == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(return_external_function_type)
{
    char const* sourceCode = R"(
        contract C {
            function g() {}
            function f() returns (function() external) {
                return this.g;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(
        callContractFunction("f()") ==
        m_contractAddress.asBytes() + FixedHash<4>(dev::keccak256("g()")).asBytes() + bytes(32 - 4 - 20, 0)
    );
}

BOOST_AUTO_TEST_CASE(store_function)
{
    char const* sourceCode = R"(
        contract Other {
            function addTwo(uint x) returns (uint) { return x + 2; }
        }
        contract C {
            function (function (uint) external returns (uint)) returns (uint) ev;
            function (uint) external returns (uint) x;
            function store(function(uint) external returns (uint) y) {
                x = y;
            }
            function eval(function(uint) external returns (uint) y) returns (uint) {
                return y(7);
            }
            function t() returns (uint) {
                ev = eval;
                this.store((new Other()).addTwo);
                return ev(x);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("t()") == encodeArgs(u256(9)));
}

BOOST_AUTO_TEST_CASE(store_function_in_constructor)
{
    char const* sourceCode = R"(
        contract C {
            uint public result_in_constructor;
            function (uint) internal returns (uint) x;
            function C () {
                x = double;
                result_in_constructor = use(2);
            }
            function double(uint _arg) returns (uint _ret) {
                _ret = _arg * 2;
            }
            function use(uint _arg) returns (uint) {
                return x(_arg);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("use(uint256)", encodeArgs(u256(3))) == encodeArgs(u256(6)));
    BOOST_CHECK(callContractFunction("result_in_constructor()") == encodeArgs(u256(4)));
}

// TODO: store bound internal library functions

BOOST_AUTO_TEST_CASE(store_internal_unused_function_in_constructor)
{
    char const* sourceCode = R"(
        contract C {
            function () internal returns (uint) x;
            function C () {
                x = unused;
            }
            function unused() internal returns (uint) {
                return 7;
            }
            function t() returns (uint) {
                return x();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("t()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(store_internal_unused_library_function_in_constructor)
{
    char const* sourceCode = R"(
        library L { function x() internal returns (uint) { return 7; } }
        contract C {
            function () internal returns (uint) x;
            function C () {
                x = L.x;
            }
            function t() returns (uint) {
                return x();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("t()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(same_function_in_construction_and_runtime)
{
    char const* sourceCode = R"(
        contract C {
            uint public initial;
            function C() {
                initial = double(2);
            }
            function double(uint _arg) returns (uint _ret) {
                _ret = _arg * 2;
            }
            function runtime(uint _arg) returns (uint) {
                return double(_arg);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("runtime(uint256)", encodeArgs(u256(3))) == encodeArgs(u256(6)));
    BOOST_CHECK(callContractFunction("initial()") == encodeArgs(u256(4)));
}

BOOST_AUTO_TEST_CASE(same_function_in_construction_and_runtime_equality_check)
{
    char const* sourceCode = R"(
        contract C {
            function (uint) internal returns (uint) x;
            function C() {
                x = double;
            }
            function test() returns (bool) {
                return x == double;
            }
            function double(uint _arg) returns (uint _ret) {
                _ret = _arg * 2;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(function_type_library_internal)
{
    char const* sourceCode = R"(
        library Utils {
            function reduce(uint[] memory array, function(uint, uint) returns (uint) f, uint init) internal returns (uint) {
                for (uint i = 0; i < array.length; i++) {
                    init = f(array[i], init);
                }
                return init;
            }
            function sum(uint a, uint b) internal returns (uint) {
                return a + b;
            }
        }
        contract C {
            function f(uint[] x) returns (uint) {
                return Utils.reduce(x, Utils.sum, 0);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256[])", 0x20, 3, u256(1), u256(7), u256(3)) == encodeArgs(u256(11)));
}


BOOST_AUTO_TEST_CASE(call_function_returning_function)
{
    char const* sourceCode = R"(
        contract test {
            function f0() returns (uint) {
                return 2;
            }
            function f1() internal returns (function() returns (uint)) {
                return f0;
            }
            function f2() internal returns (function() returns (function () returns (uint))) {
                return f1;
            }
            function f3() internal returns (function() returns (function () returns (function () returns (uint))))
            {
                return f2;
            }
            function f() returns (uint) {
                function() returns(function() returns(function() returns(function() returns(uint)))) x;
                x = f3;
                return x()()()();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "test");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(mapping_of_functions)
{
    char const* sourceCode = R"(
        contract Flow {
            bool public success;

            mapping (address => function () internal) stages;

            function stage0() internal {
                stages[msg.sender] = stage1;
            }

            function stage1() internal {
                stages[msg.sender] = stage2;
            }

            function stage2() internal {
                success = true;
            }

            function Flow() {
                stages[msg.sender] = stage0;
            }

            function f() returns (uint) {
                stages[msg.sender]();
                return 7;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "Flow");
    BOOST_CHECK(callContractFunction("success()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("success()") == encodeArgs(false));
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("success()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(packed_functions)
{
    char const* sourceCode = R"(
        contract C {
            // these should take the same slot
            function() returns (uint) a;
            function() external returns (uint) b;
            function() external returns (uint) c;
            function() returns (uint) d;
            uint8 public x;

            function set() {
                x = 2;
                d = g;
                c = this.h;
                b = this.h;
                a = g;
            }
            function t1() returns (uint) {
                return a();
            }
            function t2() returns (uint) {
                return b();
            }
            function t3() returns (uint) {
                return a();
            }
            function t4() returns (uint) {
                return b();
            }
            function g() returns (uint) {
                return 7;
            }
            function h() returns (uint) {
                return 8;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("set()") == encodeArgs());
    BOOST_CHECK(callContractFunction("t1()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("t2()") == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("t3()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("t4()") == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(function_memory_array)
{
    char const* sourceCode = R"(
        contract C {
            function a(uint x) returns (uint) { return x + 1; }
            function b(uint x) returns (uint) { return x + 2; }
            function c(uint x) returns (uint) { return x + 3; }
            function d(uint x) returns (uint) { return x + 5; }
            function e(uint x) returns (uint) { return x + 8; }
            function test(uint x, uint i) returns (uint) {
                function(uint) internal returns (uint)[] memory arr =
                    new function(uint) internal returns (uint)[](10);
                arr[0] = a;
                arr[1] = b;
                arr[2] = c;
                arr[3] = d;
                arr[4] = e;
                return arr[i](x);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(0)) == encodeArgs(u256(11)));
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(1)) == encodeArgs(u256(12)));
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(2)) == encodeArgs(u256(13)));
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(3)) == encodeArgs(u256(15)));
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(4)) == encodeArgs(u256(18)));
    BOOST_CHECK(callContractFunction("test(uint256,uint256)", u256(10), u256(5)) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(function_delete_storage)
{
    char const* sourceCode = R"(
        contract C {
            function a() returns (uint) { return 7; }
            function() internal returns (uint) y;
            function set() returns (uint) {
                y = a;
                return y();
            }
            function d() returns (uint) {
                delete y;
                return 1;
            }
            function ca() returns (uint) {
                return y();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("set()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("ca()") == encodeArgs(u256(7)));
    BOOST_CHECK(callContractFunction("d()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("ca()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(function_delete_stack)
{
    char const* sourceCode = R"(
        contract C {
            function a() returns (uint) { return 7; }
            function test() returns (uint) {
                var y = a;
                delete y;
                y();
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(copy_function_storage_array)
{
    char const* sourceCode = R"(
        contract C {
            function() internal returns (uint)[] x;
            function() internal returns (uint)[] y;
            function test() returns (uint) {
                x.length = 10;
                x[9] = a;
                y = x;
                return y[9]();
            }
            function a() returns (uint) {
                return 7;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(7)));
}

BOOST_AUTO_TEST_CASE(function_array_cross_calls)
{
    char const* sourceCode = R"(
        contract D {
            function f(function() external returns (function() external returns (uint))[] x)
                returns (function() external returns (uint)[3] r)
            {
                r[0] = x[0]();
                r[1] = x[1]();
                r[2] = x[2]();
            }
        }
        contract C {
            function test() returns (uint, uint, uint) {
                function() external returns (function() external returns (uint))[] memory x =
                    new function() external returns (function() external returns (uint))[](10);
                for (uint i = 0; i < x.length; i ++)
                    x[i] = this.h;
                x[0] = this.htwo;
                var y = (new D()).f(x);
                return (y[0](), y[1](), y[2]());
            }
            function e() returns (uint) { return 5; }
            function f() returns (uint) { return 6; }
            function g() returns (uint) { return 7; }
            uint counter;
            function h() returns (function() external returns (uint)) {
                return counter++ == 0 ? this.f : this.g;
            }
            function htwo() returns (function() external returns (uint)) {
                return this.e;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(5), u256(6), u256(7)));
}

BOOST_AUTO_TEST_CASE(external_function_to_address)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (bool) {
                return address(this.f) == address(this);
            }
            function g(function() external cb) returns (address) {
                return address(cb);
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
    BOOST_CHECK(callContractFunction("g(function)", fromHex("00000000000000000000000000000000000004226121ff00000000000000000")) == encodeArgs(u160(0x42)));
}


BOOST_AUTO_TEST_CASE(copy_internal_function_array_to_storage)
{
    char const* sourceCode = R"(
        contract C {
            function() internal returns (uint)[20] x;
            int mutex;
            function one() returns (uint) {
                function() internal returns (uint)[20] xmem;
                x = xmem;
                return 3;
            }
            function two() returns (uint) {
                if (mutex > 0)
                    return 7;
                mutex = 1;
                // If this test fails, it might re-execute this function.
                x[0]();
                return 2;
            }
        }
    )";

    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("one()") == encodeArgs(u256(3)));
    BOOST_CHECK(callContractFunction("two()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(shift_constant_left)
{
    char const* sourceCode = R"(
        contract C {
            uint public a = 0x42 << 8;
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(0x4200)));
}

BOOST_AUTO_TEST_CASE(shift_negative_constant_left)
{
    char const* sourceCode = R"(
        contract C {
            int public a = -0x42 << 8;
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(-0x4200)));
}

BOOST_AUTO_TEST_CASE(shift_constant_right)
{
    char const* sourceCode = R"(
        contract C {
            uint public a = 0x4200 >> 8;
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(0x42)));
}

BOOST_AUTO_TEST_CASE(shift_negative_constant_right)
{
    char const* sourceCode = R"(
        contract C {
            int public a = -0x4200 >> 8;
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(-0x42)));
}

BOOST_AUTO_TEST_CASE(shift_left)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a, uint b) returns (uint) {
                return a << b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(8)) == encodeArgs(u256(0x426600)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(16)) == encodeArgs(u256(0x42660000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(17)) == encodeArgs(u256(0x84cc0000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(240)) == fromHex("4266000000000000000000000000000000000000000000000000000000000000"));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(256)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_left_uint32)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint32 a, uint32 b) returns (uint) {
                return a << b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(8)) == encodeArgs(u256(0x426600)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(16)) == encodeArgs(u256(0x42660000)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(17)) == encodeArgs(u256(0x84cc0000)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(32)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_left_uint8)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint8 a, uint8 b) returns (uint) {
                return a << b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x66), u256(0)) == encodeArgs(u256(0x66)));
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x66), u256(8)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_left_larger_type)
{
    // This basically tests proper cleanup and conversion. It should not convert x to int8.
    char const* sourceCode = R"(
        contract C {
            function f() returns (int8) {
                uint8 x = 254;
                int8 y = 1;
                return y << x;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_left_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a, uint b) returns (uint) {
                a <<= b;
                return a;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(8)) == encodeArgs(u256(0x426600)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(16)) == encodeArgs(u256(0x42660000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(17)) == encodeArgs(u256(0x84cc0000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(240)) == fromHex("4266000000000000000000000000000000000000000000000000000000000000"));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(256)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_left_assignment_different_type)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a, uint8 b) returns (uint) {
                a <<= b;
                return a;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256,uint8)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint256,uint8)", u256(0x4266), u256(8)) == encodeArgs(u256(0x426600)));
    BOOST_CHECK(callContractFunction("f(uint256,uint8)", u256(0x4266), u256(16)) == encodeArgs(u256(0x42660000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint8)", u256(0x4266), u256(17)) == encodeArgs(u256(0x84cc0000)));
    BOOST_CHECK(callContractFunction("f(uint256,uint8)", u256(0x4266), u256(240)) == fromHex("4266000000000000000000000000000000000000000000000000000000000000"));
}

BOOST_AUTO_TEST_CASE(shift_right)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a, uint b) returns (uint) {
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(8)) == encodeArgs(u256(0x42)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(16)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(17)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_right_garbled)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint8 a, uint8 b) returns (uint) {
                assembly {
                    a := 0xffffffff
                }
                // Higher bits should be cleared before the shift
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x0), u256(4)) == encodeArgs(u256(0xf)));
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x0), u256(0x1004)) == encodeArgs(u256(0xf)));
}

BOOST_AUTO_TEST_CASE(shift_right_uint32)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint32 a, uint32 b) returns (uint) {
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(8)) == encodeArgs(u256(0x42)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(16)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f(uint32,uint32)", u256(0x4266), u256(17)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_right_uint8)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint8 a, uint8 b) returns (uint) {
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x66), u256(0)) == encodeArgs(u256(0x66)));
    BOOST_CHECK(callContractFunction("f(uint8,uint8)", u256(0x66), u256(8)) == encodeArgs(u256(0x0)));
}

BOOST_AUTO_TEST_CASE(shift_right_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f(uint a, uint b) returns (uint) {
                a >>= b;
                return a;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(0)) == encodeArgs(u256(0x4266)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(8)) == encodeArgs(u256(0x42)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(16)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f(uint256,uint256)", u256(0x4266), u256(17)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_right_negative_lvalue)
{
    char const* sourceCode = R"(
        contract C {
            function f(int a, int b) returns (int) {
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(0)) == encodeArgs(u256(-4266)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(8)) == encodeArgs(u256(-16)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(16)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(17)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_right_negative_lvalue_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f(int a, int b) returns (int) {
                a >>= b;
                return a;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(0)) == encodeArgs(u256(-4266)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(8)) == encodeArgs(u256(-16)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(16)) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(-4266), u256(17)) == encodeArgs(u256(0)));
}

BOOST_AUTO_TEST_CASE(shift_negative_rvalue)
{
    char const* sourceCode = R"(
        contract C {
            function f(int a, int b) returns (int) {
                return a << b;
            }
            function g(int a, int b) returns (int) {
                return a >> b;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(1), u256(-1)) == encodeArgs());
    BOOST_CHECK(callContractFunction("g(int256,int256)", u256(1), u256(-1)) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(shift_negative_rvalue_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f(int a, int b) returns (int) {
                a <<= b;
                return a;
            }
            function g(int a, int b) returns (int) {
                a >>= b;
                return a;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(int256,int256)", u256(1), u256(-1)) == encodeArgs());
    BOOST_CHECK(callContractFunction("g(int256,int256)", u256(1), u256(-1)) == encodeArgs());
}

BOOST_AUTO_TEST_CASE(shift_constant_left_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint a) {
                a = 0x42;
                a <<= 8;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x4200)));
}

BOOST_AUTO_TEST_CASE(shift_constant_right_assignment)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint a) {
                a = 0x4200;
                a >>= 8;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x42)));
}

BOOST_AUTO_TEST_CASE(shift_cleanup)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint16 x) {
                x = 0xffff;
                x += 32;
                x <<= 8;
                x >>= 16;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x0)));
}

BOOST_AUTO_TEST_CASE(shift_cleanup_garbled)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint8 x) {
                assembly {
                    x := 0xffff
                }
                x >>= 8;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x0)));
}

BOOST_AUTO_TEST_CASE(shift_overflow)
{
    char const* sourceCode = R"(
        contract C {
            function leftU(uint8 x, uint8 y) returns (uint8) {
                return x << y;
            }
            function leftS(int8 x, int8 y) returns (int8) {
                return x << y;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("leftU(uint8,uint8)", 255, 8) == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("leftU(uint8,uint8)", 255, 1) == encodeArgs(u256(254)));
    BOOST_CHECK(callContractFunction("leftU(uint8,uint8)", 255, 0) == encodeArgs(u256(255)));

    // Result is -128 and output is sign-extended, not zero-padded.
    BOOST_CHECK(callContractFunction("leftS(int8,int8)", 1, 7) == encodeArgs(u256(0) - 128));
    BOOST_CHECK(callContractFunction("leftS(int8,int8)", 1, 6) == encodeArgs(u256(64)));
}

BOOST_AUTO_TEST_CASE(shift_bytes)
{
    char const* sourceCode = R"(
        contract C {
            function left(bytes20 x, uint8 y) returns (bytes20) {
                return x << y;
            }
            function right(bytes20 x, uint8 y) returns (bytes20) {
                return x >> y;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("left(bytes20,uint8)", "12345678901234567890", 8 * 8) == encodeArgs("901234567890" + string(8, 0)));
    BOOST_CHECK(callContractFunction("right(bytes20,uint8)", "12345678901234567890", 8 * 8) == encodeArgs(string(8, 0) + "123456789012"));
}

BOOST_AUTO_TEST_CASE(shift_bytes_cleanup)
{
    char const* sourceCode = R"(
        contract C {
            function left(uint8 y) returns (bytes20) {
                bytes20 x;
                assembly { x := "12345678901234567890abcde" }
                return x << y;
            }
            function right(uint8 y) returns (bytes20) {
                bytes20 x;
                assembly { x := "12345678901234567890abcde" }
                return x >> y;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("left(uint8)", 8 * 8) == encodeArgs("901234567890" + string(8, 0)));
    BOOST_CHECK(callContractFunction("right(uint8)", 8 * 8) == encodeArgs(string(8, 0) + "123456789012"));
}

BOOST_AUTO_TEST_CASE(cleanup_in_compound_assign)
{
    char const* sourceCode = R"(
        contract C {
            function test() returns (uint, uint) {
                uint32 a = 0xffffffff;
                uint16 x = uint16(a);
                uint16 y = x;
                x /= 0x100;
                y = y / 0x100;
                return (x, y);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(0xff), u256(0xff)));
}

BOOST_AUTO_TEST_CASE(inline_assembly_in_modifiers)
{
    char const* sourceCode = R"(
        contract C {
            modifier m {
                uint a = 1;
                assembly {
                    a := 2
                }
                if (a != 2)
                    throw;
                _;
            }
            function f() m returns (bool) {
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(packed_storage_overflow)
{
    char const* sourceCode = R"(
        contract C {
            uint16 x = 0x1234;
            uint16 a = 0xffff;
            uint16 b;
            function f() returns (uint, uint, uint, uint) {
                a++;
                uint c = b;
                delete b;
                a -= 2;
                return (x, c, b, a);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0x1234), u256(0), u256(0), u256(0xfffe)));
}

BOOST_AUTO_TEST_CASE(contracts_separated_with_comment)
{
    char const* sourceCode = R"(
        contract C1 {}
        /**
        **/
        contract C2 {}
    )";
    compileAndRun(sourceCode, 0, "C1");
    compileAndRun(sourceCode, 0, "C2");
}

BOOST_AUTO_TEST_CASE(include_creation_bytecode_only_once)
{
    char const* sourceCode = R"(
        contract D {
            bytes a = hex"1237651237125387136581271652831736512837126583171583712358126123765123712538713658127165283173651283712658317158371235812612376512371253871365812716528317365128371265831715837123581261237651237125387136581271652831736512837126583171583712358126";
            bytes b = hex"1237651237125327136581271252831736512837126583171383712358126123765125712538713658127165253173651283712658357158371235812612376512371a5387136581271652a317365128371265a317158371235812612a765123712538a13658127165a83173651283712a58317158371235a126";
            function D(uint) {}
        }
        contract Double {
            function f() {
                new D(2);
            }
            function g() {
                new D(3);
            }
        }
        contract Single {
            function f() {
                new D(2);
            }
        }
    )";
    compileAndRun(sourceCode);
    BOOST_CHECK_LE(
        double(m_compiler.object("Double").bytecode.size()),
        1.1 * double(m_compiler.object("Single").bytecode.size())
    );
}

BOOST_AUTO_TEST_CASE(recursive_structs)
{
    char const* sourceCode = R"(
        contract C {
            struct S {
                S[] x;
            }
            S sstorage;
            function f() returns (uint) {
                S memory s;
                s.x = new S[](10);
                delete s;
                sstorage.x.length++;
                delete sstorage;
                return 1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(invalid_instruction)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assembly {
                    invalid
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
}

BOOST_AUTO_TEST_CASE(assert_require)
{
    char const* sourceCode = R"(
        contract C {
            function f() {
                assert(false);
            }
            function g(bool val) returns (bool) {
                assert(val == true);
                return true;
            }
            function h(bool val) returns (bool) {
                require(val);
                return true;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("g(bool)", false) == encodeArgs());
    BOOST_CHECK(callContractFunction("g(bool)", true) == encodeArgs(true));
    BOOST_CHECK(callContractFunction("h(bool)", false) == encodeArgs());
    BOOST_CHECK(callContractFunction("h(bool)", true) == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(revert)
{
    char const* sourceCode = R"(
        contract C {
            uint public a = 42;
            function f() {
                a = 1;
                revert();
            }
            function g() {
                a = 1;
                assembly {
                    revert(0, 0)
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs());
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(42)));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs());
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(negative_stack_height)
{
    // This code was causing negative stack height during code generation
    // because the stack height was not adjusted at the beginning of functions.
    char const* sourceCode = R"(
        contract C {
            mapping(uint => Invoice) public invoices;
            struct Invoice {
                uint AID;
                bool Aboola;
                bool Aboolc;
                bool exists;
            }
            function nredit(uint startindex) public constant returns(uint[500] CIDs, uint[500] dates, uint[500] RIDs, bool[500] Cboolas, uint[500] amounts){}
            function return500InvoicesByDates(uint begindate, uint enddate, uint startindex) public constant returns(uint[500] AIDs, bool[500] Aboolas, uint[500] dates, bytes32[3][500] Abytesas, bytes32[3][500] bytesbs, bytes32[2][500] bytescs, uint[500] amounts, bool[500] Aboolbs, bool[500] Aboolcs){}
            function return500PaymentsByDates(uint begindate, uint enddate, uint startindex) public constant returns(uint[500] BIDs, uint[500] dates, uint[500] RIDs, bool[500] Bboolas, bytes32[3][500] bytesbs,bytes32[2][500] bytescs, uint[500] amounts, bool[500] Bboolbs){}
        }
    )";
    compileAndRun(sourceCode, 0, "C");
}

BOOST_AUTO_TEST_CASE(literal_empty_string)
{
    char const* sourceCode = R"(
        contract C {
            bytes32 public x;
            uint public a;
            function f(bytes32 _x, uint _a) {
                x = _x;
                a = _a;
            }
            function g() {
                this.f("", 2);
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("a()") == encodeArgs(u256(2)));
}

BOOST_AUTO_TEST_CASE(scientific_notation)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint) {
                return 2e10 wei;
            }
            function g() returns (uint) {
                return 200e-2 wei;
            }
            function h() returns (uint) {
                return 2.5e1;
            }
            function i() returns (int) {
                return -2e10;
            }
            function j() returns (int) {
                return -200e-2;
            }
            function k() returns (int) {
                return -2.5e1;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(20000000000)));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(2)));
    BOOST_CHECK(callContractFunction("h()") == encodeArgs(u256(25)));
    BOOST_CHECK(callContractFunction("i()") == encodeArgs(u256(-20000000000)));
    BOOST_CHECK(callContractFunction("j()") == encodeArgs(u256(-2)));
    BOOST_CHECK(callContractFunction("k()") == encodeArgs(u256(-25)));
}

BOOST_AUTO_TEST_CASE(interface_contract)
{
    char const* sourceCode = R"(
        interface I {
            event A();
            function f() returns (bool);
            function() payable;
        }

        contract A is I {
            function f() returns (bool) {
                return g();
            }

            function g() returns (bool) {
                return true;
            }

            function() payable {
            }
        }

        contract C {
            function f(address _interfaceAddress) returns (bool) {
                I i = I(_interfaceAddress);
                return i.f();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "A");
    u160 const recipient = m_contractAddress;
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f(address)", recipient) == encodeArgs(true));
}

BOOST_AUTO_TEST_CASE(keccak256_assembly)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (bytes32 ret) {
                assembly {
                    ret := keccak256(0, 0)
                }
            }
            function g() returns (bytes32 ret) {
                assembly {
                    0
                    0
                    keccak256
                    =: ret
                }
            }
            function h() returns (bytes32 ret) {
                assembly {
                    ret := sha3(0, 0)
                }
            }
            function i() returns (bytes32 ret) {
                assembly {
                    0
                    0
                    sha3
                    =: ret
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == fromHex("0xc5d2460186f7233c927e7db2dcc703c0e500b653ca82273b7bfad8045d85a470"));
    BOOST_CHECK(callContractFunction("g()") == fromHex("0xc5d2460186f7233c927e7db2dcc703c0e500b653ca82273b7bfad8045d85a470"));
    BOOST_CHECK(callContractFunction("h()") == fromHex("0xc5d2460186f7233c927e7db2dcc703c0e500b653ca82273b7bfad8045d85a470"));
    BOOST_CHECK(callContractFunction("i()") == fromHex("0xc5d2460186f7233c927e7db2dcc703c0e500b653ca82273b7bfad8045d85a470"));
}

BOOST_AUTO_TEST_CASE(multi_modifiers)
{
    // This triggered a bug in some version because the variable in the modifier was not
    // unregistered correctly.
    char const* sourceCode = R"(
        contract C {
            uint public x;
            modifier m1 {
                address a1 = msg.sender;
                x++;
                _;
            }
            function f1() m1() {
                x += 7;
            }
            function f2() m1() {
                x += 3;
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f1()") == bytes());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(8)));
    BOOST_CHECK(callContractFunction("f2()") == bytes());
    BOOST_CHECK(callContractFunction("x()") == encodeArgs(u256(12)));
}

BOOST_AUTO_TEST_CASE(inlineasm_empty_let)
{
    char const* sourceCode = R"(
        contract C {
            function f() returns (uint a, uint b) {
                assembly {
                    let x
                    let y, z
                    a := x
                    b := z
                }
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(0), u256(0)));
}

BOOST_AUTO_TEST_CASE(bare_call_invalid_address)
{
    char const* sourceCode = R"(
        contract C {
            /// Calling into non-existant account is successful (creates the account)
            function f() external constant returns (bool) {
                return address(0x4242).call();
            }
            function g() external constant returns (bool) {
                return address(0x4242).callcode();
            }
            function h() external constant returns (bool) {
                return address(0x4242).delegatecall();
            }
        }
    )";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("f()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("g()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("h()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_CASE(delegatecall_return_value)
{
    char const* sourceCode = R"DELIMITER(
        contract C {
            uint value;
            function set(uint _value) external {
                value = _value;
            }
            function get() external constant returns (uint) {
                return value;
            }
            function get_delegated() external constant returns (bool) {
                return this.delegatecall(bytes4(sha3("get()")));
            }
            function assert0() external constant {
                assert(value == 0);
            }
            function assert0_delegated() external constant returns (bool) {
                return this.delegatecall(bytes4(sha3("assert0()")));
            }
        }
    )DELIMITER";
    compileAndRun(sourceCode, 0, "C");
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("assert0_delegated()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("get_delegated()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("set(uint256)", u256(1)) == encodeArgs());
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("assert0_delegated()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("get_delegated()") == encodeArgs(u256(1)));
    BOOST_CHECK(callContractFunction("set(uint256)", u256(42)) == encodeArgs());
    BOOST_CHECK(callContractFunction("get()") == encodeArgs(u256(42)));
    BOOST_CHECK(callContractFunction("assert0_delegated()") == encodeArgs(u256(0)));
    BOOST_CHECK(callContractFunction("get_delegated()") == encodeArgs(u256(1)));
}

BOOST_AUTO_TEST_SUITE_END()

}
}
} // end namespaces