Stuff

IntersectMBO · Jun 28, 2021 · b0979f6 · b0979f6
1 parent 67e3d6b
commit b0979f6
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 1 deletion.
diff --git a/cardano-testnet/cardano-testnet.cabal b/cardano-testnet/cardano-testnet.cabal
@@ -101,6 +101,7 @@ test-suite cardano-testnet-tests
                       , hedgehog-extras
                       , filepath
                       , tasty
+                      , tasty-expected-failure
                       , tasty-hedgehog
 
   other-modules:        Spec.Plutus

diff --git a/cardano-testnet/configuration b/cardano-testnet/configuration
@@ -0,0 +1 @@
+../configuration
diff --git a/cardano-testnet/scripts b/cardano-testnet/scripts
@@ -0,0 +1 @@
+../scripts
diff --git a/cardano-testnet/test/Main.hs b/cardano-testnet/test/Main.hs
@@ -4,20 +4,33 @@ module Main
   ( main
   ) where
 
+import Data.Function ((&))
 import Prelude
 
+import qualified Data.List as L
 import qualified System.Environment as E
+import qualified System.IO.Unsafe as IO
 import qualified Test.Tasty as T
+import qualified Test.Tasty.ExpectedFailure as T
 import qualified Test.Tasty.Ingredients as T
 import qualified Test.Tasty.Hedgehog as H
 
 import qualified Spec.Plutus
 
+inNix :: Bool
+inNix = IO.unsafePerformIO $ do
+  L.elem "NIX_STORE" . fmap fst <$> E.getEnvironment
+
+ignoreInNix :: T.TestTree -> T.TestTree
+ignoreInNix tree = if inNix
+  then T.ignoreTestBecause "Disabled in Nix" tree
+  else tree
+
 tests :: IO T.TestTree
 tests = do
   pure $ T.testGroup "test/Spec.hs"
     [ T.testGroup "Spec"
-      [ H.testProperty "Plutus" Spec.Plutus.hprop_plutus
+      [ H.testProperty "Plutus" Spec.Plutus.hprop_plutus & ignoreInNix
       ]
     ]