view release on metacpan or  search on metacpan

t/smoke/mem-leaks.pl  view on Meta::CPAN

	$css_int = $sass->compile('A { color: var-pipe(var-pl-int()); }');
	$css_dbl = $sass->compile('$dbl: var-pipe(var-pl-dbl()); A { color: $dbl; }');
	$css_str = $sass->compile('$str: var-pipe(var-pl-str()); A { color: $str; }');
	$css_list_a = $sass->compile('$list: var-pipe(var-pl-list()); A { color: nth($list, 1); }');
	$css_list_b = $sass->compile('$list: var-pipe(var-pl-list()); A { color: nth($list, -1); }');
	$css_map = $sass->compile('$map: var-pipe(var-pl-map()); A { color: $map; }');

	$css_nil1 = $sass->compile('A { color: var-pipe2(var-pl-nil()); }');
	$css_nil2 = $sass->compile('$nill: var-pipe2(null); A { color: $nill; }');
	$css_nil3 = $sass->compile('A { color: var-pipe2(var-pl-big()); }');
	$css_nil4 = $sass->compile('A { color: var-pipe2(quote(foobar)); }');
	$css_int = $sass->compile('A { color: var-pipe2(var-pl-int()); }');
	$css_dbl = $sass->compile('$dbl: var-pipe2(var-pl-dbl()); A { color: $dbl; }');
	$css_str = $sass->compile('$str: var-pipe2(var-pl-str()); A { color: $str; }');
	$css_list_a = $sass->compile('$list: var-pipe2(var-pl-list()); A { color: nth($list, 1); }');
	$css_list_b = $sass->compile('$list: var-pipe2(var-pl-list()); A { color: nth($list, -1); }');
	$css_map = $sass->compile('$map: var-pipe2(var-pl-map()); A { color: $map; }');

	$css_nil1 = $sass->compile('A { color: var-pipe(var-pipe2(var-pl-nil())); }');
	$css_nil2 = $sass->compile('$nill: var-pipe(var-pipe2(null)); A { color: $nill; }');
	$css_nil3 = $sass->compile('A { color: var-pipe(var-pipe2(var-pl-big())); }');
	$css_nil4 = $sass->compile('A { color: var-pipe(var-pipe2(quote(foobar))); }');
	$css_int = $sass->compile('A { color: var-pipe(var-pipe2(var-pl-int())); }');
	$css_dbl = $sass->compile('$dbl: var-pipe(var-pipe2(var-pl-dbl())); A { color: $dbl; }');
	$css_str = $sass->compile('$str: var-pipe(var-pipe2(var-pl-str())); A { color: $str; }');
	$css_list_a = $sass->compile('$list: var-pipe(var-pipe2(var-pl-list())); A { color: nth($list, 1); }');
	$css_list_b = $sass->compile('$list: var-pipe(var-pipe2(var-pl-list())); A { color: nth($list, -1); }');
	$css_map = $sass->compile('$map: var-pipe(var-pipe2(var-pl-map())); A { color: $map; }');

	$css_nil1 = $sass->compile('A { color: var-pipe2(var-pipe(var-pl-nil())); }');
	$css_nil2 = $sass->compile('$nill: var-pipe2(var-pipe(null)); A { color: $nill; }');
	$css_nil3 = $sass->compile('A { color: var-pipe2(var-pipe(var-pl-big())); }');
	$css_nil4 = $sass->compile('A { color: var-pipe2(var-pipe(quote(foobar))); }');
	$css_int = $sass->compile('A { color: var-pipe2(var-pipe(var-pl-int())); }');
	$css_dbl = $sass->compile('$dbl: var-pipe2(var-pipe(var-pl-dbl())); A { color: $dbl; }');
	$css_str = $sass->compile('$str: var-pipe2(var-pipe(var-pl-str())); A { color: $str; }');
	$css_list_a = $sass->compile('$list: var-pipe2(var-pipe(var-pl-list())); A { color: nth($list, 1); }');
	$css_list_b = $sass->compile('$list: var-pipe2(var-pipe(var-pl-list())); A { color: nth($list, -1); }');
	$css_map = $sass->compile('$map: var-pipe2(var-pipe(var-pl-map())); A { color: $map; }');

}

# 200000 proved to be a very safe value
# leaking one byte should be exposed by then
for (my $i = 0; $i < 200000; $i ++)
{


	run_sass_value_test();
	run_importer_test();

	if ($mem_usage != -1 && $i % 100 == 0)
	{
		my $mem = $1 if qx{ grep VmSize /proc/$$/status } =~ m/(\d+)/;
		if (defined $mem && $mem_usage != $mem) {
			warn "Memory increased to $mem (step $i)\n";
			$mem_usage = $mem;
		}
	}

	# print a dot to the console (we are still alive)
	if ($i % 500 == 0) { local $| = 1; print "."; }

}