Add failing test

bitemyapp · Jun 17, 2019 · ca44655 · ca44655
1 parent aa07462
commit ca44655
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/.gitignore b/.gitignore
@@ -4,3 +4,4 @@
 .cabal-sandbox/
 cabal.sandbox.config
 .hspec-failures
+stack.yaml.lock
diff --git a/test/Common/Test.hs b/test/Common/Test.hs
@@ -219,6 +219,22 @@ testSelect run = do
         ret <- select $ return nothing
         liftIO $ ret `shouldBe` [ Value (Nothing :: Maybe Int) ]
 
+  describe "sub_select" $ do
+    it "works inside of sum" $ do
+      run $ do
+        ret <-
+          select $
+          pure $
+            sum_ $
+              sub_select $
+              from $ \foo -> do
+              pure (foo ^. FooName)
+        nonSub <-
+          select $
+          from $ \foo -> do
+          pure (sum_ (foo ^. FooName))
+
+        liftIO $ ret `shouldBe` (nonSub :: [Value (Maybe Int)])
 
 testSelectSource :: Run -> Spec
 testSelectSource run = do