view release on metacpan or  search on metacpan

t/04-frozen.t  view on Meta::CPAN

}

# ---- new_readonly error paths ----
like exception(sub { Data::Graph::Shared->new_readonly("$dir/does-not-exist.graph") }),
     qr/open|No such/, 'new_readonly on a missing path croaks';
like exception(sub { Data::Graph::Shared->new_readonly(undef) }),
     qr/required/, 'new_readonly requires a path';

done_testing;

# minimal exception helper (avoid a Test::Fatal dependency)
sub exception {
    my $code = shift;
    my $err;
    { local $@; eval { $code->(); 1 } or $err = $@; }
    return $err;
}