[tie-hash-sorted-xs.git] / t / Tie-Hash-Sorted-XS.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 5;
BEGIN { use_ok('Tie::Hash::Sorted::XS') };

tie my %hash, 'Tie::Hash::Sorted::XS';

$hash{Jim} = 5;
$hash{Bob} = 3;
$hash{Anna} = 7;

my $keys = join ' ', keys %hash;

is $keys, 'Anna Bob Jim', 'keys are ordered';
is $hash{Bob}, 3, 'retrieval works';


tie my %refhash, 'Tie::Hash::Sorted::XS', Tree::SizeBalanced::any_int->new(sub { $$a <=> $$b });
$refhash{\5} = 1;
my $three = 3;
$refhash{\$three} = 2;
my $tworef = \2;
$refhash{$tworef} = 3;

my $values = '';
for (keys %refhash) {
	$values .= $refhash{$_} . ' ';
}
chop $values;

my @keys = keys %refhash;
is ref($keys[0]), 'SCALAR', 'non-string keys work';
is $values, '3 2 1', 'values of refhash'
Commit	Line	Data
f0a05402 MG	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4
	5	use Test::More tests => 5;
	6	BEGIN { use_ok('Tie::Hash::Sorted::XS') };
	7
	8	tie my %hash, 'Tie::Hash::Sorted::XS';
	9
	10	$hash{Jim} = 5;
	11	$hash{Bob} = 3;
	12	$hash{Anna} = 7;
	13
	14	my $keys = join ' ', keys %hash;
	15
	16	is $keys, 'Anna Bob Jim', 'keys are ordered';
	17	is $hash{Bob}, 3, 'retrieval works';
	18
	19
	20	tie my %refhash, 'Tie::Hash::Sorted::XS', Tree::SizeBalanced::any_int->new(sub { $$a <=> $$b });
	21	$refhash{\5} = 1;
	22	my $three = 3;
	23	$refhash{\$three} = 2;
	24	my $tworef = \2;
	25	$refhash{$tworef} = 3;
	26
	27	my $values = '';
	28	for (keys %refhash) {
	29	$values .= $refhash{$_} . ' ';
	30	}
	31	chop $values;
	32
	33	my @keys = keys %refhash;
	34	is ref($keys[0]), 'SCALAR', 'non-string keys work';
	35	is $values, '3 2 1', 'values of refhash'