1 # -*-mode: perl; comment-column: 68-*-
3 BEGIN { plan tests => 11; }
4 use Catacomb qw(:const $random);
6 $sec = $random->mp(256);
7 $sh = Catacomb::Share::Prime->new(3);
9 ok !defined $sh->p; #t 2
14 for (my $i = 0; $i < 5; $i++) {
15 $sh[$i] = $sh->get($i);
17 $sh = Catacomb::Share::Prime->new(3, $p);
20 ok $sh->add(4, $sh[4]) == 1; #t 5
31 $sec = $random->fill(16);
32 $sh = Catacomb::Share::GF->new(3, 16);
34 ok $sh->sz == 16; #t 9
37 for (my $i = 0; $i < 5; $i++) {
38 $sh[$i] = $sh->get($i);
40 $sh = Catacomb::Share::GF->new(3, 16);
42 ok $sh->add(3, $sh[3]) == 1; #t 10