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/09_problems.t

use strict;
use warnings;

use Test::More tests => 22;

BEGIN { use_ok('OAuth::Lite::Problems') };
require_ok('OAuth::Lite::Problems');

for my $name (@OAuth::Lite::Problems::EXPORT_OK) {
    my $problem = OAuth::Lite::Problems->$name();
    ok(OAuth::Lite::Problems->match($problem));
}

ok(!OAuth::Lite::Problems->match(q{}));
ok(!OAuth::Lite::Problems->match(q{no_problem}));

Copyright 2K16 - 2K18 Indonesian Hacker Rulez