# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Mac-Growl.t'
use warnings;
use strict;
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 2;
BEGIN { use_ok('Games::Baseball::Scorecard') };
use File::Path;
chdir 't';
my $s = Games::Baseball::Scorecard->new('gametest');
$s->init({
scorer => 'Pudge',
date => '2004-10-24, 20:05-23:25',
at => 'Fenway Park, Boston',
temp => '48 drizzle',
wind => '15 from CF',
att => '35,001',
home => { team => 'Boston Red Sox' },
away => { team => 'St. Louis Cardinals' },
});
my $pdf = $s->generate;
ok($pdf, 'generate PDF');
diag($pdf);
__END__