view release on metacpan or  search on metacpan

t/01-empty.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use Test::AnyEvent::WebService::Tracks tests => 4;

my $tracks = get_tracks;

run_tests_in_loop {
    my ( $cond ) = @_;

    my $count = 3;

    $tracks->projects(sub {
        my ( $projects ) = @_;

        is_deeply($projects, []);
        $cond->send unless --$count;
    });

    $tracks->contexts(sub {
        my ( $contexts ) = @_;

        is_deeply($contexts, []);
        $cond->send unless --$count;
    });

    $tracks->todos(sub {
        my ( $todos ) = @_;

        is_deeply($todos, []);
        $cond->send unless --$count;
    });
};