use t::boilerplate;

use Test::More;
use Capture::Tiny qw( capture );

use_ok 'Class::Usul::Lock';

my $lock = Class::Usul::Lock->new_with_options
   (  appclass => 'Class::Usul',
      config   => { logsdir => 't', tempdir => 't', },
      lock_key => 'test',
      method   => 'list',
      noask    => 1,
      quiet    => 1, );

$lock->set;

my ($stdout) = capture { $lock->list };

like $stdout, qr{ \A test, }mx, 'Sets and lists';

$lock->reset;

($stdout) = capture { $lock->list };

is length $stdout, 0, 'Resets and lists';

done_testing;

# Local Variables:
# mode: perl
# tab-width: 3
# End:
# vim: expandtab shiftwidth=3: