From fee867165b3292c4b7688271686978ff8fc4d331 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Tue, 14 May 2013 19:33:54 -0300
Subject: [PATCH] Add failing test for returning () in a pair.

---
 test/Test.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/Test.hs b/test/Test.hs
index 2d19de4..0792ace 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -55,6 +55,11 @@ main = do
           ret <- select $ return $ val (3 :: Int)
           liftIO $ ret `shouldBe` [ Value 3 ]
 
+      it "works for a pair of a single value and ()" $
+        run $ do
+          ret <- select $ return (val (3 :: Int), ())
+          liftIO $ ret `shouldBe` [ (Value 3, ()) ]
+
       it "works for a single NULL value" $
         run $ do
           ret <- select $ return $ nothing