anchor.diff:      ?assertEqual({x, y, [], 1234, [], [], "../../..", ""},
                    dispatch("foo.bar:1234", "a/b/",
                             [{{["foo","bar"],1234},[{["a","b"],x,y}]}], RD)),
  -    ?assertEqual({no_dispatch_match, {["bar","baz"],8000}, ["q","r"]},
  +    ?assertEqual({no_dispatch_match, {["baz","bar"],8000}, ["q","r"]},
                    dispatch("baz.bar:8000", "q/r",
                             [{{["foo","bar"],80},[{["a","b","c"],x,y}]}], RD)).
   
  
positive.code:                      _ -> 0
                   end,
      {Host, Port} = split_host_port(HostAsString),
      try_host_binding(DispatchList, lists:reverse(Host), Port,
                       Path, ExtraDepth, RD).
  
  split_host_port(HostAsString) ->
      case string:tokens(HostAsString, ":") of
  
negative.code:     ?assertEqual(1234, proplists:get_value(baz, PathBindings)),
      ?assertEqual(".", AppRoot),
      ?assertEqual("", StringPath),
      ?assertEqual({t, u, ["foo","quux"], 80, [], [], ".", ""},
                   try_host_binding(Dispatch, ["foo","quux","bar"],80,["d"],0, RD)).
  
  try_host_binding_wildcard_token_order_test() ->
      RD = testing,
      Dispatch = [{{['*',"quux","com"],80},[{['*'],x,y}]}],
      ?assertEqual({x,y,["foo","bar","baz"],80,[],[],".",""},
                   dispatch("foo.bar.baz.quux.com","/",Dispatch,RD)).
  
  try_host_binding_fail_test() ->
      RD = testing,
  