view release on metacpan or  search on metacpan

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

        cmp_ok abs($got_geo_pos[$i] - $exp_geo_pos->[$i]), '<', 1e-9, "position_geo[$i] matches producer via read-only view";
    }
    is_deeply S([ $gro->query_geo_radius(0, 0, 500, 30_000) ]), $exp_geo_radius,
        'query_geo_radius matches producer via read-only view';
    like exception(sub { $gro->insert_geo(0, 0, 0, 1) }), qr/read-only/, 'insert_geo on read-only geo view croaks';
    like exception(sub { $gro->move_geo($geh, 0, 0, 0) }), qr/read-only/, 'move_geo on read-only geo view croaks';
}

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;
}