anchor.diff:            "Should add Content-Type only if Cache-Control is present"},
   
           {[ApplicationJson],
  -         [ApplicationJson, MustRevalidate],
  +         [MustRevalidate, ApplicationJson],
             "Should add Cache-Control if Content-Type is present"},
   
           {[NoCache, ApplicationJson],
  
positive.code: -ifdef(TEST).
  -include_lib("couch/include/couch_eunit.hrl").
  
  maybe_add_header_test_() ->
      Cases = [
          {[],                    % initial headers
           {"K1", "V1"},          % header to add
            [{"K1", "V1"}],       % expected result
             "Adding to empty headers"},
  
          {[{"K1", "V1"}],
           {"K2", "V2"},
            [{"K1", "V1"}, {"K2", "V2"}],
             "Adding header to 1 element headers list"},
  
          {[{"K1", "V1"}],
           {"K1", "V2"},
            [{"K1", "V1"}],
             "Trying to add same header to 1 element headers list"},
  
          {[{"K1", "V1"}, {"K2", "V2"}],
           {"K1", "V2"},
            [{"K1", "V1"}, {"K2", "V2"}],
             "Trying to add same header to 2 element headers list"},
  
          {[{"K1", "V1"}, {"K2", "V2"}],
           {"K3", "V3"},
            [{"K1", "V1"}, {"K2", "V2"}, {"K3", "V3"}],
             "Adding header to 2 elements headers list"}
      ],
      Tests = lists:map(fun({InitialHeaders, HeaderToAdd, ProperResult, Desc}) ->
          {Desc,
          ?_assertEqual(ProperResult,
              maybe_add_header(HeaderToAdd, InitialHeaders))}
      end, Cases),
      {"Tests adding a header to a list of headers", Tests}.
  
  maybe_add_default_headers_test_() ->
      DummyRequest = [],
      NoCache = {"Cache-Control", "no-cache"},
  
negative.code:     ApplicationJavascript = {"Content-Type", "application/javascript"},
      Cases = [
          {[],
           [MustRevalidate, ApplicationJavascript],
            "Should add Content-Type and Cache-Control to empty heaeders"},
  
          {[NoCache],
  