use strict;
use warnings;
use Test::More;
use DBIx::QueryLog;
my $q = 'DBIx::QueryLog';
my $accessors = [qw(
logger threshold probability skip_bind
color useqq compact
)];
for my $accessor (@$accessors) {
subtest $accessor => sub {
is $q->$accessor, undef, 'default';
ok $q->$accessor('foo'), 'set ok';
is $q->$accessor, 'foo', 'get ok';
};
}
done_testing;