From 19ebf454dc432eec2d21691096c5c178acde600e Mon Sep 17 00:00:00 2001
From: Alexander Gladysh <agladysh@gmail.com>
Date: Thu, 28 Jun 2012 20:47:11 +0400
Subject: [PATCH] test.lua: testing TYPE

It is special, since it creates new status const-objects
---
 test/test.lua | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/test/test.lua b/test/test.lua
index ba6eaaf..65fc496 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -57,11 +57,29 @@ assert(assert(conn:command("GET", "MYKEY")) == "MYVALUE")
 
 --------------------------------------------------------------------------------
 
+local T = assert(conn:command("TYPE", "MYKEY"))
+assert(type(T) == "table")
+assert(T.type == hiredis.REPLY_STATUS)
+assert(T.name == "string")
+
+assert(hiredis.unwrap_reply(T) == "string")
+
+--------------------------------------------------------------------------------
+
 local NIL = assert(conn:command("GET", "BADKEY"))
 assert(NIL == hiredis.NIL)
 
 --------------------------------------------------------------------------------
 
+local T = assert(conn:command("TYPE", "BADKEY2"))
+assert(type(T) == "table")
+assert(T.type == hiredis.REPLY_STATUS)
+assert(T.name == "none")
+
+assert(hiredis.unwrap_reply(T) == "none")
+
+--------------------------------------------------------------------------------
+
 local err = assert(conn:command("SET"))
 assert(err.type == hiredis.REPLY_ERROR)
 assert(err.name == "ERR wrong number of arguments for 'set' command")