view release on metacpan or  search on metacpan

t/01_client.t  view on Meta::CPAN

    use MIME::Base64 qw(encode_base64);
    my $svix_expected = encode_base64(
        Digest::SHA::hmac_sha256($svix_base, pack('H*', $svix_secret)),
        '',
    );
    ok(
        verify_svix_signature($body, $svix_id, $timestamp, "v1,$svix_expected", $svix_secret),
        'valid svix signature accepted',
    );
    ok(
        !verify_svix_signature($body, $svix_id, $timestamp, 'v1,badsig==', $svix_secret),
        'invalid svix signature rejected',
    );
};

# --- Error stringification ---

subtest 'Error stringification' => sub {
    plan tests => 1;

    my $err = Apertur::SDK::Error->new(