anchor.diff:                           'Read','SimpleStats', 'SystemXattrRead', 'SystemXattrWrite',
                            'Tap','Write','XattrRead', 'XattrWrite']}]}},
               {privileges,[]},
  -            {type, builtin}]}}],
  +            {type, local}]}}],
       ?assertEqual(Json, generate_json_45(Buckets, RoleDefinitions)).
  
positive.code:                fun (Identity, Roles, Dict) ->
                         {Permissions, NewDict} =
                             permissions_for_user(Roles, Buckets, RoleDefinitions, Dict),
                         ?yield({kv, jsonify_user(Identity, Permissions)}),
                         NewDict
                 end,
  
  
negative.code:     {list_to_binary(UserName), {[Buckets, Global, {type, Type}]}}.
  
  memcached_admin_json(AU, Buckets) ->
      jsonify_user({AU, local}, [{global, [all]} | [{Name, [all]} || Name <- Buckets]]).
  
  generate_json_45(Buckets, RoleDefinitions) ->
      RolesDict = dict:new(),
  