Stuff

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

cardano-testnet/configuration

@@ -0,0 +1 @@
+../configuration

cardano-testnet/scripts

@@ -0,0 +1 @@
+../scripts

cardano-testnet/test/Main.hs

@@ -8,11 +8,15 @@ import Prelude
 
 import qualified System.Environment as E
 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
 
+-- ignoreInNix :: T.TestTree -> T.TestTree
+-- ignoreInNix 
+
 tests :: IO T.TestTree
 tests = do
   pure $ T.testGroup "test/Spec.hs"

cardano-testnet/test/Spec/Plutus.hs

@@ -9,8 +9,10 @@ module Spec.Plutus
 import           Control.Monad
 import           Control.Monad.IO.Class (liftIO)
 import           Data.Function
+import           Data.Functor ((<$>))
 import           Data.Int
 import           Data.Maybe
+import           Data.Tuple
 import           Hedgehog (Property)
 import           Prelude (head)
 import           System.FilePath ((</>))
@@ -20,12 +22,15 @@ import qualified Hedgehog.Extras.Stock.IO.Network.Sprocket as IO
 import qualified Hedgehog.Extras.Test.Base as H
 import qualified Hedgehog.Extras.Test.Process as H
 import qualified System.Directory as IO
+import qualified System.Environment as IO
 import qualified Test.Base as H
 import qualified Testnet.Cardano as H
 import qualified Testnet.Conf as H
 
 hprop_plutus :: Property
 hprop_plutus = H.integration . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
+  H.noteShowIO_ $ fmap fst <$> IO.getEnvironment
+
   void $ H.note tempAbsPath'
   conf <- H.mkConf tempAbsPath' Nothing
   projectBase <- liftIO $ IO.makeAbsolute (H.base conf)