view release on metacpan or  search on metacpan

xt/live/370-get_current_location.t  view on Meta::CPAN

# has lat/lon etc.
is(ref($res), 'HASH', 'Android::ElectricSheep::Automator->dump_current_location()'." : called and got good result.") or BAIL_OUT("no it is '".ref($res)."'.");
for my $aprov (sort keys %$res){
	my $provres = $res->{$aprov};
	for my $k (qw/latitude longitude/){
		ok(exists($provres->{$k}), 'Android::ElectricSheep::Automator->dump_current_location()'." : result contains key '$k' for provider '$aprov'.") or BAIL_OUT(perl2dump($res)."no it does not, see above");
		ok(defined($provres->{$k}), 'Android::ElectricSheep::Automator->dump_current_location()'." : result contains key '$k' and it is defined, for provider '${aprov}'.") or BAIL_OUT(perl2dump($res)."no it does not, see above");
		# some providers may be 'null' meaning no available
		# for those we will have an entry but lat/lon will be <na>
		next if $provres->{$k} eq '<na>';
		ok($provres->{$k}=~/\d+\.\d+/, 'Android::ElectricSheep::Automator->dump_current_location()'." : result contains key '$k' and it validates as a real number, for provider '${aprov}'.") or BAIL_OUT(perl2dump($res)."no it does not, see above");
	}
	for my $k (qw/provider/){
		ok(exists($provres->{$k}), 'Android::ElectricSheep::Automator->dump_current_location()'." : result contains key '$k' for provider '$aprov'.") or BAIL_OUT(perl2dump($res)."no it does not, see above");
		ok(defined($provres->{$k}), 'Android::ElectricSheep::Automator->dump_current_location()'." : result contains key '$k' and it is defined, for provider '${aprov}'.") or BAIL_OUT(perl2dump($res)."no it does not, see above");
	}
}
diag "Current location: ".perl2dump($res);

#diag "temp dir: $tmpdir ..." if exists($ENV{'PERL_TEST_TEMPDIR_TINY_NOCLEANUP'}) && $ENV{'PERL_TEST_TEMPDIR_TINY_NOCLEANUP'}>0;