App-Pastebin-sprunge
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/02-retrieve.t view on Meta::CPAN
use IO::Socket::INET;
use App::Pastebin::sprunge;
BEGIN {
@ARGV = qw(ILSD);
}
my $sock = IO::Socket::INET->new(
PeerHost => 'sprunge.us',
PeerPort => 80,
Timeout => 5,
Type => SOCK_STREAM,
);
SKIP: {
skip "Couldn't connect to sprunge.us: $!", 1
unless defined $sock;
$sock->close;
my ($out, $err) = output_from {
eval { App::Pastebin::sprunge->new->run };
t/03-create.t view on Meta::CPAN
BEGIN {
$^W = 0; # Disable warnings because HTTP::Request::Common warns spuriously
*STDIN = *DATA; # Fake out the library being tested - how sneaky!
@ARGV = ();
}
use warnings;
my $sock = IO::Socket::INET->new(
PeerHost => 'sprunge.us',
PeerPort => 80,
Timeout => 5,
Type => SOCK_STREAM,
);
SKIP: {
skip "Couldn't connect to sprunge.us: $!", 1
unless defined $sock;
$sock->close;
my ($out, $err) = output_from {
eval { App::Pastebin::sprunge->new->run };
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.487 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )