view release on metacpan or  search on metacpan

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

    my $ro = Data::KDTree::Shared->new_readonly($ep);
    is $ro->count, 0, 'frozen empty tree: count 0 read-only';
    ok !defined($ro->nearest([0, 0])), 'frozen empty tree: nearest undef read-only';
    is_deeply [$ro->knn([0, 0], 3)],       [], 'frozen empty tree: knn empty read-only';
    is_deeply [$ro->range([0, 0], [9, 9])], [], 'frozen empty tree: range empty read-only';
    is_deeply [$ro->radius([0, 0], 5)],     [], 'frozen empty tree: radius empty read-only';
}

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