view release on metacpan or  search on metacpan

t/form_checksum.t  view on Meta::CPAN

$magic->mixin('HTML::Transmorgify::FormChecksum');

for my $t (@tests) {
	$t =~ /^ ([^\n]+)\n(.*?)\n>>+RESULT\n(.*)\n>>+SUBMIT\n(.*)/s or die "t='$t'";
	my ($text, $input, $output, $s_yaml) = ($1, $2, $3, $4);
	my $submit = Load($s_yaml);
	chomp($output);
	undef %HTML::Transmorgify::compiled;
	my $res;
	my $bomb = sub {
		print STDERR "############################################ BOMB\n";
		print STDERR "@_\n";
		$onebad++;
		local($HTML::Transmorgify::debug) = 1;
		undef %HTML::Transmorgify::compiled;
		pos($input) = 0;
		$res = $magic->process($input, { input_file => __FILE__, input_line => $test_start_line }, %vars);
	};

	eval {
		$res = $magic->process($input, { input_file => __FILE__, input_line => $test_start_line }, %vars);

t/form_default.t  view on Meta::CPAN

for my $t (@tests) {
	$t =~ /^ ([^\n]+)\n(.*?)\n>>+RESULT\n(.*)\n>>+QUERY_PARAMETERS\n(.*)/s or die "t='$t'";
	my ($text, $input, $output, $s_yaml) = ($1, $2, $3, $4);
	my $qp = Load($s_yaml);
	chomp($output);
	undef %HTML::Transmorgify::compiled;
	$HTML::Transmorgify::query_param = $qp;
	my $res;
	my $bomb = sub {
		print STDERR "############################################ BOMB\n";
		print STDERR "@_\n";
		$onebad++;
		local($HTML::Transmorgify::debug) = 1;
		undef %HTML::Transmorgify::compiled;
		pos($input) = 0;
		$res = $magic->process($input, { input_file => __FILE__, input_line => $test_start_line }, %vars);
	};

	eval {
		$res = $magic->process($input, { input_file => __FILE__, input_line => $test_start_line }, %vars);