anchor.diff:      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_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_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_assert_ldap(1),
   
       t_start("RO Admin access - match. LDAP."),
       apply_ro_auth(t_new_request({"Ldapro", "pwd4"}), fun t_success/2, [none]),
  
positive.code:     BucketsAll = [Name || {Name, _} <- SampleBuckets],
  
      Test =
          fun ({Auth, Expected, _LdapCount}) ->
                  t_start("Filter accessible buckets. Auth = ~p", [Auth]),
                  Buckets = apply_auth_any_bucket(
                              t_new_request(Auth),
                              fun (_, NewReq) ->
                                      filter_accessible_buckets(t_sample_buckets(), NewReq)
                              end, [none]),
                  t_assert_buckets(Expected, Buckets)
                  %%t_assert_ldap(LdapCount)
          end,
  
      [Test(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) ||
  