diff options
| -rw-r--r-- | t/20-aseag.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/20-aseag.t b/t/20-aseag.t index 55923eb..d53f6c0 100644 --- a/t/20-aseag.t +++ b/t/20-aseag.t @@ -6,7 +6,7 @@ use utf8; use Encode qw(decode); use List::Util qw(first); -use Test::More tests => 13; +use Test::More tests => 14; BEGIN { use_ok('Travel::Status::DE::URA'); @@ -38,6 +38,18 @@ my @results = $s->results; is( @results, 16208, 'All departures parsed and returned' ); +# results are sorted by time +my $prev = $results[0]; +my $ok = 1; +for my $i (1 .. $#results) { + my $cur = $results[$i]; + if ($prev->datetime->epoch > $cur->datetime->epoch) { + $ok = 0; + last; + } +} +ok($ok, 'Results are ordered by departure'); + # hide_past => 1 should return nothing @results = $s->results( hide_past => 1 ); |