anchor.diff:        fun() -> test_setup(), fixture() end,
         fun(_) -> ok end,
         [?_assertEqual(1, length(reachable(wallaroo_store_ets:find_object(es), wallaroo_store_ets, as_list))),
  -       ?_assertEqual(2, length(reachable(wallaroo_store_ets:find_object(fs), wallaroo_store_ets, as_list)))]}}.
  -	     
  -	      
  +       ?_assertEqual(2, length(reachable(wallaroo_store_ets:find_object(fis), wallaroo_store_ets, as_list))),
  +       ?_assertEqual(2, length(reachable(wallaroo_store_ets:find_object(ss), wallaroo_store_ets, as_list))),
  +       ?_assertEqual(3, length(reachable(wallaroo_store_ets:find_object(ts), wallaroo_store_ets, as_list))),
  +       ?_assertEqual(4, length(reachable(wallaroo_store_ets:find_object(fos), wallaroo_store_ets, as_list))),
  +       ?_assertEqual(4, length(reachable(wallaroo_store_ets:find_object(ffs), wallaroo_store_ets, as_list)))
  +]}}.
  +	     	      
   -endif.
  
positive.code: fixture() ->
      SM = wallaroo_store_ets,
      EmptySHA = store(empty(), SM),
      FirstSHA = store(new([EmptySHA], bogus, [], []), SM),
      SM:store_object(es, EmptySHA), 
      SM:store_object(fs, FirstSHA).
  
  basic_test_() ->
      {inorder,
  
negative.code:     reachable_helper([From], StoreMod, gb_sets:empty()).
  
  reachable_helper([], _, Visited) ->
      Visited;
  reachable_helper([Hash|Hs], StoreMod, Visited) ->
      case gb_sets:is_member(Hash, Visited) of 
  	true ->
  	    reachable_helper(Hs, StoreMod, Visited);
  