view release on metacpan or  search on metacpan

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

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 };
        print STDERR $@;
    };
    skip 'Test needs to be updated; email doherty@cpan.org', 1
        if $err and $err =~ /No such paste/;
    like $out => qr/ohaithar/, 'Paste retrieved - and done correctly';
}

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

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 };
        print STDERR $@;
    };

    skip 'Test needs to be updated; email doherty@cpan.org'
        if $err and $err =~ /No such paste/;
    like $out => qr{http://sprunge.us/[a-zA-Z]+},
        'Paste created - and done correctly';
}

__DATA__
text
more text