[perl5.git] / t / op / hash.t

#!./perl -w

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

use strict;

plan tests => 3;

my %h;

ok (!Internals::HvREHASH(%h), "hash doesn't start with rehash flag on");

foreach (1..10) {
  $h{"\0"x$_}++;
}

ok (!Internals::HvREHASH(%h), "10 entries doesn't trigger rehash");

foreach (11..20) {
  $h{"\0"x$_}++;
}

ok (Internals::HvREHASH(%h), "20 entries triggers rehash");
Commit	Line	Data
05619474 NC	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
	9	use strict;
	10
	11	plan tests => 3;
	12
	13	my %h;
	14
	15	ok (!Internals::HvREHASH(%h), "hash doesn't start with rehash flag on");
	16
	17	foreach (1..10) {
	18	$h{"\0"x$_}++;
	19	}
	20
	21	ok (!Internals::HvREHASH(%h), "10 entries doesn't trigger rehash");
	22
	23	foreach (11..20) {
	24	$h{"\0"x$_}++;
	25	}
	26
	27	ok (Internals::HvREHASH(%h), "20 entries triggers rehash");