From 1c9aa44dd30ba11d80a71b98d3a5aca8e895ca69 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Fri, 14 Mar 2008 15:07:00 +0000
Subject: [PATCH] Unit test for password

darcs-hash:20080314150748-928c4-4e7bbdad01587a5cea466676c5ebdfedd583f61d.gz
---
 tests/Commands.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/Commands.hs b/tests/Commands.hs
index 277508c..37a1182 100644
--- a/tests/Commands.hs
+++ b/tests/Commands.hs
@@ -78,6 +78,7 @@ main = mapM_ (\(n, f) -> f >>= \x -> printf "%-14s: %s\n" n x) tests
                   ,("notCommands", testNotCommands)
                   ,("tagTypes", testTagTypes)
                   ,("urlHandlers", testUrlHandlers)
+                  ,("password", testPassword)
                   ,("ping", testPing)
                   ,("song parsing / incomplete track",
                     testSongParseIncompleteTrack)
@@ -466,6 +467,8 @@ testUrlHandlers =
          (Right ["foo", "bar"])
          urlHandlers
 
+testPassword = test_ [("password foo", Right "OK")] (password "foo")
+
 testPing = test_ [("ping", Right "OK")] ping
 
 --
-- 
2.11.4.GIT