anchor.diff:  test_bucket() ->
       t_seed_sample_data(),
       TestAccess =
  -        fun (Bucket, {Auth, ReadOnlyOk, _LdapCount, Result}) ->
  +        fun (Bucket, {Auth, ReadOnlyOk, LdapCount, Result}) ->
   
                   t_start("Bucket access. Bucket = ~p, Auth = ~p, ReadOnlyOk = ~p",
                           [Bucket, Auth, ReadOnlyOk]),
                   apply_auth_bucket(t_new_request(Auth), fun t_success/2, [none], Bucket, ReadOnlyOk),
  -                t_assert_result(Result)
  -                %%t_assert_ldap(LdapCount)
  +                t_assert_result(Result),
  +                t_assert_ldap(LdapCount)
           end,
   
       [TestAccess(Bucket, Args) ||
  
positive.code:                         [BucketId, ReadOnlyOk]),
                  apply_auth_bucket(t_new_request({"user", "pwd"}), fun t_success/2,
                                    [none], BucketId, ReadOnlyOk),
                  t_assert_success("user", "admin", "builtin", "undefined")
                  %%t_assert_ldap(0)
          end,
  
      [TestBucket(BucketId, ReadOnlyOk) ||
  
negative.code:     t_start("RO Admin access - matched to admin."),
      apply_ro_auth(t_new_request({"Admin", "pwd1"}), fun t_success/2, [none]),
      t_assert_success("Admin", "admin", "builtin", "undefined"),
      t_assert_ldap(0),
  
      t_start("RO Admin access - no match."),
      apply_ro_auth(t_new_request({"someone", "pwd1"}), fun t_success/2, [none]),
      t_assert_result(require_auth),
      t_assert_ldap(1),
  
      t_start("RO Admin access - matched to admin. LDAP."),
      apply_ro_auth(t_new_request({"Ldapadmin", "pwd3"}), fun t_success/2, [none]),
      t_assert_success("Ldapadmin", "admin", "saslauthd", "undefined"),
      t_assert_ldap(1),
  
      t_start("RO Admin access - match. LDAP."),
      apply_ro_auth(t_new_request({"Ldapro", "pwd4"}), fun t_success/2, [none]),
  