Commit 2c05b8fc authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

stations test: make sure get_stations has no empty pairs

parent 6e7e2d79

t/21-iris-stations.t

+6 −1
Original line number Diff line number Diff line
@@ -3,13 +3,18 @@ use strict; 
use warnings;

use 5.014;



use Test::More tests => 10;

use Test::More tests => 11;



BEGIN {

	use_ok('Travel::Status::DE::IRIS::Stations');

}

require_ok('Travel::Status::DE::IRIS::Stations');



my @emptypairs = grep { not (length($_->[0]) and length($_->[1])) }

	Travel::Status::DE::IRIS::Stations::get_stations;



is_deeply(\@emptypairs, [], 'no stations with empty code / name');



is_deeply(

	[],

	[ Travel::Status::DE::IRIS::Stations::get_station('doesnotexist') ],