summaryrefslogtreecommitdiff
path: root/t/20-db.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-12-03 02:12:00 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-12-03 02:12:00 +0100
commit5e436d356b026e06ed29163791a04b3820cf6c05 (patch)
treeec7e5702b6c066c7f502453e1b5e5b17efb2cdf7 /t/20-db.t
parent6ee62b87a668e4b3947440bb4dcd298bd4376e10 (diff)
Result: Add ->date accessor
Diffstat (limited to 't/20-db.t')
-rw-r--r--t/20-db.t5
1 files changed, 3 insertions, 2 deletions
diff --git a/t/20-db.t b/t/20-db.t
index 03c25ef..e90f853 100644
--- a/t/20-db.t
+++ b/t/20-db.t
@@ -4,7 +4,7 @@ use warnings;
use 5.010;
use File::Slurp qw(slurp);
-use Test::More tests => 97;
+use Test::More tests => 98;
BEGIN {
use_ok('Travel::Status::DE::DeutscheBahn');
@@ -22,10 +22,11 @@ my @departures = $status->results;
for my $departure (@departures) {
isa_ok($departure, 'Travel::Status::DE::DeutscheBahn::Result');
- can_ok($departure, qw(route_end destination origin info platform route
+ can_ok($departure, qw(date route_end destination origin info platform route
route_raw time train));
}
+is($departures[0]->date, '06.07.2011', 'first result: date ok');
is($departures[0]->time, '19:21', 'first result: time ok');
is($departures[0]->train, 'RE 10228', 'first result: train ok');
is($departures[0]->destination, 'Duisburg Hbf', 'first result: destination ok');