diff options
author | Daniel Friesel <derf@finalrewind.org> | 2015-10-14 23:54:04 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2015-10-14 23:54:04 +0200 |
commit | 48a14373db07a1b1556b2a8d176eb851cd2bd44a (patch) | |
tree | 2cf276e14a62025c4e583e2ef0fe50c7fb590957 /t/23-results.t | |
parent | fca9e64d1a70ced8aedfaeb5a5614122c8fdd55d (diff) |
more tests
Diffstat (limited to 't/23-results.t')
-rw-r--r-- | t/23-results.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/23-results.t b/t/23-results.t index d4f6896..9701603 100644 --- a/t/23-results.t +++ b/t/23-results.t @@ -5,7 +5,7 @@ use 5.010; use utf8; use List::Util qw(first); -use Test::More tests => 10; +use Test::More tests => 18; BEGIN { use_ok('Travel::Status::DE::URA'); @@ -40,3 +40,14 @@ is($results[0]->date, '23.12.2013', '->date'); isa_ok($results[0]->datetime, 'DateTime', '->datetime is DateTime'); is($results[0]->time, '12:44:00', '->time'); is($results[0]->type, 'Bus', '->type'); + +# same-ish for TO_JSON + +isa_ok($results[0]->TO_JSON->{datetime}, 'DateTime', 'TO_JSON.datetime isa DateTime'); +is($results[0]->TO_JSON->{datetime}->strftime('%Y%m%d%H%M%S'), '20131223124400', 'TO_JSON.datetime'); +is($results[0]->TO_JSON->{datetime}, $results[0]->datetime, 'TO_JSON.datetime'); +is($results[0]->TO_JSON->{destination}, $results[0]->destination, 'TO_JSON.destination'); +is($results[0]->TO_JSON->{line}, $results[0]->line, 'TO_JSON.line'); +is($results[0]->TO_JSON->{line_id}, $results[0]->line_id, 'TO_JSON.line_id'); +is($results[0]->TO_JSON->{stop}, $results[0]->stop, 'TO_JSON.stop'); +is($results[0]->TO_JSON->{stop_id}, $results[0]->stop_id, 'TO_JSON.stop_id'); |