Commit 8983a473 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Use Test::Number::Delta for floating point comparisons 

This avoids issues caused by varying float behaviour on different systems
parent 8790ffdf

Build.PL

+1 −0
Original line number Diff line number Diff line
@@ -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,

	},

t/21-iris-stations.t

+10 −6
Original line number Diff line number Diff line
@@ -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');