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 tests => 12;
use OIDC::Lite::Model::AuthInfo;

TEST_NEW: {

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

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

    undef($token);
    my @claims = (q{foo}, q{bar});
    $token = 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},
        id_token        => q{test_id_token},
        userinfo_claims => \@claims,
    );

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

};