|
#!perl -T
my $class = 'Plack::App::PubSubHubbub::Subscriber::Config' ;
note 'bad config' ;
throws_ok { $class ->new() } qr/required/ ;
throws_ok { $class ->new(
) } qr/support only http/ ;
throws_ok { $class ->new(
) } qr/fragment/ ;
throws_ok { $class ->new(
verify => 'not_supported' ,
) } qr/verify/ ;
throws_ok { $class ->new(
verify => 'sync' ,
lease_seconds => -1,
) } qr/number/ ;
note 'good config' ;
my $conf ;
lives_ok { $conf = $class ->new(
) };
isa_ok $conf , 'Plack::App::PubSubHubbub::Subscriber::Config' ;
is $conf ->verify, 'sync' , 'default is sync' ;
ok ! defined $conf ->lease_seconds, 'lease_seconds is undef' ;
ok $conf ->token_in_path, 'default is true' ;
lives_ok { $class ->new(
verify => 'async' ,
lease_seconds => 86400,
) };
|