AnyEvent-BitTorrent
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/000_tests/004_global.t view on Meta::CPAN
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
use Test::More;
use File::Temp;
$|++;
my $torrent = q[t/900_data/kubuntu-active-13.04-desktop-i386.iso.torrent];
my $basedir = File::Temp::tempdir('AB_XXXX', TMPDIR => 1);
chdir '../..' if !-f $torrent;
my $cv = AE::cv;
my $client;
my $to = AE::timer(90, 0, sub { diag 'Timeout'; ok 'Timeout'; $cv->send });
#
$client = AnyEvent::BitTorrent->new(
basedir => $basedir,
path => $torrent,
on_hash_pass => sub {
pass 'Got piece number ' . pop;
$client->stop;
$cv->send;
}
);
t/000_tests/005_local.t view on Meta::CPAN
use lib '../../lib';
use AnyEvent::BitTorrent;
#use Net::BitTorrent::Protocol qw[:all];
use Test::More;
use File::Temp;
$|++;
my $torrent = q[t/900_data/kubuntu-active-13.04-desktop-i386.iso.torrent];
chdir '../..' if !-f $torrent;
require t::800_utils::Tracker::HTTP;
my $cv = AE::cv;
my $to = AE::timer(90, 0, sub { diag 'Timeout'; ok 'Timeout'; $cv->send });
#
my $tracker =
t::800_utils::Tracker::HTTP->new(host => '127.0.0.1',
interval => 15
);
note 'HTTP tracker @ http://'
. $tracker->host . ':'
. $tracker->port
. '/announce.pl';
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.359 second using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )