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:     case bind_port(PortSpec, Port, []) of
          {ok, PortBindings} ->
              case bind(lists:reverse(HostSpec), Host, PortBindings, 0) of
                  {ok, HostRemainder, HostBindings, _} ->
                      case try_path_binding(PathSpec, Path, HostRemainder, Port, HostBindings, Depth, RD) of
                          {Mod, Props, PathRemainder, PathBindings,
                           AppRoot, StringPath} ->
                              {Mod, Props, HostRemainder, Port, PathRemainder,
                               PathBindings, AppRoot, StringPath};
                          {no_dispatch_match, _} ->
                              try_host_binding(Rest, Host, Port, Path, Depth, RD)
                      end;
                  fail ->
                      try_host_binding(Rest, Host, Port, Path, Depth, RD)
              end;
          fail ->
              try_host_binding(Rest, Host, Port, Path, Depth, RD)
      end.
  
  bind_port(Port, Port, Bindings) -> {ok, Bindings};
  
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,
  