anchor.diff:      #{<<"value">> := GetState} = decode_data(StateType, Return),
       GetState.
   
  -call_get_state_i(NodeName, Pubkey, Privkey, EncodedMapsPubkey, GetArg) ->
  -    {GSValue,_} = call_compute_func(NodeName, Pubkey, Privkey,
  -                                    EncodedMapsPubkey,
  -                                    <<"get_state_i">>, GetArg),
  -    #{<<"value">> := GetValue} = decode_data(<<"(int, int)">>, GSValue),
  -    GetValue.
  -
  -call_get_state_s(NodeName, Pubkey, Privkey, EncodedMapsPubkey, GetArg) ->
  -    {GSValue,_} = call_compute_func(NodeName, Pubkey, Privkey,
  -                                    EncodedMapsPubkey,
  -                                    <<"get_state_s">>, GetArg),
  -    #{<<"value">> := GetValue} = decode_data(<<"(int, int)">>, GSValue),
  -    GetValue.
  -
   %% enironment_contract(Config)
   %%  Check the Environment contract. We don't always check values and
   %%  the nested calls don't seem to work yet.
   
   environment_contract(Config) ->
  -    NodeName = proplists:get_value(node_name, Config),
  +    Node = proplists:get_value(node_name, Config),
       %% Get account information.
  -    #{acc_a := #{pub_key := APubkey,
  -                 priv_key := APrivkey},
  -      acc_b := #{pub_key := BPubkey,
  -                 priv_key := BPrivkey},
  -      acc_c := #{pub_key := CPubkey,
  -                 priv_key := CPrivkey},
  -      acc_d := #{pub_key := DPubkey,
  -                 priv_key := DPrivkey}} = proplists:get_value(accounts, Config),
  +    #{acc_a := #{pub_key := APub,
  +                 priv_key := APriv},
  +      acc_b := #{pub_key := BPub,
  +                 priv_key := BPriv}} = proplists:get_value(accounts, Config),
   
       %% Make sure accounts have enough tokens.
  -    ABal0 = ensure_balance(APubkey, 500000),
  -    BBal0 = ensure_balance(BPubkey, 500000),
  -    CBal0 = ensure_balance(CPubkey, 500000),
  -    DBal0 = ensure_balance(DPubkey, 500000),
  -    {ok,[_]} = aecore_suite_utils:mine_key_blocks(NodeName, 1),
  +    _ABal0 = ensure_balance(APub, 500000),
  +    BBal0 = ensure_balance(BPub, 500000),
   
       %% Compile test contract "environment.aes"
       Code = compile_test_contract("environment"),
  
positive.code:     %% Set the cost from the amount, decrease and diff in height.
      Cost = StartAmt - (Height1 - Height0) * Decrease,
  
      BBal2 = get_balance(BPubkey),
      CBal2 = get_balance(CPubkey),
  
      %% ct:pal("B Balances ~p, ~p, ~p\n", [BBal0,BBal1,BBal2]),
      %% ct:pal("Cost ~p, GasUsed ~p, Fee ~p\n", [Cost,GasUsed,Fee]),
      %% ct:pal("C Balances ~p, ~p, ~p\n", [CBal0,CBal1,CBal2]),
  
      %% Check that the balances are correct, don't forget the gas and the fee.
      BBal2 = BBal1 - Cost - GasUsed - Fee,
  
negative.code:                  acc_d => #{pub_key => DPubkey,
                              priv_key => DPrivkey,
                              start_amt => StartAmt}},
      [{accounts,Accounts},{node_name,NodeName}|Config].
  
  end_per_group(_Group, Config) ->
      RpcFun = fun(M, F, A) -> rpc(?NODE, M, F, A) end,
  