view release on metacpan or  search on metacpan

t/02timer.t  view on Meta::CPAN

#!/usr/bin/perl

use v5.14;
use warnings;

use Test::More;
use Test::Timer;

use AnyEvent;
use AnyEvent::Future;

# TODO - suggest this for Test::Timer
sub time_about
{
   my ( $code, $limit, $name ) = @_;
   time_between $code, $limit * 0.9, $limit * 1.1, $name;
}

# new_delay
{
   my $future = AnyEvent::Future->new_delay( after => 1 );

   time_about( sub { $future->await }, 1, '->new_delay future is ready' );

   is_deeply( [ $future->get ], [], '$future->get returns empty list on new_delay' );
}

# new_timeout
{
   my $future = AnyEvent::Future->new_timeout( after => 1 );

   time_about( sub { $future->await }, 1, '->new_timeout is ready' );

   ok( $future->is_ready, '$future is ready from new_timeout' );
   is( $future->failure, "Timeout", '$future failed with "Timeout" for new_timeout' );
}

done_testing;