anchor.diff:                   try_host_binding(Dispatch, ["foo","quux","bar"],80,["d"],0, RD)).
   
   try_host_binding_wildcard_token_order_test() ->
  -    RD = testing,
  +    RD = wrq:create('GET', http, {1,1}, "testing", mochiweb_headers:from_list([])),
       Dispatch = [{{['*',"quux","com"],80},[{['*'],x,y}]}],
       ?assertEqual({x,y,["foo","bar","baz"],80,[],[],".",""},
                    dispatch("foo.bar.baz.quux.com","/",Dispatch,RD)).
  
positive.code:                  try_host_binding([], ["bar","foo"], 1234, ["x","y","z"], 0, RD)).
  
  dispatch_test() ->
      RD = testing,
      TrueFun = fun(_) -> true end,
      FalseFun = fun(_) -> false end,
  
  
negative.code:     ?assertEqual(["foo","bar","baz"], split_host("foo.bar.baz")).
  
  split_host_port_test() ->
      ?assertEqual({[], 80}, split_host_port("", http)),
      ?assertEqual({["foo","bar","baz"], 80},
                   split_host_port("foo.bar.baz:80", http)),
      ?assertEqual({["foo","bar","baz"], 1234},
                   split_host_port("foo.bar.baz:1234", http)),
  
      ?assertEqual({[], 443}, split_host_port("", https)),
      ?assertEqual({["foo","bar","baz"], 443},
                   split_host_port("foo.bar.baz", https)),
      ?assertEqual({["foo","bar","baz"], 1234},
                   split_host_port("foo.bar.baz:1234", https)).
  
  %% port binding
  bind_port_simple_match_test() ->
  