anchor.diff:                   try_host_binding(Dispatch, ["bar","quux","foo"],80,["d"],0, RD)).
   
   try_host_binding_fail_test() ->
  -    RD = ignored,
  +    RD = testing,
       ?assertEqual({no_dispatch_match, {["bar","foo"], 1234}, ["x","y","z"]},
                    try_host_binding([], ["bar","foo"], 1234, ["x","y","z"], 0, RD)).
   
   dispatch_test() ->
  -    RD = ignored,
  +    RD = testing,
       TrueFun = fun(_) -> true end,
       FalseFun = fun(_) -> false end,
   
  
positive.code:     ?assertEqual(fail, bind(["a","b"], ["a","c"], [], 0)).
  
  try_path_matching_test() ->
      RD = ignored,
      ?assertEqual({bar, baz, [], [], ".", ""},
                   try_path_binding([{["foo"], bar, baz}], ["foo"], [], 0, RD)),
      Dispatch = [{["a", x], foo, bar},
                  {["b", y], baz, quux},
                  {["b", y, '*'], baz2, quux2}],
      ?assertEqual({foo, bar, [], [{x, "c"}], "../..", []},
                   try_path_binding(Dispatch, ["a","c"], [], 0, RD)),
      ?assertEqual({baz, quux, [], [{y, "c"}], "../..", []},
                   try_path_binding(Dispatch, ["b","c"], [], 0, RD)),
      ?assertEqual({baz2, quux2, ["z"], [{y, "c"}], "../../..", "z"},
                   try_path_binding(Dispatch, ["b","c","z"], [], 0, RD)),
      ?assertEqual({baz2, quux2, ["z","v"], [{y, "c"}], "../../../..", "z/v"},
                   try_path_binding(Dispatch, ["b","c","z","v"], [], 0, RD)).
  
  try_path_failing_test() ->
      RD = ignored,
      ?assertEqual({no_dispatch_match, ["a"]},
                   try_path_binding([{["b"], x, y}], ["a"], [], 0, RD)).
  
  %% host binding
  
  try_host_binding_nohosts_test() ->
      RD = ignored,
      PathDispatches = [{["a"], foo, bar},
                        {["b"], baz, quux}],
      ?assertEqual(try_host_binding([{{['*'],'*'},PathDispatches}],
  
negative.code:         {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,
  