package t::Crypt::Sign_RS256;
use strict;
use warnings;
BEGIN {
    if ( $^V ge v5.10.1 ) {
        require autodie;
    }
}
use FindBin;
use lib "$FindBin::Bin/../lib";
use Test::More;
use Test::FailWarnings;
use Test::Deep;
use Test::Exception;
use lib "$FindBin::Bin/lib";
use parent qw( TestClass );
use Crypt::Perl::BigInt ();
__PACKAGE__->new()->runtests() if !caller;
#----------------------------------------------------------------------
use constant _HEX => '028cff19d53ced26bdd41ca5d926751503e3f9561f6e5cb8afe189afd881e1086d';
sub _num {
    return Crypt::Perl::BigInt->from_hex(_HEX());
}
sub test_test_bit : Tests(4) {
    my ($self) = @_;
    my @bit_tests = (
        [ '100', 0 => 0 ],
        [ '100', 1 => 0 ],
        [ '100', 2 => 1 ],
        [ '100', 3 => 0 ],
    );
    for my $t (@bit_tests) {
        my $bi = Crypt::Perl::BigInt->from_bin($t->[0]);
        is(
            $bi->test_bit($t->[1]),
            $t->[2],
            "0b$t->[0], bit $t->[1]: $t->[2]",
        );
    }
    return;
}
sub bytes_conversion : Tests(2) {
    is(
        _num()->as_bytes(),
        pack('H*', _HEX()),
        'as_bytes()',
    );
    is(
        Crypt::Perl::BigInt->from_bytes( pack('H*', _HEX()) )->as_hex(),
        _num()->as_hex(),
        'from_bytes()',
    );
    return;
}
sub test_bit_length : Tests(2) {
    my $num = _num();
    is( $num->bit_length(), 258, 'bit_length()' );
    is( $num->bit_length(), 258, 'bit_length(), repeated' );
    return;
}
1;