anchor.diff:      fun (Path, K) ->
               URL = menelaus_rest:rest_url(Host, Port, Path, Scheme),
               ?log_debug("Doing get of ~s", [URL]),
  -            ?log_debug("args: ~p", [{get,
  -                                     {URL, {Host, Port, Path}},
  -                                     {Username, Password},
  -                                     Options}]),
               R = menelaus_rest:json_request_hilevel(get,
                                                      {URL, {Host, Port, Path}},
                                                      {Username, Password},
                                                      Options),
  -
  -            ?log_debug("R: ~p", [R]),
   
               case R of
                   {ok, Value} ->
  
positive.code:     JsonGet(
        "/pools",
        fun (PoolsRaw) ->
                ?log_debug("Have PoolsRaw: ~p", [PoolsRaw]),
                expect_object(
                  PoolsRaw, Context,
                  fun (Pools) ->
  
negative.code:     true = (Username =/= undefined),
      true = (Password =/= undefined),
      true = (Hostname =/= undefined),
  
      {Host, Port} = host_and_port(Hostname),
  
  