Fixing issue where PointsWithinRadius was using a mismatched constant. Adding corresponding test fix

Author: kellydunn

geo_test.go

@@ -77,9 +77,9 @@ func RoundFloat(x float64, prec int) float64 {
 }
 
 func stubPointsWithinRadiusQueries() {
-	insideRangeQuery := "SELECT * FROM points a WHERE acos(sin(radians(37.619002)) * sin(radians(a.lat)) + cos(radians(37.619002)) * cos(radians(a.lat)) * cos(radians(a.lng) - radians(-122.374840))) * 6356.752300 <= 8.000000"
+	insideRangeQuery := "SELECT * FROM points a WHERE acos(sin(radians(37.619002)) * sin(radians(a.lat)) + cos(radians(37.619002)) * cos(radians(a.lat)) * cos(radians(a.lng) - radians(-122.374840))) * %!f(int=6371) <= 8.000000"
 	testdb.StubQuery(insideRangeQuery, nil)
 
-	outsideRangeQuery := "SELECT * FROM points a WHERE acos(sin(radians(37.619002)) * sin(radians(a.lat)) + cos(radians(37.619002)) * cos(radians(a.lat)) * cos(radians(a.lng) - radians(-122.374840))) * 6356.752300 <= 9.000000"
+	outsideRangeQuery := "SELECT * FROM points a WHERE acos(sin(radians(37.619002)) * sin(radians(a.lat)) + cos(radians(37.619002)) * cos(radians(a.lat)) * cos(radians(a.lng) - radians(-122.374840))) * %!f(int=6371) <= 9.000000"
 	testdb.StubQuery(outsideRangeQuery, nil)
 }

sql_mapper.go

@@ -18,7 +18,7 @@ func (s *SQLMapper) PointsWithinRadius(p *Point, radius float64) (*sql.Rows, err
 	select_str := fmt.Sprintf("SELECT * FROM %v a", s.conf.table)
 	lat1 := fmt.Sprintf("sin(radians(%f)) * sin(radians(a.lat))", p.lat)
 	lng1 := fmt.Sprintf("cos(radians(%f)) * cos(radians(a.lat)) * cos(radians(a.lng) - radians(%f))", p.lat, p.lng)
-	where_str := fmt.Sprintf("WHERE acos(%s + %s) * %f <= %f", lat1, lng1, 6356.7523, radius)
+	where_str := fmt.Sprintf("WHERE acos(%s + %s) * %f <= %f", lat1, lng1, EARTH_RADIUS, radius)
 	query := fmt.Sprintf("%s %s", select_str, where_str)
 
 	res, err := s.sqlConn.Query(query)