pickTokensToDeposit ignores ADA now

Author: v0d1ch

hydra-node/test/Hydra/API/HTTPServerSpec.hs

@@ -603,6 +603,7 @@ apiServerSpec = do
               CannotFindOwnInitial{} -> cover 1 True "CannotFindOwnInitial"
               DepositTooLow{} -> cover 1 True "DepositTooLow"
               AmountTooLow{} -> cover 1 True "AmountTooLow"
+              FailedToConstructDepositTx{} -> cover 1 True "FailedToConstructDepositTx"
               _ -> property
         checkCoverage
           $ coverage
@@ -627,6 +628,7 @@ apiServerSpec = do
                 CannotFindOwnInitial{} -> 400
                 DepositTooLow{} -> 400
                 AmountTooLow{} -> 400
+                FailedToConstructDepositTx{} -> 400
                 _ -> 500
 
     describe "POST /transaction" $ do

hydra-tx/test/Hydra/Tx/DepositSpec.hs

@@ -347,12 +347,10 @@ testAssetName3 = "TestToken3"
 utxoWithTokens :: [(PolicyId, AssetName, Quantity)] -> UTxO
 utxoWithTokens tokens =
   let value = fromList $ map (\(pid, aname, qty) -> (AssetId pid aname, qty)) tokens
-      -- Add some ADA to make it a valid UTxO
-      valueWithAda = value <> fromList [(AdaAssetId, Quantity 1000000)]
       txIn = generateWith arbitrary 42
       baseTxOut = generateWith arbitrary 42
       -- Update the txOut to have our custom value
-      txOut = baseTxOut{txOutValue = valueWithAda}
+      txOut = baseTxOut{txOutValue = value}
    in UTxO.singleton txIn txOut
 
 -- * Property tests for splitTokens