From e2cbbe502cf1543e3209b5121bd0180ae1d60695 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 23 Dec 2013 20:10:06 +0100 Subject: Add hide_past test --- t/20-aseag.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/20-aseag.t b/t/20-aseag.t index 22d5d69..40e819c 100644 --- a/t/20-aseag.t +++ b/t/20-aseag.t @@ -7,7 +7,7 @@ use utf8; use Encode qw(decode); use File::Slurp qw(slurp); use List::Util qw(first); -use Test::More tests => 18; +use Test::More tests => 19; BEGIN { use_ok('Travel::Status::DE::ASEAG'); @@ -32,6 +32,11 @@ my @results = $s->results; is( @results, 16208, 'All departures parsed and returned' ); +# hide_past => 1 should return nothing + +@results = $s->results( hide_past => 1 ); +is( @results, 0, 'hide_past => 1 returns nothing' ); + # fuzzy matching: bushof should return Aachen Bushof and Eschweiler Bushof # (459 results) -- cgit v1.2.3