/*
    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 Alex Beregszaszi
 * @date 2016
 * End to end tests for LLL.
 */

#include <test/liblll/ExecutionFramework.h>
#include <test/Options.h>

#include <boost/test/unit_test.hpp>

#include <string>
#include <memory>

using namespace std;

namespace dev
{
namespace lll
{
namespace test
{

BOOST_FIXTURE_TEST_SUITE(LLLEndToEndTest, LLLExecutionFramework)

BOOST_AUTO_TEST_CASE(smoke_test)
{
        char const* sourceCode = "(returnlll { (return \"test\") })";
        compileAndRun(sourceCode);
        BOOST_CHECK(callFallback() == encodeArgs(string("test", 4)));
}

BOOST_AUTO_TEST_CASE(bare_panic)
{
	char const* sourceCode = "(panic)";
	compileAndRunWithoutCheck(sourceCode);
	BOOST_REQUIRE(!m_transactionSuccessful);
	BOOST_REQUIRE(m_output.empty());
}

BOOST_AUTO_TEST_CASE(panic)
{
	char const* sourceCode = "{ (panic) }";
	compileAndRunWithoutCheck(sourceCode);
	BOOST_REQUIRE(!m_transactionSuccessful);
	BOOST_REQUIRE(m_output.empty());
}

BOOST_AUTO_TEST_CASE(macro_zeroarg)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(def 'zeroarg () (seq (mstore 0 0x1234) (return 0 32)))
				(zeroarg)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(m_transactionSuccessful);
	BOOST_CHECK(callFallback() == encodeArgs(u256(0x1234)));
}

BOOST_AUTO_TEST_CASE(macros)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(def 'x 1)
				(def 'y () { (def 'x (+ x 2)) })
				(y)
				(return x)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(3)));
}

BOOST_AUTO_TEST_CASE(variables)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(set 'x 1)
				(set 'y 2)
				;; this should equal to 3
				(set 'z (add (get 'x) (get 'y)))
				;; overwriting it here
				(set 'y 4)
				;; each variable has a 32 byte slot, starting from memory location 0x80
				;; variable addresses can also be retrieved by x or (ref 'x)
				(set 'k (add (add (ref 'x) (ref 'y)) z))
				(return (add (add (get 'x) (add (get 'y) (get 'z))) (get 'k)))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(488)));
}

BOOST_AUTO_TEST_CASE(when)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= (calldatasize) 0) (return 1))
				(when (!= (calldatasize) 0) (return 2))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(2)));
	BOOST_CHECK(callFallback() == toBigEndian(u256(1)));
}

BOOST_AUTO_TEST_CASE(unless)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(unless (!= (calldatasize) 0) (return 1))
				(unless (= (calldatasize) 0) (return 2))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(2)));
	BOOST_CHECK(callFallback() == toBigEndian(u256(1)));
}

BOOST_AUTO_TEST_CASE(conditional_literal)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(return (if (= (calldatasize) 0) 1 2))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(2)));
	BOOST_CHECK(callFallback() == toBigEndian(u256(1)));
}

BOOST_AUTO_TEST_CASE(conditional)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(if (= (calldatasize) 0) (return 1) (return 2))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(2)));
	BOOST_CHECK(callFallback() == toBigEndian(u256(1)));
}

BOOST_AUTO_TEST_CASE(conditional_seq)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(return (if (= (calldatasize) 0) { 0 2 1 } { 0 1 2 }))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()") == encodeArgs(u256(2)));
	BOOST_CHECK(callFallback() == toBigEndian(u256(1)));
}

BOOST_AUTO_TEST_CASE(conditional_nested_else)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(def 'input (calldataload 0x04))
				;; Calculates width in bytes of utf-8 characters.
				(return
					(if (< input 0x80) 1
						(if (< input 0xE0) 2
							(if (< input 0xF0) 3
								(if (< input 0xF8) 4
									(if (< input 0xFC) 5
										6))))))))

	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0x00) == encodeArgs(u256(1)));
	BOOST_CHECK(callContractFunction("test()", 0x80) == encodeArgs(u256(2)));
	BOOST_CHECK(callContractFunction("test()", 0xe0) == encodeArgs(u256(3)));
	BOOST_CHECK(callContractFunction("test()", 0xf0) == encodeArgs(u256(4)));
	BOOST_CHECK(callContractFunction("test()", 0xf8) == encodeArgs(u256(5)));
	BOOST_CHECK(callContractFunction("test()", 0xfc) == encodeArgs(u256(6)));
}

BOOST_AUTO_TEST_CASE(conditional_nested_then)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(def 'input (calldataload 0x04))
				;; Calculates width in bytes of utf-8 characters.
				(return
					(if (>= input 0x80)
						(if (>= input 0xE0)
							(if (>= input 0xF0)
								(if (>= input 0xF8)
									(if (>= input 0xFC)
										6 5) 4) 3) 2) 1))))

	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0x00) == encodeArgs(u256(1)));
	BOOST_CHECK(callContractFunction("test()", 0x80) == encodeArgs(u256(2)));
	BOOST_CHECK(callContractFunction("test()", 0xe0) == encodeArgs(u256(3)));
	BOOST_CHECK(callContractFunction("test()", 0xf0) == encodeArgs(u256(4)));
	BOOST_CHECK(callContractFunction("test()", 0xf8) == encodeArgs(u256(5)));
	BOOST_CHECK(callContractFunction("test()", 0xfc) == encodeArgs(u256(6)));
}

BOOST_AUTO_TEST_CASE(conditional_switch)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(def 'input (calldataload 0x04))
				;; Calculates width in bytes of utf-8 characters.
				(return
					(switch
						(< input 0x80) 1
						(< input 0xE0) 2
						(< input 0xF0) 3
						(< input 0xF8) 4
						(< input 0xFC) 5
						6))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0x00) == encodeArgs(u256(1)));
	BOOST_CHECK(callContractFunction("test()", 0x80) == encodeArgs(u256(2)));
	BOOST_CHECK(callContractFunction("test()", 0xe0) == encodeArgs(u256(3)));
	BOOST_CHECK(callContractFunction("test()", 0xf0) == encodeArgs(u256(4)));
	BOOST_CHECK(callContractFunction("test()", 0xf8) == encodeArgs(u256(5)));
	BOOST_CHECK(callContractFunction("test()", 0xfc) == encodeArgs(u256(6)));
}

BOOST_AUTO_TEST_CASE(conditional_switch_one_arg_with_deposit)
{
	char const* sourceCode = R"(
		(returnlll
			(return
				(switch 42)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(conditional_switch_one_arg_no_deposit)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(switch [0]:42)
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(conditional_switch_two_args)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(switch (= (calldataload 0x04) 1) [0]:42)
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0) == encodeArgs(u256(0)));
	BOOST_CHECK(callContractFunction("test()", 1) == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(conditional_switch_three_args_with_deposit)
{
	char const* sourceCode = R"(
		(returnlll
			(return
				(switch (= (calldataload 0x04) 1) 41 42)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0) == encodeArgs(u256(42)));
	BOOST_CHECK(callContractFunction("test()", 1) == encodeArgs(u256(41)));
}

BOOST_AUTO_TEST_CASE(conditional_switch_three_args_no_deposit)
{
	char const* sourceCode = R"(
		(returnlll
			(switch
				(= (calldataload 0x04) 1) (return 41)
				(return 42)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0) == encodeArgs(u256(42)));
	BOOST_CHECK(callContractFunction("test()", 1) == encodeArgs(u256(41)));
}

BOOST_AUTO_TEST_CASE(exp_operator_const)
{
	char const* sourceCode = R"(
		(returnlll
			(return (exp 2 3)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == toBigEndian(u256(8)));
}

BOOST_AUTO_TEST_CASE(exp_operator_const_signed)
{
	char const* sourceCode = R"(
		(returnlll
			(return (exp (- 0 2) 3)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == toBigEndian(u256(-8)));
}

BOOST_AUTO_TEST_CASE(exp_operator_on_range)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= (div (calldataload 0x00) (exp 2 224)) 0xb3de648b)
					(return (exp 2 (calldataload 0x04))))
				(jump 0x02)))
	)";
	compileAndRun(sourceCode);
	testContractAgainstCppOnRange("f(uint256)", [](u256 const& a) -> u256 { return u256(1 << a.convert_to<int>()); }, 0, 16);
}

BOOST_AUTO_TEST_CASE(constructor_argument_internal_numeric)
{
	char const* sourceCode = R"(
		(seq
			(sstore 0x00 65535)
			(returnlll
				(return @@0x00)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(65535)));
}

BOOST_AUTO_TEST_CASE(constructor_argument_internal_string)
{
	char const* sourceCode = R"(
		(seq
			(sstore 0x00 "test")
			(returnlll
				(return @@0x00)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs("test"));
}

BOOST_AUTO_TEST_CASE(constructor_arguments_external)
{
	char const* sourceCode = R"(
		(seq
			(codecopy 0x00 (bytecodesize) 64)
			(sstore 0x00 @0x00)
			(sstore 0x01 @0x20)
			(returnlll
				(seq
					(when (= (div (calldataload 0x00) (exp 2 224)) 0xf2c9ecd8)
						(return @@0x00))
					(when (= (div (calldataload 0x00) (exp 2 224)) 0x89ea642f)
						(return @@0x01)))))
	)";
	compileAndRun(sourceCode, 0, "", encodeArgs(u256(65535), "test"));
	BOOST_CHECK(callContractFunction("getNumber()") == encodeArgs(u256(65535)));
	BOOST_CHECK(callContractFunction("getString()") == encodeArgs("test"));
}

BOOST_AUTO_TEST_CASE(fallback_and_invalid_function)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= (div (calldataload 0x00) (exp 2 224)) 0xab5ed150)
					(return "one"))
				(when (= (div (calldataload 0x00) (exp 2 224)) 0xee784123)
					(return "two"))
				(return "three")))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("getOne()") == encodeArgs("one"));
	BOOST_CHECK(callContractFunction("getTwo()") == encodeArgs("two"));
	BOOST_CHECK(callContractFunction("invalidFunction()") == encodeArgs("three"));
	BOOST_CHECK(callFallback() == encodeArgs("three"));
}

BOOST_AUTO_TEST_CASE(lit_string)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(lit 0x00 "abcdef")
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(string("abcdef")));
}

BOOST_AUTO_TEST_CASE(arithmetic)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore8 0x00 (+ 160 22))
				(mstore8 0x01 (- 223 41))
				(mstore8 0x02 (* 33 2))
				(mstore8 0x03 (/ 10 2))
				(mstore8 0x04 (% 67 2))
				(mstore8 0x05 (& 15 8))
				(mstore8 0x06 (| 18 8))
				(mstore8 0x07 (^ 26 6))
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("b6b6420501081a1c000000000000000000000000000000000000000000000000")));
}

BOOST_AUTO_TEST_CASE(binary)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore8 0x00 (< 53 87))
				(mstore8 0x01 (< 73 42))
				(mstore8 0x02 (<= 37 94))
				(mstore8 0x03 (<= 37 37))
				(mstore8 0x04 (<= 183 34))
				(mstore8 0x05 (S< (- 0 53) 87))
				(mstore8 0x06 (S< 73 (- 0 42)))
				(mstore8 0x07 (S<= (- 0 37) 94))
				(mstore8 0x08 (S<= (- 0 37) (- 0 37)))
				(mstore8 0x09 (S<= 183 (- 0 34)))
				(mstore8 0x0a (> 73 42))
				(mstore8 0x0b (> 53 87))
				(mstore8 0x0c (>= 94 37))
				(mstore8 0x0d (>= 94 94))
				(mstore8 0x0e (>= 34 183))
				(mstore8 0x0f (S> 73 (- 0 42)))
				(mstore8 0x10 (S> (- 0 53) 87))
				(mstore8 0x11 (S>= 94 (- 0 37)))
				(mstore8 0x12 (S>= (- 0 94) (- 0 94)))
				(mstore8 0x13 (S>= (- 0 34) 183))
				(mstore8 0x14 (= 53 53))
				(mstore8 0x15 (= 73 42))
				(mstore8 0x16 (!= 37 94))
				(mstore8 0x17 (!= 37 37))
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("0100010100010001010001000101000100010100010001000000000000000000")));
}

BOOST_AUTO_TEST_CASE(unary)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore8 0x00 (! (< 53 87)))
				(mstore8 0x01 (! (>= 42 73)))
				(mstore8 0x02 (~ 0x7f))
				(mstore8 0x03 (~ 0xaa))
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("0001805500000000000000000000000000000000000000000000000000000000")));
}

BOOST_AUTO_TEST_CASE(assembly_mload_mstore)
{
	char const* sourceCode = R"(
		(returnlll
			(asm
				0x07 0x00 mstore
				"abcdef" 0x20 mstore
				0x00 mload 0x40 mstore
				0x20 mload 0x60 mstore
				0x40 0x40 return))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(7), string("abcdef")));
}

BOOST_AUTO_TEST_CASE(assembly_sload_sstore)
{
	char const* sourceCode = R"(
		(returnlll
			(asm
				0x07 0x00 sstore
				"abcdef" 0x01 sstore
				0x00 sload 0x00 mstore
				0x01 sload 0x20 mstore
				0x40 0x00 return))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(7), string("abcdef")));
}

BOOST_AUTO_TEST_CASE(assembly_codecopy)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(lit 0x00 "abcdef")
				(asm
					0x06 6 codesize sub 0x20 codecopy
					0x20 0x20 return)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(string("abcdef")));
}

BOOST_AUTO_TEST_CASE(for_loop)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(for
					{ (set 'i 1) (set 'j 1) } ; INIT
					(<= @i 10)                ; PRED
					[i]:(+ @i 1)              ; POST
					[j]:(* @j @i))            ; BODY
				(return j 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(3628800))); // 10!
}

BOOST_AUTO_TEST_CASE(while_loop)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				;; Euclid's GCD algorithm
				(set 'a 1071)
				(set 'b 462)
				(while @b
					[a]:(raw @b [b]:(mod @a @b)))
				(return a 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(21))); // GCD(1071,462)
}

BOOST_AUTO_TEST_CASE(keccak256_32bytes)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore 0x00 0x01)
				(return (keccak256 0x00 0x20))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("b10e2d527612073b26eecdfd717e6a320cf44b4afac2b0732d9fcbe2b7fa0cf6")));
}

// The following tests are for the built-in macros.
// Note that panic, returnlll and return_one_arg are well covered above.

BOOST_AUTO_TEST_CASE(allgas)
{
	char const* sourceCode = R"(
		(returnlll
			(return (- (gas) allgas)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(16))); // == 21 - SUB - GAS
}

BOOST_AUTO_TEST_CASE(send_two_args)
{
	// "send" does not retain enough gas to be able to pay for account creation.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(send 0xdead 42))
		)";
		compileAndRun(sourceCode);
		callFallbackWithValue(42);
		BOOST_CHECK(balanceAt(Address(0xdead)) == 42);
	}
}

BOOST_AUTO_TEST_CASE(send_three_args)
{
	// "send" does not retain enough gas to be able to pay for account creation.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(send allgas 0xdead 42))
		)";
		compileAndRun(sourceCode);
		callFallbackWithValue(42);
		BOOST_CHECK(balanceAt(Address(0xdead)) == 42);
	}
}

// Regression test for edge case that previously failed
BOOST_AUTO_TEST_CASE(alloc_zero)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore 0x00 (~ 0))
				(alloc 0)
				(return 0x00 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(-1)));
}

BOOST_AUTO_TEST_CASE(alloc_size)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore 0x00 0) ; reserve space for the result of the alloc
				(mstore 0x00 (alloc (calldataload 0x04)))
				(return (- (msize) (mload 0x00)))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callContractFunction("test()", 0)  == encodeArgs(u256(0)));
	BOOST_CHECK(callContractFunction("test()", 1)  == encodeArgs(u256(32)));
	BOOST_CHECK(callContractFunction("test()", 32) == encodeArgs(u256(32)));
	BOOST_CHECK(callContractFunction("test()", 33) == encodeArgs(u256(64)));
}

BOOST_AUTO_TEST_CASE(alloc_start)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore 0x40 0)     ; Set initial MSIZE to 0x60
				(return (alloc 1))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(96));
}

BOOST_AUTO_TEST_CASE(alloc_with_variable)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(set 'x (alloc 1))
				(mstore8 @x 42)    ; ASCII '*'
				(return @x 0x20)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs("*"));
}

BOOST_AUTO_TEST_CASE(msg_six_args)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= 0 (calldatasize))
					(seq
						(mstore 0x40 1)
						(def 'outsize 0x20)
						(return (msg 1000 (address) 42 0x40 0x20 outsize) outsize)))
				(when (= 1 (calldataload 0x00))
					(return (callvalue)))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallbackWithValue(42) == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(msg_five_args)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= 0 (calldatasize))
					(seq
						(mstore 0x20 1)
						(mstore 0x40 2)
						(return (msg 1000 (address) 42 0x20 0x40))))
				(when (= 3 (+ (calldataload 0x00) (calldataload 0x20)))
					(return (callvalue)))))

	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallbackWithValue(42) == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(msg_four_args)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(when (= 0 (calldatasize))
					(return (msg 1000 (address) 42 0xff)))
				(return (callvalue))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallbackWithValue(42) == encodeArgs(u256(42)));
}

BOOST_AUTO_TEST_CASE(msg_three_args)
{
	// "msg" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(when (= 0 (calldatasize))
						(return (msg (address) 42 0xff)))
					(return (callvalue))))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallbackWithValue(42) == encodeArgs(u256(42)));
	}
}

BOOST_AUTO_TEST_CASE(msg_two_args)
{
	// "msg" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(when (= 0 (calldatasize))
						(return (msg (address) 0xff)))
					(return 42)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(u256(42)));
	}
}

BOOST_AUTO_TEST_CASE(create_one_arg)
{
	// "call" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(call allgas
						(create (returnlll (return 42)))
						0 0 0 0x00 0x20)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(u256(42)));
	}
}

BOOST_AUTO_TEST_CASE(create_two_args)
{
	// "call" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(call allgas
						(create 42 (returnlll (return (balance (address)))))
						0 0 0 0x00 0x20)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallbackWithValue(42) == encodeArgs(u256(42)));
	}
}

BOOST_AUTO_TEST_CASE(sha3_two_args)
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(mstore 0x00 0x01)
				(return (sha3 0x00 0x20))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("b10e2d527612073b26eecdfd717e6a320cf44b4afac2b0732d9fcbe2b7fa0cf6")));
}

BOOST_AUTO_TEST_CASE(sha3_one_arg)
{
	char const* sourceCode = R"(
		(returnlll
			(return (sha3 0x01)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("b10e2d527612073b26eecdfd717e6a320cf44b4afac2b0732d9fcbe2b7fa0cf6")));
}

BOOST_AUTO_TEST_CASE(sha3pair)
{
	char const* sourceCode = R"(
		(returnlll
			(return (sha3pair 0x01 0x02)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("0xe90b7bceb6e7df5418fb78d8ee546e97c83a08bbccc01a0644d599ccd2a7c2e0")));
}

BOOST_AUTO_TEST_CASE(sha3trip)
{
	char const* sourceCode = R"(
		(returnlll
			(return (sha3trip 0x01 0x02 0x03)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(
		fromHex("0x6e0c627900b24bd432fe7b1f713f1b0744091a646a9fe4a65a18dfed21f2949c")));
}

BOOST_AUTO_TEST_CASE(makeperm) // Covers makeperm (implicit), permcount and perm
{
	char const* sourceCode = R"(
		(returnlll
			(seq
				(perm 'x) (x (+ 1 x))
				(perm 'y) (y (+ 10 y))
				(when (= 2 permcount)
					(return (+ x y)))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(11)));
}

BOOST_AUTO_TEST_CASE(ecrecover)
{
	// "ecrecover" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(return
					(ecrecover
						; Hash of 'hello world'
						0x47173285a8d7341e5e972fc677286384f802f8ef42a5ec5f03bbfa254cb01fad
						; v = 1 + 27
						0x1c
						; r
						0xdebaaa0cddb321b2dcaaf846d39605de7b97e77ba6106587855b9106cb104215
						; s
						0x61a22d94fa8b8a687ff9c911c844d1c016d1a685a9166858f9c7c1bc85128aca)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(fromHex("0x8743523d96a1b2cbe0c6909653a56da18ed484af")));
	}
}

BOOST_AUTO_TEST_CASE(sha256_two_args)
{
	// "sha256" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(lit 0x20 "abcdefghijklmnopqrstuvwxyzABCDEF")
					(lit 0x40 "GHIJKLMNOPQRSTUVWXYZ0123456789?!")
					(sha256 0x20 0x40)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(
			fromHex("0xcf25a9fe3d86ae228c226c81d2d8c64c687cd6dc4586d10d8e7e4e5b6706d429")));
	}
}

BOOST_AUTO_TEST_CASE(ripemd160_two_args)
{
	// "ripemd160" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(lit 0x20 "abcdefghijklmnopqrstuvwxyzABCDEF")
					(lit 0x40 "GHIJKLMNOPQRSTUVWXYZ0123456789?!")
					(ripemd160 0x20 0x40)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(
			fromHex("0x36c6b90a49e17d4c1e1b0e634ec74124d9b207da")));
	}
}

BOOST_AUTO_TEST_CASE(sha256_one_arg)
{
	// "sha256" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(sha256 0x6162636465666768696a6b6c6d6e6f707172737475767778797a414243444546)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(
			fromHex("0xcfd2f1fad75a1978da0a444883db7251414b139f31f5a04704c291fdb0e175e6")));
	}
}

BOOST_AUTO_TEST_CASE(ripemd160_one_arg)
{
	// "ripemd160" does not retain enough gas.
	// Disabling for non-tangerineWhistle VMs.
	if (dev::test::Options::get().evmVersion().canOverchargeGasForCall())
	{
		char const* sourceCode = R"(
			(returnlll
				(seq
					(ripemd160 0x6162636465666768696a6b6c6d6e6f707172737475767778797a414243444546)
					(return 0x00 0x20)))
		)";
		compileAndRun(sourceCode);
		BOOST_CHECK(callFallback() == encodeArgs(
			fromHex("0xac5ab22e07b0fb80c69b6207902f725e2507e546")));
	}
}

BOOST_AUTO_TEST_CASE(wei_szabo_finney_ether)
{
	char const* sourceCode = R"(
		(returnlll
			(return (+ wei (+ szabo (+ finney ether)))))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(1001001000000000001)));
}

BOOST_AUTO_TEST_CASE(shift_left)
{
	char const* sourceCode = R"(
		(returnlll
			(return (shl 1 8)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(256)));
}

BOOST_AUTO_TEST_CASE(shift_right)
{
	char const* sourceCode = R"(
		(returnlll
			(return (shr 65536 8)))
	)";
	compileAndRun(sourceCode);
	BOOST_CHECK(callFallback() == encodeArgs(u256(256)));
}

BOOST_AUTO_TEST_SUITE_END()

}
}
} // end namespaces