'stack test' not referentially transparent #525
Comments
|
Please see https://github.com/commercialhaskell/stack/blob/master/CONTRIBUTING.md for guidelines on proper bug reporting format, which will make it possible to diagnose this efficiently. In particular, please:
|
|
Minimal steps: Observe: Run the command again: This produces this output: If you keep running Make this trivial change: diff --git a/spec/Spec.hs b/spec/Spec.hs
index c824a4c..934967b 100644
--- a/spec/Spec.hs
+++ b/spec/Spec.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedLists #-}
+
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE Trustworthy #-}Run: Observe compiler-error output from before: I guess this is an issue of referential transparency. Apologies, I should know how to write a good bug report by now =p |
pharpend
changed the title
|
Can you check master and see if that resolves it? |
|
That appears to have fixed it! Thank you, @snoyberg! |
|
Thank you. That bug has popped in and out of existence multiple times, I'm On Mon, Jul 6, 2015, 9:30 AM Peter Harpending notifications@github.com
|
|
@(: :0:0) This looks familiar. I presume this indicates some sort of error that On Monday, July 6, 2015, Peter Harpending notifications@github.com wrote:
-- Dan Burton |
Edit: By the way, I have the latest git version of stack, as of 8:50 AM MDT, 2015-07-06.
Full tree: https://github.com/pharpend/comarkdown.
Here is my lovely test suite, with some compiler errors:
{-# LANGUAGE OverloadedLists #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE Trustworthy #-} -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 3 of the License, or (at -- your option) any later version. -- -- This program is distributed in the hope that it will be useful, but -- WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <http://www.gnu.org/licenses/>. -- | -- Module : Main -- Description : The test suite for comarkdown -- Copyright : Copyright 2015 Peter Harpending. -- License : GPL-3 -- Maintainer : peter@harpending.org -- Stability : experimental -- Portability : portable module Main where import Data.ByteString.Lazy.Char8 (ByteString) import qualified Data.ByteString.Lazy.Char8 as B import Text.Comarkdown import Test.Hspec import Test.QuickCheck main :: IO () main = hspec $ context "Parsing" $ context "Recognizing bare headers" $ header1Tests header1Tests :: Spec header1Tests = context "Header1" $ parallel $ do runParseTest "'# something' should be an h1" "# something" $ (Right [Markdown (Header1 "something")]) runParseTest "'something\\n====' should be an h1" "something\n====" (Right [Markdown (Header1 "something")]) runParseTest "'something\\n====' should be an h1" "something\n====" (Right [Markdown (Header1 "something")]) runParseTest "'something\\n=' should be an H1" "something\n=" (Right [Markdown (Header1 "something")]) runParseTest "'# something\\n====' should be an h1 with the '='s as part of the header" "# something\n====" (Right [Markdown (Header1 "something ====")]) runParseTest "'# something #' should be an h1" "# something #" (Right [Markdown (Header1 "something")]) runParseTest "'# something ####' should be an h1" "# something ####" (Right [Markdown (Header1 "something")]) specify "'# something' with trailing spaces should be an h1" $ property $ \(Nat i) -> do let s = mappend "# something" (replicate i ' ') parseResult <- runIO $ parse "test" (B.pack s) parseResult `shouldBe` Right [Markdown (Header1 "something")] specify "'# something #' with trailing spaces should be an h1" $ property $ \(Nat i) -> do let s = mappend "# something #" (replicate i ' ') parseResult <- runIO $ parse "test" (B.pack s) parseResult `shouldBe` Right [Markdown (Header1 "something")] specify "'# something ' with trailing '#'s should be an h1" $ property $ \(Nat i) -> do let s = mappend "# something " (replicate i '#') parseResult <- runIO $ parse "test" (B.pack s) parseResult `shouldBe` Right [Markdown (Header1 "something")] specify "'# something ' with trailing spaces, trailing '#'s, and more trailing spaces should be an h1" $ property $ \((Nat i, Nat j, Nat k)) -> do let s = mconcat ["# something ", replicate i ' ', replicate j '#', replicate k ' '] parseResult <- runIO $ parse "test" (B.pack s) parseResult `shouldBe` Right [Markdown (Header1 "something")] runParseTest :: String -> ByteString -> Either String Document -> Spec runParseTest spec bs supposedResult = it spec $ do res <- runIO $ parse "test input" bs res `shouldBe` supposedResult newtype Nat = Nat {unNat :: Int} instance Arbitrary Nat where arbitrary = Nat <$> (suchThat arbitrary (>= 0))If I try to pipe the result of
stack testto a pastebin, this is what shows up on the pastebin:That is, the output of the last successfully built test suite.
If I don't change the test suite, and try to run
stack testagain, I get the same output.However, before attempting to pipe the output of
stack testto a pastebin, the output was this:If I make a trivial change to the test suite, and run
stack testagain, I get the compiler-errors output.The text was updated successfully, but these errors were encountered: