view release on metacpan or  search on metacpan

t/20governor-simple.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use CPS::Governor::Simple;

my $gov = CPS::Governor::Simple->new;

ok( defined $gov, 'defined $gov' );
isa_ok( $gov, "CPS::Governor", '$gov' );

my $called = 0;
$gov->again( sub { $called = 1 } );

is( $called, 1, '$called is 1 after $gov->again' );

$gov->again( sub { $called = shift }, 3 );

is( $called, 3, '$called is 3 after $gov->again with arguments' );

my $poke;
$gov->enter( sub { $called = 4; $poke = shift; }, sub { $called = 5 } );

is( $called, 4, '$called is 4 after $gov->enter storing kleave' );

$poke->();

is( $called, 5, '$called is 5 after invoking stored kleave' );

done_testing;