Add test for reaping tombs, and reflecting API changes associated wit… (

#4)

* Add test for reaping tombs, and reflecting API changes associated with  change

* Extend test to cover protocols and failure

And add to group

* Must have tictacaae enabled

But exchange tick set so that it will never run

* Update nextgenrepl_reaptombs.erl

Remove rogue config item

* Update to test with bucket types

* Remove rogue whitespace

ProtocolVersionError was not matching due to rogue white space

* Update nextgenrepl_reaptombs.erl

* Update rebar.config

groups/nextgenrepl

@@ -3,6 +3,7 @@ nextgenrepl_bouncingtomb
 nextgenrepl_deletemodes
 nextgenrepl_deletewithfailure
 nextgenrepl_external_reconcile
+nextgenrepl_reaptombs
 nextgenrepl_rtq_auto
 nextgenrepl_rtq_autocrdt
 nextgenrepl_rtq_autotypes

src/make_certs.erl

@@ -20,7 +20,7 @@
 -module(make_certs).
 -compile([export_all, nowarn_export_all]).
 
--export([all/1, all/2, rootCA/2, intermediateCA/3, endusers/3, enduser/3, revoke/3, gencrl/2, verify/3]).
+-export([all/1, all/2, rootCA/2, intermediateCA/3, endusers/3, enduser/3, revoke/3, gencrl/2, verify/3, version/0]).
 
 -record(dn, {commonName,
 	     organizationalUnitName = "Basho Engineering",
@@ -32,6 +32,9 @@
 
 -define(OpenSSLCmd, "openssl").
 
+version() ->
+    os:cmd(?OpenSSLCmd ++ " version").
+
 all([DataDir, PrivDir]) ->
 	all(DataDir, PrivDir).
 

tests/nextgenrepl_deletewithfailure.erl

@@ -217,7 +217,7 @@ test_repl(Protocol, [ClusterA, ClusterB]) ->
                             all,
                             count}),
     lager:info("Counted ~w active keys on B1 all time", [KB]),
-    {ok, {keys, TBL}} = aae_fold(NodeB1,
+    {ok, {keysclocks, TBL}} = aae_fold(NodeB1,
                         Protocol,
                         {find_tombs,
                             ?TEST_BUCKET, all,
@@ -468,7 +468,7 @@ fullsync_check(Protocol, {SrcNode, SrcNVal, SnkCluster},
     AAEResult.
 
 length_aae_fold(Node, Protocol, Query) ->
-    {ok, {keys, List}} = aae_fold(Node, Protocol, Query),
+    {ok, {_, List}} = aae_fold(Node, Protocol, Query),
     length(List).
 
 aae_fold(Node, Protocol, Query) ->