1#!perl -w
2
3; use strict
4; use Test::More tests => 2
5; use Template::Magic
6; use Template::Magic::HTML
7; use CGI
8
9; our $FillInForm = CGI->new( { fieldA => 'A'
10                              , fieldB => 'B'
11                              , fieldC => 'C'
12                              }
13                            )
14
15
16; my $temp1 = << "EOT1"
17<!--{FillInForm ignore_fields => [ 'fieldA', 'fieldC' ] }-->
18<form>
19<input type= "text" name="fieldA">
20<input type= "text" name="fieldB">
21<input type= "text" name="fieldC">
22</form>
23<!--{/FillInForm}-->
24EOT1
25
26
27; my $temp2 = << "EOT2"
28<!--{FillInForm}-->
29<form>
30<input type= "text" name="fieldA">
31<input type= "text" name="fieldB">
32<input type= "text" name="fieldC">
33</form>
34<!--{/FillInForm}-->
35EOT2
36
37; my $expected1 = << "EOE1"
38
39<form>
40<input name="fieldA" type="text">
41<input value="B" name="fieldB" type="text">
42<input name="fieldC" type="text">
43</form>
44EOE1
45
46; my $expected2 = << "EOE2"
47
48<form>
49<input value="A" name="fieldA" type="text">
50<input value="B" name="fieldB" type="text">
51<input value="C" name="fieldC" type="text">
52</form>
53EOE2
54
55; my $tm = Template::Magic::HTML->new()
56
57; use IO::Util
58; SKIP: { skip("HTML::FillInForm is not installed on this system", 2 )
59          unless eval
60                  { require HTML::FillInForm
61                  }
62
63      ; my $filled1 = $tm->output(\$temp1)
64
65      ; is( $$filled1
66          , $expected1
67          )
68      ; my $filled2 = $tm->output(\$temp2)
69      ; is( $$filled2
70          , $expected2
71          )
72
73      }
74
75