# vi:fdm=marker fdl=0 syntax=perl:
use strict;
use Test;
if( defined $ENV{SKIP_ALL_BUT} ) { unless( $0 =~ m/\Q$ENV{SKIP_ALL_BUT}\E/ ) { plan tests => 1; skip(1); exit 0; } }
use Crypt::PBC;
my $curve = new Crypt::PBC('params_a.txt');
plan tests => 3;
my $x = $curve->init_Zr->random;
my $P1 = $curve->init_G1->random;
my $P2 = clone $P1;
ok( $P1->is_eq( $P2 ) );
ok( $P1->clone->pow_zn( $x )->is_eq( $P2->pow_zn($P2, $x) ) );
ok( not $P1->is_eq( $P2 ) );