Commits

Nikhil Marathe  committed c45e7e0

Added tests for some inline commands

  • Participants
  • Parent commits 68fbbde

Comments (0)

Files changed (1)

File test-redis.lsp

 
 (load "redis.lsp")
 (setf conn (redis))
-(print (:ping conn))
-(print (:bgsave conn))
+
+(assert-equals (:select conn 14) "OK")
+
+;; If you have authentication enabled
+;; uncomment this
+;; (assert-equals (:auth conn "foobared") "OK")
+
+(assert-equals (:ping conn) "PONG")
+(assert-equals (:bgsave conn) "Background saving started")
+
+(assert (true? (:get conn "minestrone:song:8412c5ea08987a59ca7e1a9e0651cdb4af4bfe9f")))
+
+(println "Database size is " (:dbsize conn))
+
+(:close conn)
+
+;(assert-fail (:get conn "minestrone:playlist:sXLruRrkPApP3eErshhqtE"))
 (exit)