##
## Pixie::LockStrat::Exclusive tests
##

use lib 't/lib';
use blib;
use strict;
use warnings;

use Test::More qw( no_plan );
use Test::Exception;

use MockPixie qw( $pixie );

BEGIN { use_ok( 'Pixie::LockStrat::Exclusive' ); }

my $strat = Pixie::LockStrat::Exclusive->new;

## pre_store
$pixie->set_always( 'store', $pixie )
      ->set_always( 'lock_object_for', 'locked' );
is( $strat->pre_get( 'my oid', $pixie ), 'locked', 'pre_get' );

$strat->{on_DESTROY_called} = 1; # avoid warning