view release on metacpan or  search on metacpan

t/lib/Presets.pm  view on Meta::CPAN

	for my $e (@$events) {
		$flush->() if @run && abs($e->[0] - $run[-1][0]) >= $tol;
		push @run, $e;
	}
	$flush->();
	return \@out;
}

# The marks that compare against recorded doubles hold only where the compiler
# rounds every operation to a double; a build left on the x87 unit lands a few
# ulps off in the first segment and a collision cascade carries it anywhere.
# The reason to skip those marks, or nothing.
sub wide_doubles {
	my $m = Physics::Balls->float_eval_method;
	return $m > 0 ? "FLT_EVAL_METHOD is $m: this build evaluates a double wider than a double, and the fixtures were recorded at 64 bits" : '';
}

sub geometry {
	my ($name) = @_;
	return read_json(fixture_dir() . "/geometry-$name.json");
}