| 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