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