5 use lib $FindBin::RealBin;
9 use Test::More tests => 2;
11 use HTML::CalendarMonth;
12 use HTML::CalendarMonth::Locale;
15 eval do { local $/; <DATA> };
16 die "Oops on eval: $@\n" if $@;
17 $zulu = dq_nums($zulu);
19 # i8n (use zulu as example)
20 my @stoof = HTML::CalendarMonth::Locale->locales;
21 ok(@stoof > 20, 'i8n: locale ids retreived');
22 my($year, $month) = (2008, 3);
23 my $b = HTML::CalendarMonth->new(
28 my $bstr = dq_nums($b->as_HTML);
30 cmp_ok($bstr, 'eq', $zulu, "i8n: ($year/$month : Zulu) using auto-detect");
33 $zulu = '<table bgcolor="white" border="1" cellpadding="0" cellspacing="0"><tr align="center"><td align="left" colspan="5">Mashi</td><td align="center" colspan="2">2008</td></tr><tr align="center"><td align="center">Son</td><td align="center">Mso</td><td align="center">Bil</td><td align="center">Tha</td><td align="center">Sin</td><td align="center">Hla</td><td align="center">Mgq</td></tr><tr align="center"><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center">1</td></tr><tr align="center"><td align="center">2</td><td align="center">3</td><td align="center">4</td><td align="center">5</td><td align="center">6</td><td align="center">7</td><td align="center">8</td></tr><tr align="center"><td align="center">9</td><td align="center">10</td><td align="center">11</td><td align="center">12</td><td align="center">13</td><td align="center">14</td><td align="center">15</td></tr><tr align="center"><td align="center">16</td><td align="center">17</td><td align="center">18</td><td align="center">19</td><td align="center">20</td><td align="center">21</td><td align="center">22</td></tr><tr align="center"><td align="center">23</td><td align="center">24</td><td align="center">25</td><td align="center">26</td><td align="center">27</td><td align="center">28</td><td align="center">29</td></tr><tr align="center"><td align="center">30</td><td align="center">31</td><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center"> </td><td align="center"> </td></tr></table>'