anchor.diff:          ({Options, Doc, EJson, Msg}) ->
               {Msg, ?_assertMatch(EJson, couch_doc:to_json_obj(Doc, Options))}
       end, Cases).
  -
  --endif.
  -
  
positive.code:                 ]}}
              ]}}]},
              #doc{atts = [
                  #att{
                      name = <<"my_attachment.fu">>,
                      data = stub,
                      type = <<"application/awesome">>,
                      att_len = 45,
                      disk_len = 45,
                      revpos = nil
                  },
                  #att{
                      name = <<"noahs_private_key.gpg">>,
                      data = <<"I have a pet fish!">>,
                      type = <<"application/pgp-signature">>,
                      att_len = 18,
                      disk_len = 18,
                      revpos = 0
                  }
              ]},
              "Attachments are parsed correctly."
          },
  
negative.code:         },
          {
              #doc{atts = [
                  couch_att:new([
                      {name, <<"big.xml">>},
                      {type, <<"xml/sucks">>},
                      {data, fun() -> ok end},
                      {revpos, 1},
                      {att_len, 400},
                      {disk_len, 400}
                  ]),
                  couch_att:new([
                      {name, <<"fast.json">>},
                      {type, <<"json/ftw">>},
                      {data, <<"{\"so\": \"there!\"}">>},
                      {revpos, 1},
                      {att_len, 16},
                      {disk_len, 16}
                  ])
              ]},
              {[
                   {<<"_id">>, <<>>},
  