From 840ff2332534ad7e030810215722e6d4e7683f03 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Wed, 5 Sep 2012 16:03:43 -0300 Subject: [PATCH] Add a test suite category just for JOINs. --- test/Test.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/Test.hs b/test/Test.hs index 60dfb8e..98bb975 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -94,7 +94,7 @@ main = do liftIO $ ret `shouldBe` [ (Single p1k, Single (personName p1)) , (Single p2k, Single (personName p2)) ] - it "works for a simple projection with a simple self-join" $ + it "works for a simple projection with a simple implicit self-join" $ run $ do _ <- insert p1 _ <- insert p2 @@ -106,6 +106,7 @@ main = do , (Single (personName p2), Single (personName p1)) , (Single (personName p2), Single (personName p2)) ] + describe "select/JOIN" $ do it "works with a LEFT OUTER JOIN" $ run $ do p1e <- insert' p1