# 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; } }
plan tests => 1;
use Crypt::PBC;
###### ---- This test shouldn't sagfault. If it does it's probably a bug in libpbc!
BIGGER_SCOPE: {
my $e;
HRM1: {
my $c = new Crypt::PBC("params_d.txt");
$e = $c->init_G1->set_to_hash( "lol!" );
}
HRM2: {
my $d = new Crypt::PBC("params_d.txt");
my $f = $d->init_G1->set_to_hash( "lol!" );
}
# warn " about to sagfault";
}
# warn " (sagfaulted so you don't see this)";
ok(1);