Current Path : /proc/2/root/usr/local/ssl/OAuth-Lite-1.32/t/

Upload File :

Current File : //proc/2/root/usr/local/ssl/OAuth-Lite-1.32/t/10_content_length.t

use strict;
use warnings;
use utf8;
use Test::More;

use OAuth::Lite::Consumer;

# length(udnef) returns undef after perl 5.12+.

my $c = OAuth::Lite::Consumer->new(
    key          => 'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk',
    secret       => 'ssssssssssssssss',
);
my $req = $c->gen_oauth_request(
    params => {
        oauth_callback => "oob",
    },
    realm => "",
    url   => "http://localhost/",
);
is($req->method, 'POST');
is($req->content_length, 0);

done_testing;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez