AnyEvent-WebService-Tracks

 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;

t/02-context.t  view on Meta::CPAN

use strict;
use warnings;

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

use List::MoreUtils qw(all);
use Scalar::Util qw(looks_like_number);
use Storable qw(dclone);
use Test::AnyEvent::WebService::Tracks;
use Test::Exception;
use UNIVERSAL ();

my @orig_contexts = qw(One Two Three Four);
my @contexts      = @orig_contexts;

t/03-project.t  view on Meta::CPAN

use strict;
use warnings;

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

use List::MoreUtils qw(all);
use Scalar::Util qw(looks_like_number);
use Storable qw(dclone);
use Test::AnyEvent::WebService::Tracks;
use Test::Exception;
use UNIVERSAL ();

my @orig_projects = qw(P1 P2 P3 P4);
my @projects      = @orig_projects;

t/04-todo.t  view on Meta::CPAN

use strict;
use warnings;

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

use List::MoreUtils qw(all);
use Scalar::Util qw(looks_like_number);
use Storable qw(dclone);
use Test::AnyEvent::WebService::Tracks;
use Test::Exception;
use UNIVERSAL ();

my @orig_todos = ('Walk the dog', 'Finish TPS report', 'Take out the trash',
    'Install Tracks');

t/05-context-todos.t  view on Meta::CPAN

use strict;
use warnings;

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

use Test::AnyEvent::WebService::Tracks tests => 39;
use Test::Exception;

my @contexts = qw(
    One
    Two
    Three
    Four
);

t/06-project-todos.t  view on Meta::CPAN

use strict;
use warnings;

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

use Test::AnyEvent::WebService::Tracks tests => 60;
use Test::Exception;

clear_tracks;
my $tracks = get_tracks;

my @project_names = map { "Project $_" } 1..4;
my @todo_names = map { "Todo $_" } 1..8;

t/07-destroy.t  view on Meta::CPAN

use strict;
use warnings;

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

use Test::AnyEvent::WebService::Tracks tests => 8;
use Test::Exception;

clear_tracks;
my $tracks = get_tracks;

run_tests_in_loop {
    my ( $cond ) = @_;

t/08-project-todo-states.t  view on Meta::CPAN

use strict;
use warnings;

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

use Test::AnyEvent::WebService::Tracks tests => 13;
use Test::Exception;

clear_tracks;
my $tracks = get_tracks;

run_tests_in_loop {
    my ( $cond ) = @_;

t/pod.t  view on Meta::CPAN

use strict;
use warnings;

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

use Test::More tests => 1;

pass;