view release on metacpan or  search on metacpan

t/form_checksum.t  view on Meta::CPAN

#!/usr/bin/perl -I.

use strict;
use Test::More qw(no_plan);
use Test::Differences;
use HTML::Transmorgify;
use HTML::Transmorgify::FormChecksum;
use warnings;
use YAML;

$Data::Dumper::Deparse = 1;

my $finished = 0;

END { ok($finished, "finished"); }

my $test_start_line = __LINE__+3;
my @tests = split(/^>+TEST/m, <<'END_OF_TESTS');
>>>>>>>>>>>>>>>>>>TEST no secret
Before
<form method="POST">
<input type="hidden" name="one" value="1.0">
<input type="hidden" id="two" value="2.0">
<input type="submit" name="sub1" value="sval1">
</form>
After
>>>>RESULT
Before
<form method="POST">
<input type="hidden" name="one" value="1.0">
<input type="hidden" id="two" value="2.0" name="two">
<input type="submit" name="sub1" value="sval1">
</form>
After
>>>>SUBMIT
---
one: '1.0'
two: '2.0'
sub1: sval1
>>>>>>>>>>>>>>>>>>TEST with secret
Before
<form method="POST">
<input type="hidden" name="one" value="1.0">
<input type="hidden" id="two" value="2.0">
<input type="submit" name="sub1" value="sval1">
</form>
After
>>>>RESULT
Before
<form method="POST">
<input type="hidden" name="one" value="1.0">
<input type="hidden" id="two" value="2.0" name="two">
<input type="submit" name="sub1" value="sval1">
<input type="hidden" name=" constraint" value="one'v'sub1'm'two'v sval1"
><input type="hidden" name=" csum" value="313f34f15b26f5c9a6a9851bf1f65b70"
></form>
After
>>>>SUBMIT
---
one: '1.0'
two: '2.0'
sub1: sval1
' constraint': "one'v'sub1'm'two'v sval1"
' csum': "313f34f15b26f5c9a6a9851bf1f65b70"
>>>>>>>>>>>>>>>>>TEST multiple submits