anchor.diff:      BucketsAll = [Name || {Name, _} <- SampleBuckets],
   
       Test =
  -        fun (Bucket, Auth, _LdapCount, Expected) ->
  +        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)
  +                ?assertEqual(Expected, Result),
  +                t_assert_ldap(LdapCount)
           end,
   
       [Test(Bucket, Auth, LdapCount, Expected) ||
  
positive.code: test_bucket() ->
      t_seed_sample_data(),
      TestAccess =
          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)
          end,
  
      [TestAccess(Bucket, Args) ||
  
negative.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) ||
  