view release on metacpan or  search on metacpan

t/00_compile.t  view on Meta::CPAN

# -*- perl -*-

use strict;
use warnings;
use lib qw(lib);

use Test::More tests => 1;

BEGIN { use_ok('AnyEvent::Mac::Pasteboard'); }

t/01_construct.t  view on Meta::CPAN

use strict;
use warnings;
use lib qw(lib);

use Test::More tests => 2;
use AnyEvent;
use AnyEvent::Mac::Pasteboard;

my $TIMEOUT_SEC = 3;

diag("wait $TIMEOUT_SEC seconds for test.");

sub say { print @_, "\n"; }

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

use strict;
use warnings;
use lib qw(lib);
use utf8;

use constant TEST_COUNT => 4;

use Test::More tests => TEST_COUNT;

use AnyEvent;
use AnyEvent::Mac::Pasteboard ();
use Encode;
use File::Temp;