fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-29 12:32:14 +00:00
Code Issues Projects Releases Wiki Activity

Geo: fuzzy test inconsistency report fixed to show all points.

Browse Source 
We need to report all the points added into the set, not just the ones
matching the Tcl distance algo.
This commit is contained in:
antirez 2016-12-20 12:22:11 +01:00
parent 056c81e4a7
commit f3add0692f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/unit/geo.tcl
View File

@ -254,10 +254,11 @@ start_server {tags {"geo"}} {
for {set j 0} {$j < 20000} {incr j} { for {set j 0} {$j < 20000} {incr j} {
geo_random_point lon lat geo_random_point lon lat
lappend argv $lon $lat "place:$j" lappend argv $lon $lat "place:$j"
if {[geo_distance $lon $lat $search_lon $search_lat] < $radius_m} { set distance [geo_distance $lon $lat $search_lon $search_lat]
if {$distance < $radius_m} {
lappend tcl_result "place:$j" lappend tcl_result "place:$j"
lappend debuginfo "place:$j $lon $lat [expr {[geo_distance $lon $lat $search_lon $search_lat]/1000}] km"
} }
lappend debuginfo "place:$j $lon $lat [expr {$distance/1000}] km"
} }
r geoadd mypoints {*}$argv r geoadd mypoints {*}$argv
set res [lsort [r georadius mypoints $search_lon $search_lat $radius_km km]] set res [lsort [r georadius mypoints $search_lon $search_lat $radius_km km]]