Copy aeminer_pow, aeminer_pow_cuckoo, aecuckoo_SUITE from ae node

aecuckoo_SUITE is moved from aecuckoo to aeminer To make the suite pass: - siphash24 module was taken from ae node - enacl has become a dep of aeminer (due to blake2b_256 hash)
2019-01-28 10:27:42 +01:00
parent 89d308437e
commit c2b9873d10
12 changed files with 1128 additions and 0 deletions
@@ -0,0 +1,65 @@
+%%%-------------------------------------------------------------------
+%%% @copyright (C) 2019, Aeternity Anstalt
+%%% @doc Basic sanity checks and examples on Cuckoo cycle PoW executables.
+%%% @end
+%%%-------------------------------------------------------------------
+-module(aecuckoo_SUITE).
+
+%% common_test exports
+-export(
+   [
+    all/0, groups/0,
+    init_per_group/2, end_per_group/2
+   ]).
+
+%% test case exports
+-export([smoke_test/1]).
+
+-include_lib("common_test/include/ct.hrl").
+
+-define(TEST_MODULE, aecuckoo).
+
+all() ->
+    [
+     {group, smoke_tests_15}
+    ].
+
+groups() ->
+    [
+     {smoke_tests_15, [{group, mean15},
+                       {group, lean15}]},
+     {mean15, [smoke_test]},
+     {lean15, [smoke_test]}
+    ].
+
+init_per_group(smoke_tests_15, Config) ->
+    [{nonce, 91} | Config];
+init_per_group(mean15, Config) ->
+    [{miner, 'mean15-generic'} | Config];
+init_per_group(lean15, Config) ->
+    [{miner, 'lean15-generic'} | Config].
+
+end_per_group(_Group, _Config) ->
+    ok.
+
+smoke_test(Config) ->
+    Nonce = ?config(nonce, Config),
+    Miner = ?config(miner, Config),
+
+    MinBin = ?TEST_MODULE:bin(atom_to_list(Miner)),
+    Cmd = io_lib:format("'~s' -n ~B | grep '^Solution'", [MinBin, Nonce]),
+    ct:log("Command: ~s~n", [Cmd]),
+    CmdRes = nonl(os:cmd(Cmd)),
+    ct:log("Command result: ~s~n", [CmdRes]),
+
+    Solution = lists:map(fun(X) -> list_to_integer(X, 16) end, tl(string:tokens(CmdRes, " "))),
+    HeaderEquivalent = <<0:(44*8), (base64:encode(<<Nonce:64/little-unsigned-integer>>))/binary, 0:(24*8)>>,
+
+    42 = length(Solution),
+    true = aeminer_pow_cuckoo:verify_proof_(HeaderEquivalent, Solution, 15),
+
+    ok.
+
+nonl([$\n]) -> [];
+nonl([]) -> [];
+nonl([H|T]) -> [H|nonl(T)].