view release on metacpan or  search on metacpan

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

use Net::OAuth::ProtectedResourceRequest;

# verify() will not take the algorithm from the message being verified,
# so say which methods these tests expect (see VERIFYING MESSAGES in the
# Net::OAuth documentation).
@Net::OAuth::ALLOWED_SIGNATURE_METHODS = qw/RSA-SHA1/;

sub slurp {
    my $file = shift;
    my $text = do { local( @ARGV, $/ ) = $file ; <> } ;
    return $text;
}

SKIP: {

    skip "Crypt::OpenSSL::RSA not installed", 3 unless eval 'require Crypt::OpenSSL::RSA';

    my $publickey;
    my $privkey;