FSA-Engine

 view release on metacpan or  search on metacpan

t/00_door.t  view on Meta::CPAN

use FindBin::libs;
use Test::More;
use Test::Output;

BEGIN {
    use_ok('Door');
}

my $door;
stdout_is(sub { $door = Door->new({fsa_state => 'locked'});}, "The door is locked\n", "Initial locked state");

isa_ok($door, 'Door');
is($door->fsa_state, 'locked', "Initial locked state");

my $new_state;
stdout_is(
    sub { $new_state = $door->fsa_check_state('TURN KEY CLOCKWISE');},
    "We are about to unlock the door\nThere is a quiet 'click'\nThe door is closed but unlocked\n",
    "Turn key clockwise"
);

is($new_state, 'closed', "Door is now closed but unlocked");

stdout_is(
    sub { $new_state = $door->fsa_check_state('TURN KEY ANTICLOCKWISE');},
    "There is a quiet 'click'\nThe door is locked\n",
    "Turn key anti-clockwise"
);

is($new_state, 'locked', "Door is locked again");

stdout_is(
    sub { $new_state = $door->fsa_check_state('TURN KEY CLOCKWISE');},
    "We are about to unlock the door\nThere is a quiet 'click'\nThe door is closed but unlocked\n",
    "Turn key clockwise"
);

is($new_state, 'closed', "Door is now closed but unlocked again");

stdout_is(
    sub { $new_state = $door->fsa_check_state('TURN KEY CLOCKWISE');},
    "",
    "Turn key clockwise again"
);

is($new_state, undef, "state unchanged: Door is still closed and unlocked");

stdout_is(
    sub { $new_state = $door->fsa_check_state('PUSH DOOR');},
    "",
    "Push against shut door"
);

is($new_state, undef, "state unchanged: Can't push against a closed door");

stdout_is(

t/00_door.t  view on Meta::CPAN

stdout_is(
    sub { $new_state = $door->fsa_check_state('PULL DOOR');},
    "",
    "Pull against an open door"
);

is($new_state, undef, "state unchanged: Can't open an open door");

stdout_is(
    sub { $new_state = $door->fsa_check_state('PuSh DoOr');},
    "We are about to shut the door\nThere is a falling 'EEERRRrrrkkk' sound\nThe door is closed but unlocked\n",
    "PuSh DoOr is recognised"
);

is($new_state, 'closed', "Mixed case state is recognised");

stdout_is(
    sub { $new_state = $door->fsa_check_state('PULL DOOR');},
    "There is a rising 'eeerrrRRRKKK' sound\nThe door is open\n",
    "Pull against shut door"
);

is($new_state, 'open', "Door is pulled open");

stdout_is(
    sub { $new_state = $door->fsa_check_state('SHOVE DOOR');},
    "We are about to shut the door\nThe door slams shut with a BANG\nThe door is closed but unlocked\n",
    "Shoved door"
);

is($new_state, 'closed', "Door is slammed closed");

done_testing();
1;

t/lib/Door.pm  view on Meta::CPAN

use Moose;
use FSA::Engine::Transition;

with 'FSA::Engine';

sub _build_fsa_transitions {
    my ($self) = @_;

    my $transitions = {
        locked  => {
            unlock_door => FSA::Engine::Transition->new({
                test    => 'TURN KEY CLOCKWISE',
                action  => sub {$self->action_turn_key(@_)},
                state   => 'closed',
            }),
        },
        closed => {
            lock_door   => FSA::Engine::Transition->new({
                test    => 'TURN KEY ANTICLOCKWISE',
                action  => sub {$self->action_turn_key(@_)},
                state   => 'locked',
            }),
            open_door   => FSA::Engine::Transition->new({
                test    => 'PULL DOOR',
                action  => sub {print "There is a rising 'eeerrrRRRKKK' sound\n";},
                state   => 'open',
            }),
        },
        open => {
            slam_door   => FSA::Engine::Transition->new({
                test    => 'SHOVE DOOR',

t/lib/Door.pm  view on Meta::CPAN

            }),
        },
    };
    return $transitions;
}

sub _build_fsa_states {
    my ($self) = @_;

    my $states = {
        locked => {
            entry_action    => sub {print "The door is locked\n";},
            exit_action     => sub {print "We are about to unlock the door\n";},
        },
        closed => {
            entry_action    => sub {print "The door is closed but unlocked\n";},
        },
        open => {
            entry_action    => sub {print "The door is open\n";},
            exit_action     => sub {print "We are about to shut the door\n";},
        },
    };
    return $states;
}

sub action_turn_key {