#!perl
use strict;
use warnings;
use Test::Most;
use Test::Exception;
use FindBin qw/ $Bin /;
use lib "$Bin";
use implicitgrant_tests;
use_ok( 'Net::OAuth2::AuthorizationServer::ImplicitGrant' );
my $Grant;
foreach my $with_callbacks ( 0,1 ) {
isa_ok(
$Grant = Net::OAuth2::AuthorizationServer::ImplicitGrant->new(
clients => implicitgrant_tests::clients(),
# am passing in a reference to the modules subs to ensure we hit
# the code paths to call callbacks
( $with_callbacks ? (
implicitgrant_tests::callbacks( $Grant )
) : () ),
),
'Net::OAuth2::AuthorizationServer::ImplicitGrant'
);
implicitgrant_tests::run_tests( $Grant );
}
done_testing();