From 52cac1a75ce39a9e21a923cdd40d2e7e5f517878 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Wed, 4 Feb 2015 17:26:12 +0530
Subject: [PATCH] lists: more tests

---
 src/Bencode.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Bencode.hs b/src/Bencode.hs
index e1f6dd3..7fbea96 100644
--- a/src/Bencode.hs
+++ b/src/Bencode.hs
@@ -75,7 +75,10 @@ bencInt = do _ <- spaces
 -- Right []
 -- >>> parse bencList "Blist" (BC.pack "l4:spam4:eggse")
 -- Right ["spam","eggs"]
-
+-- >>> parse bencList "Blist" (BC.pack "l4:spami42ee")
+-- Right ["spam",42]
+-- >>> parse bencList "Blist" (BC.pack "l4:spam4:eggsli42eee")
+-- Right ["spam","eggs",[42]]
 bencList :: ParsecBS.Parser [BVal]
 bencList = do _ <- spaces
               between (char 'l') (char 'e') (many bencVal)
-- 
2.45.2