view release on metacpan or  search on metacpan

t/form_default.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::FormDefault;
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 hidden variables
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">
<input type="submit" name="sub1" value="sval1">
</form>
After
>>>>QUERY_PARAMETERS
---
one: '1.0'
two: '2.0'
sub1: sval1
>>>>>>>>>>>>>>>>>>>TEST comprehensive
Before
<form method="POST">
<input type="hidden" name="h1" value="1.0">
<input type="text" name="t1" value="t1fv">
<input type="text" name="t2" value="t2fv">
<input type="text" name="t3">
<input type="text" name="t4">
<input type="checkbox" name="cb1" value="cb1v1" checked>
<input type="checkbox" name="cb2" value="cb2v1" checked>
<input type="checkbox" name="cb3" value="cb3v1">
<input type="checkbox" name="cb4" value="cb4v1">
<input type="checkbox" name="cb5" checked>
<input type="checkbox" name="cb6" checked>
<input type="checkbox" name="cb7">
<input type="checkbox" name="cb8">
<input type="checkbox" name="cb9" value="cb9v1" checked>
<input type="checkbox" name="cb9" value="cb9v2" checked>
<input type="checkbox" name="cb9" value="cb9v3">
<input type="checkbox" name="cb9" value="cb9v4">
<input type="radio" name="r1" value="r1v1" checked>
<input type="radio" name="r1" value="r1v2">
<input type="radio" name="r1" value="r1v3">
<textarea name="ta1">ta1v1</textarea>
<textarea name="ta2">ta2v1</textarea>
<select name="s1" multiple>