From 5fd756bf13e05429318ceafddb89b5f8039ff7b9 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 24 Jun 2015 16:34:17 +0200
Subject: [PATCH] Geo: GEOHASH command test.

---
 tests/unit/geo.tcl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/unit/geo.tcl b/tests/unit/geo.tcl
index 09028438..eedc40c9 100644
--- a/tests/unit/geo.tcl
+++ b/tests/unit/geo.tcl
@@ -76,6 +76,13 @@ start_server {tags {"geo"}} {
        {41.235890659964866 1.806328296661377}\
        {41.235889392604285 1.8063256144523621}}
 
+    test {GEOHASH is able to return geohash strings} {
+        # Example from Wikipedia.
+        r del points
+        r geoadd points 42.6 -5.6 test
+        lindex [r geohash points test] 0
+    } {ezs42e44yx0}
+
     test {GEOADD + GEORANGE randomized test} {
         set attempt 10
         while {[incr attempt -1]} {