From 5900cda0edb223d5b63a5e221d45c54197dee994 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Sat, 22 Mar 2008 12:54:55 +0000
Subject: [PATCH] [gitconv @ Add unit test for seeking in current song]

---
 tests/Commands.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/Commands.hs b/tests/Commands.hs
index 3ba76c0..1c22640 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
                   ,("previous", testPrevious)
                   ,("seek / pos", testSeekPos)
                   ,("seek / id", testSeekId)
+                  ,("seek / current", testSeekCur)
                   ,("random", testRandom)
                   ,("repeat", testRepeat)
                   ,("setVolume", testSetVolume)
@@ -508,6 +509,12 @@ testSeekPos = test_ [("seek 1 10", Right "OK")] (seek (Just $ Pos 1) 10)
 
 testSeekId = test_ [("seekid 1 10", Right "OK")] (seek (Just $ ID 1) 10)
 
+testSeekCur = test_ [("status", Right "state: play\n\
+                                      \songid: 1\n\
+                                      \OK")
+                    ,("seekid 1 10", Right "OK")]
+              (seek Nothing 10)
+
 testRandom = test_ [("random 0", Right "OK")] (random False)
 
 testRepeat = test_ [("repeat 0", Right "OK")] (repeat False)
-- 
2.11.4.GIT