anchor.diff:      {ok, _} = derflow:bind(GSetId, [1]),
       {ok, _} = derflow:bind(GSetId, [1, 2]),
       {ok, _} = derflow:bind(GSetId, [1, 2, 3]),
  -    {ok, _} = derflow:bind(GSetId, [1, 2, 3, 4]),
   
       %% Ensure we receive [1, 2, 3].
       GSet = receive
  
positive.code:     end,
  
      %% Spawn fun which should block until lattice reaches [1,2,3,4,5].
      spawn(fun() -> Me ! derflow:read(GSetId, {greater, [1,2,3,4]}) end),
  
      %% Perform another inflation.
      {ok, _} = derflow:bind(GSetId, [1, 2, 3, 4, 5]),
  
      %% Ensure we receive [1, 2, 3, 4, 5].
      GSet2 = receive
          {ok, [1, 2, 3, 4, 5], _} = V1 ->
              V1
      end,
  
  
negative.code:     lager:info("Remotely executing the test."),
      {GSet, GSet2} = rpc:call(Node, ?MODULE, test, []),
      ?assertMatch({ok, [1,2,3], _}, GSet),
      ?assertMatch({ok, [1,2,3,4], _}, GSet2),
  
      pass.
  
  