# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl WWW-NationalRail.t'
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 15;
BEGIN { use_ok('WWW::NationalRail') };
my $rail;
my $tomorrow = sprintf(
"%02d/%02d/%02d", sub {($_[3]+1, $_[4]+1, $_[5]%100)}->(localtime)
);
can_ok("WWW::NationalRail", qw(from to via out_date out_type out_hour out_minute
ret_date ret_type ret_hour ret_minute));
can_ok("WWW::NationalRail", qw(outward_summary return_summary
outward_detail return_detail error));
# tests against the live system
# one-way
ok ( $rail = WWW::NationalRail->new({
from => 'London',
to => 'Cambridge',
out_date => $tomorrow,
out_type => 'depart',
out_hour => 9,
out_minute => 0,
}), "constuctor");
ok ($rail->search(), "search");
ok ($rail->outward_summary, "outward summary");
is ($rail->return_summary, undef, "return summary");
ok ($rail->outward_detail, "outward detail");
is ($rail->return_detail, undef, "return detail");
# return
ok ( $rail = WWW::NationalRail->new({
from => 'London',
to => 'Cambridge',
out_date => $tomorrow,
out_type => 'depart',
out_hour => 9,
out_minute => 0,
ret_date => $tomorrow,
ret_type => 'depart',
ret_hour => 17,
ret_minute => 0,
}), "constuctor");
ok ($rail->search(), "search");
ok ($rail->outward_summary, "outward summary");
ok ($rail->return_summary, "return summary");
ok ($rail->outward_detail, "outward detail");
ok ($rail->return_detail, "return detail");
# vim:ft=perl