view release on metacpan or  search on metacpan

t/prime-field.t  view on Meta::CPAN

use Test::More tests => 263;
use Crypt::OpenSSL::Bignum::CTX;

BEGIN { use_ok('Crypt::OpenSSL::EC') };

SKIP: { 
    skip('OpenSSL does not support EC2M', 262) unless exists &Crypt::OpenSSL::EC::EC_GROUP::set_curve_GF2m;
    &prime_field_tests();
};

sub prime_field_tests()
{
    my $ctx = Crypt::OpenSSL::Bignum::CTX->new();
    ok($ctx);

    my $p = Crypt::OpenSSL::Bignum->new_from_hex('17');
    ok($p);
    ok($p->to_decimal() eq '23');

    my $a = Crypt::OpenSSL::Bignum->new_from_hex('1');
    ok($a);