use strict;
use Test::More tests=>6;
# set information about which days to display
my @days = (
{ display =>'Mon',
value =>'1'},
{display =>'Tue',
value =>'2'},
{display =>'Wed',
value =>'3'},
{display =>'Thu',
value =>'4'},
);
# set information about which hours to display
my @hour = ( {display =>'9am', value =>'900'},
{display =>'10am', value =>'1000'},
{display =>'11am', value =>'1100'},
{display =>'12am', value =>'1200'},
{display =>'1pm', value =>'1300'},
{display =>'2pm', value =>'1400'},
{display =>'3pm', value =>'1500'},
{display =>'4pm', value =>'1600'},
{display =>'5pm', value =>'1700'},
);
# information about events
my @events = (
{ title => 'SampleEventX',
begin_time => '1800',
end_time => '1930',
day_num => '1',
fill_color => '#CCCCCC'
},
{ title => 'Second sample',
begin_time => '1000',
end_time => '1300',
day_num => '4',
fill_color => '#CFF66C'
}
);
my $path = 'test.png';
use_ok 'Schedule::TableImage';
isa_ok(my $cal = Schedule::TableImage->new(days => \@days, hours => \@hour, font=>"Helvetica"), 'Schedule::TableImage');
ok( $cal->add_events(\@events), 'add_events ');
ok( $cal->write_image($path) , "write image to $path");
ok((-f $path) == 1, "output image $path is a file");
ok($cal->clear_events, 'clear_events');
unlink($path);