From 769d991771f9bfa1129c679cf9ca99bcb73f2690 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Fri, 14 Mar 2008 15:00:08 +0000
Subject: [PATCH] [gitconv @ Unit test for listPlaylist]

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

diff --git a/tests/Commands.hs b/tests/Commands.hs
index 6757405..4b5752e 100644
--- a/tests/Commands.hs
+++ b/tests/Commands.hs
@@ -60,6 +60,7 @@ main = mapM_ (\(n, f) -> f >>= \x -> printf "%-14s: %s\n" n x) tests
                   ,("playlistInfo / pos", testPlaylistInfoPos)
                   ,("playlistInfo / id", testPlaylistInfoId)
                   ,("listPlaylistInfo", testListPlaylistInfo)
+                  ,("listPlaylist", testListPlaylist)
                   ,("crossfade", testCrossfade)
                   ,("play", testPlay)
                   ,("pause", testPause)
@@ -402,6 +403,13 @@ testListPlaylistInfo = test [("listplaylistinfo \"foo\""
                                          , sgTitle = "Bar" }])
                        (listPlaylistInfo "foo")
 
+testListPlaylist = test [("listplaylist \"foo\""
+                         ,Right "file: dir/Foo-bar.ogg\n\
+                                \file: dir/Quux-quuz.ogg\n\
+                                \OK")]
+                   (Right ["dir/Foo-bar.ogg", "dir/Quux-quuz.ogg"])
+                   (listPlaylist "foo")
+
 --
 -- Playback commands
 --
-- 
2.11.4.GIT