1use strict; 2use warnings; 3 4use Test::More tests => 1; 5 6use HTML::FormFu; 7use DateTime; 8 9my $form = HTML::FormFu->new( 10 { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } ); 11 12# check that calling default('') doesn't cause a fatal error 13 14my $date = $form->element('Date')->name('foo')->strftime("%m/%d/%Y") 15 ->year( { reference => 2007 } )->default(''); 16 17$form->process; 18 19is( "$form", <<HTML ); 20<form action="" method="post"> 21<div> 22<span class="elements"> 23<select name="foo_day"> 24<option value="1">1</option> 25<option value="2">2</option> 26<option value="3">3</option> 27<option value="4">4</option> 28<option value="5">5</option> 29<option value="6">6</option> 30<option value="7">7</option> 31<option value="8">8</option> 32<option value="9">9</option> 33<option value="10">10</option> 34<option value="11">11</option> 35<option value="12">12</option> 36<option value="13">13</option> 37<option value="14">14</option> 38<option value="15">15</option> 39<option value="16">16</option> 40<option value="17">17</option> 41<option value="18">18</option> 42<option value="19">19</option> 43<option value="20">20</option> 44<option value="21">21</option> 45<option value="22">22</option> 46<option value="23">23</option> 47<option value="24">24</option> 48<option value="25">25</option> 49<option value="26">26</option> 50<option value="27">27</option> 51<option value="28">28</option> 52<option value="29">29</option> 53<option value="30">30</option> 54<option value="31">31</option> 55</select> 56<select name="foo_month"> 57<option value="1">January</option> 58<option value="2">February</option> 59<option value="3">March</option> 60<option value="4">April</option> 61<option value="5">May</option> 62<option value="6">June</option> 63<option value="7">July</option> 64<option value="8">August</option> 65<option value="9">September</option> 66<option value="10">October</option> 67<option value="11">November</option> 68<option value="12">December</option> 69</select> 70<select name="foo_year"> 71<option value="2007">2007</option> 72<option value="2008">2008</option> 73<option value="2009">2009</option> 74<option value="2010">2010</option> 75<option value="2011">2011</option> 76<option value="2012">2012</option> 77<option value="2013">2013</option> 78<option value="2014">2014</option> 79<option value="2015">2015</option> 80<option value="2016">2016</option> 81<option value="2017">2017</option> 82</select> 83</span> 84</div> 85</form> 86HTML 87