The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use OIDC::Lite::Model::AuthInfo;

TEST_NEW: {

    my $info = OIDC::Lite::Model::AuthInfo->new(
        id          => q{test_id},
        user_id     => q{test_user_id},
        client_id   => q{test_client_id},
    );

    is($info->id,          q{test_id});
    is($info->user_id,     q{test_user_id});
    is($info->client_id,   q{test_client_id});

    undef($info);
    my @claims = (q{foo}, q{bar});
    $info = OIDC::Lite::Model::AuthInfo->new(
        id              => q{test_id},
        user_id         => q{test_user_id},
        client_id       => q{test_client_id},
        scope           => q{test_scope},
        refresh_token   => q{test_refresh_token},
        code            => q{test_code},
        redirect_uri    => q{test_redirect_uri},
        server_state    => q{s_state},
        id_token        => q{test_id_token},
        userinfo_claims => \@claims,
    );

    is($info->id,              q{test_id});
    is($info->user_id,         q{test_user_id});
    is($info->client_id,       q{test_client_id});
    is($info->scope,           q{test_scope});
    is($info->refresh_token,   q{test_refresh_token});
    is($info->code,            q{test_code});
    is($info->redirect_uri,    q{test_redirect_uri});
    is($info->server_state,  q{s_state});
    is($info->id_token,        q{test_id_token});
    is($info->userinfo_claims, \@claims);

};

done_testing;