The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BRTASTIC / Bitcoin-Secp256k1-0.004 / t / base.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

              
use Test2::V0;
use Bitcoin::Secp256k1;
use Digest::SHA qw(sha256);
use lib 't/lib';
use Secp256k1Test;
################################################################################
# This tests whether the most base methods defined in XS are working correctly.
################################################################################
my $secp;
my %t = Secp256k1Test->test_data;
my $partial_digest = sha256($t{preimage});
my $digest = sha256($partial_digest);
subtest 'should create and destroy' => sub {
        $secp = Bitcoin::Secp256k1->new();
        isa_ok $secp, 'Bitcoin::Secp256k1';
};
subtest 'should import and export pubkey' => sub {
        is $secp->_pubkey, undef, 'starting pubkey ok';
        is $secp->_pubkey($t{pubkey}), $t{pubkey}, 'setter ok';
        is $secp->_pubkey, $t{pubkey}, 'getter ok';
        is $secp->_pubkey(undef, 1), $t{pubkey}, 'getter with explicit compression ok';
        is $secp->_pubkey(undef, 0), $t{pubkey_unc}, 'getter with explicit (un)compression ok';
        is $secp->_pubkey($t{pubkey_unc}), $t{pubkey}, 'setter with uncompressed input, compressed output ok';
};
subtest 'should import and export xonly pubkey' => sub {
        is $secp->_xonly_pubkey, undef, 'starting xonly pubkey ok';
        is $secp->_xonly_pubkey($t{xonly_pubkey}), $t{xonly_pubkey}, 'setter ok';
        is $secp->_xonly_pubkey, $t{xonly_pubkey}, 'getter ok';
};
subtest 'should import and export signature' => sub {
        is $secp->_signature, undef, 'starting sig ok';
        is $secp->_signature($t{sig}), $t{sig}, 'setter ok';
        is $secp->_signature, $t{sig}, 'getter ok';
};
subtest 'should import and export schnorr signature' => sub {
        is $secp->_signature_schnorr, undef, 'starting sig ok';
        is $secp->_signature_schnorr($t{sig_schnorr}), $t{sig_schnorr}, 'setter ok';
        is $secp->_signature_schnorr, $t{sig_schnorr}, 'getter ok';
};
subtest 'should normalize a signature' => sub {
        $secp->_signature($t{sig_unn});
        ok $secp->_normalize, 'signature normalized ok';
        is $secp->_signature, $t{sig}, 'signature ok';
        ok !$secp->_normalize, 'already normalized ok';
};
subtest 'should clear the object' => sub {
        $secp->_clear;
        is $secp->_pubkey, undef, 'cleared pubkey ok';
        is $secp->_signature, undef, 'cleared signature ok';
};
done_testing;