view release on metacpan or  search on metacpan

t/23-rekey.t  view on Meta::CPAN

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::RealBin/lib";
use Test2WithExplain;
use Tree::RB::XS qw( KEY_TYPE_INT KEY_TYPE_FLOAT );
use Time::HiRes 'time';

sub err(&) { my $code= shift; local $@; eval { $code->() }; my $err= "$@"; return $err; }

subtest error_unless_int_or_float => sub {
	my $tree= Tree::RB::XS->new(key_type => KEY_TYPE_INT, kv => [ 1,1 ]);
	is( err { $tree->rekey(offset => 1) }, '', 'int' );

	$tree= Tree::RB::XS->new(key_type => KEY_TYPE_FLOAT, kv => [ 1,1 ]);
	is( err { $tree->rekey(offset => 1.1) }, '', 'float' );

	$tree= Tree::RB::XS->new(kv => [ 1,1 ]);
	like( err { $tree->rekey(offset => 1) }, qr/integer or float/, 'any' );