fix: keep ./tmp folder as it's needed for indexing tests

Author: euonymos

.gitignore

@@ -27,3 +27,4 @@ haddocks
 # Functions changed by runing local testnet
 devnet/db
 devnet/genesis-*.json
+test.log

test/Main.hs

@@ -15,9 +15,9 @@ import Voting (votingSpec)
 
 main :: IO ()
 main = hspec do
-  runIO clearLogs
-  ouraFiltersSpec
-  dynamicSpec
-  offChainSpec
   auctionSpec
   votingSpec
+  offChainSpec
+  dynamicSpec
+  runIO clearLogs
+  ouraFiltersSpec

test/OffChain.hs

@@ -33,7 +33,7 @@ offChainSpec = describe "Checking monad works" $ do
     _blockchainParams <- queryBlockchainParams
     return ()
   it "Querying UTxO works" $ execOn $ do
-    address <- signingKeyToAddress <$> (!! 0) <$> getTestWalletSks
+    address <- signingKeyToAddress . (!! 0) <$> getTestWalletSks
     _utxo <- queryUtxo $ ByAddresses [address]
     return ()
   it "Sending transaction works" $ execOn $ do
@@ -50,8 +50,7 @@ offChainSpec = describe "Checking monad works" $ do
       out userAddress =
         TxOut
           userAddress
-          ( convert (lovelaceToValue $ fromInteger 3_000_000)
-          )
+          (convert $ lovelaceToValue 3_000_000)
           TxOutDatumNone
           ReferenceScriptNone
       tx =

test/Utils.hs

@@ -146,7 +146,7 @@ submitAndCheck :: (MonadSubmitTx m, MonadIO m) => TxSpec -> m ()
 submitAndCheck spec = do
   case head $ actions spec of
     MkSomeCEMAction (MkCEMAction _ transition) ->
-      liftIO $ putStrLn $ "Doing " <> show transition
+      liftIO $ putStrLn $ "  --> " <> show transition
   awaitEitherTx =<< resolveTxAndSubmit spec
 
 perTransitionStats :: (MonadBlockchainParams m) => m (Map.Map String Fees)

test/Voting.hs

@@ -18,7 +18,7 @@ import Utils
 votingSpec = describe "Voting" $ do
   let ignoreTest (_name :: String) = const (return ())
 
-  -- FIXME: fix Voting budget
+  -- FIXME: fix Voting budget or fix this issue https://github.com/mlabs-haskell/clb/issues/50
   ignoreTest "Successfull flow" $
     execClb $ do
       jury1 : jury2 : creator : _ <- getTestWalletSks
@@ -34,21 +34,22 @@ votingSpec = describe "Voting" $ do
             }
         params = MkCEMParams params' NoSingleStageParams
         mkAction = MkSomeCEMAction . MkCEMAction params
-      -- Start
+
+      -- Create
       submitAndCheck $
         MkTxSpec
           { actions = [mkAction Create]
           , specSigner = creator
           }
 
+      -- Start
       submitAndCheck $
         MkTxSpec
           { actions = [mkAction Start]
           , specSigner = creator
           }
 
       -- Vote
-
       submitAndCheck $
         MkTxSpec
           { actions = [mkAction $ Vote (signingKeyToPKH jury1) Yes]
@@ -62,12 +63,11 @@ votingSpec = describe "Voting" $ do
           }
 
       -- Count result
-
       submitAndCheck $
         MkTxSpec
           { actions = [mkAction Finalize]
           , specSigner = jury2
           }
 
       Just state <- queryScriptState params
-      liftIO $ state `shouldBe` (Finalized Abstain)
+      liftIO $ state `shouldBe` Finalized Abstain