{{$NEXT}}
+ - Force upgrade of Mojolicious to 4.X (no auto version from UA)
+ - Small error and tests refactor
+
+0.04 2013-12-25 23:15:03 Europe/Madrid
+
- Code updated for Mojo:UserAgent 4.X
0.03 2012-12-26 00:47:20 Europe/Madrid
[@Basic]
[@Git]
+[Prereqs]
+Mojolicious = 4.63
+
[AutoPrereqs]
[Git::NextVersion]
user = diegok
issues = 1
-;[ReadmeAnyFromPod]
-; Default is plaintext README in build dir
-
-;[ReadmeAnyFromPod / ReadmePodInRoot]
-;type = pod
-;filename = README.pod
-;location = root
-
[Prereqs / TestRequires]
Test::More = 0.96
else {
my ($err, $code) = $tx->error;
my $message = shift || 'User agent error';
- die "$message: $err ($code)";
+ confess sprintf('%s: %s (%s)', $message, $err, $code||'no error code');
}
}
BEGIN { use_ok( 'WWW::EZTV' ); }
ok( my $eztv = WWW::EZTV->new, 'Build eztv crawler' );
-isa_ok( $eztv->shows, 'Mojo::Collection' );
-isa_ok( $eztv->shows->[0], 'WWW::EZTV::Show' );
+
+subtest 'Can retrieve shows' => sub {
+ ok( $eztv->has_shows, 'Can fetch shows list' );
+ isa_ok( $eztv->shows, 'Mojo::Collection' );
+ isa_ok( $eztv->shows->[0], 'WWW::EZTV::Show' );
+};
subtest 'All shows has name and URL' => sub {
my $has_year = 0;