Skip Menu |
 

This queue is for tickets about the Geo-Hash-XS CPAN distribution.

Report information
The Basics
Id: 113597
Status: new
Priority: 0/
Queue: Geo-Hash-XS

People
Owner: dmaki [...] cpan.org
Requestors: MRDVT [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.00015
Fixed in: (no value)



Subject: Geo-Hash-XS - Please submit tests
Show quoted text
> Please submit tests and patches!
I'm planning to use the neighbors function. So, I manually validated these test cases against http://geohash.gofreerange.com/. Please incorporate these tests in the distribution. $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dqbuw")), "\n"' dqbuy,dqbuz,dqbux,dqbur,dqbuq,dqbum,dqbut,dqbuv $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dqbu")), "\n"' dqbv,dqcj,dqch,dqc5,dqbg,dqbe,dqbs,dqbt $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dqb")), "\n"' dr0,dr1,dqc,dq9,dq8,dnx,dnz,dpp $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dq")), "\n"' dr,dx,dw,dt,dm,dj,dn,dp $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dqbuwtve")), "\n"' dqbuwtvs,dqbuwtvu,dqbuwtvg,dqbuwtvf,dqbuwtvd,dqbuwtv6,dqbuwtv7,dqbuwtvk $ perl -MGeo::Hash::XS -e 'my $gh=Geo::Hash::XS->new; print join(",", $gh->neighbors("dqbuxpbp")), "\n"' dqbuz000,dqbuz002,dqbuxpbr,dqbuxpbq,dqbuxpbn,dqbuwzzy,dqbuwzzz,dqbuybpb


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.