view release on metacpan or  search on metacpan

t/12-ipc_shareable.t  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use Test::More;

# duplicate key
# scalar values only
# multiple scalars per event
# class or object based?

BEGIN {
    if (! $ENV{CI_TESTING}) {
        plan skip_all => "Not on a valid CI testing platform...";
    }
    warn "Segs before: " . `ipcs -m | wc -l` . "\n" if $ENV{PRINT_SEGS};
}

require IPC::Shareable;
import IPC::Shareable;
use Async::Event::Interval;

my $mod = 'Async::Event::Interval';

tie my $scalar, 'IPC::Shareable', { destroy => 1 };

$scalar = -1;

is $scalar, -1, "shared var has original value before event start" ;

my $e = $mod->new(0.2, \&perform);
$e->start;
select(undef, undef, undef, 0.4);
$e->stop;

is $scalar, 99, "shared var has updated value after event start" ;

sub perform {
    $scalar = 99;
}

warn "Segs after: " . `ipcs -m | wc -l` . "\n" if $ENV{PRINT_SEGS};

done_testing();