summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build.PL1
-rw-r--r--t/21-iris-stations.t16
2 files changed, 11 insertions, 6 deletions
diff --git a/Build.PL b/Build.PL
index b0bcaa7..68591a1 100644
--- a/Build.PL
+++ b/Build.PL
@@ -10,6 +10,7 @@ Module::Build->new(
'Test::Compile' => 0,
'Test::Fatal' => 0,
'Test::More' => 0,
+ 'Test::Number::Delta' => 0,
'Test::Pod' => 0,
'Text::CSV' => 0,
},
diff --git a/t/21-iris-stations.t b/t/21-iris-stations.t
index f68e5bb..497148b 100644
--- a/t/21-iris-stations.t
+++ b/t/21-iris-stations.t
@@ -4,7 +4,8 @@ use warnings;
use 5.014;
use utf8;
-use Test::More tests => 15;
+use Test::More tests => 17;
+use Test::Number::Delta;
BEGIN {
use_ok('Travel::Status::DE::IRIS::Stations');
@@ -98,11 +99,14 @@ is_deeply(
'get_station_by_location: 10 matches for Foobar'
);
+is(scalar Travel::Status::DE::IRIS::Stations::get_station_by_location(7.02458, 51.43862, 1),
+ 1, 'get_station_by_location(Foobar): only one match');
+
is_deeply(
- [ Travel::Status::DE::IRIS::Stations::get_station_by_location(7.02458, 51.43862, 1) ],
- [
- [[ 'EESD', 'Essen Süd', 8001897, 7.023098, 51.439295], 0.127234298397033]
- ],
- 'get_station_by_location: 1 match with all data for Foobar'
+ (Travel::Status::DE::IRIS::Stations::get_station_by_location(7.02458, 51.43862, 1))[0][0],
+ [ 'EESD', 'Essen Süd', 8001897, 7.023098, 51.439295],
+ 'get_station_by_location(Foobar): correct location data'
);
+delta_ok((Travel::Status::DE::IRIS::Stations::get_station_by_location(7.02458, 51.43862, 1))[0][1],
+ 0.127234298397033, 'get_station_by_location(Foobar): correct distance');