anchor.diff:                  t_start("Any basic auth access to non initialized cluster is allowed. Fun = ~p",
                           [Name]),
                   Fun(t_new_request({"user", "pwd"}), fun t_success/2, [none]),
  -                t_assert_success("user", "admin", "builtin", "undefined")
  -                %%t_assert_ldap(0)
  +                t_assert_success("user", "admin", "builtin", "undefined"),
  +                t_assert_ldap(0)
           end,
   
       [TestAccess(Name, Fun) ||
  
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:     BucketsAll = [Name || {Name, _} <- SampleBuckets],
  
      Test =
          fun (Bucket, Auth, LdapCount, Expected) ->
                  BucketTuple = lists:keyfind(Bucket, 1, SampleBuckets),
                  t_start("Is bucket accessible. Bucket = ~p, Auth = ~p", [Bucket, Auth]),
                  Result = is_bucket_accessible(BucketTuple, t_new_request(Auth)),
                  t_print_ldap_count(),
                  ?assertEqual(Expected, Result),
                  t_assert_ldap(LdapCount)
          end,
  
      [Test(Bucket, Auth, LdapCount, Expected) ||
  