Remove testlib dependencies from hydra-chain-observer (#2464)

Author: noonio

hydra-chain-observer/hydra-chain-observer.cabal

@@ -46,13 +46,10 @@ library
     , blockfrost-client            >=0.11.0.0
     , http-conduit
     , hydra-cardano-api
-    , hydra-cardano-api:testlib
     , hydra-node
     , hydra-plutus
     , hydra-prelude
-    , hydra-test-utils
     , hydra-tx
-    , hydra-tx:testlib
     , io-classes
     , network-uri
     , optparse-applicative

hydra-chain-observer/src/Hydra/ChainObserver/NodeClient.hs

@@ -3,7 +3,6 @@
 module Hydra.ChainObserver.NodeClient where
 
 import Hydra.Prelude
-import Test.Hydra.Prelude
 
 import Hydra.Cardano.Api (
   BlockNo,
@@ -13,7 +12,6 @@ import Hydra.Cardano.Api (
   Tx,
   UTxO,
  )
-import Hydra.Cardano.Api.Gen ()
 import Hydra.Cardano.Api.Prelude (TxId)
 import Hydra.Contract (HydraScriptCatalogue)
 import Hydra.Ledger.Cardano (adjustUTxO)
@@ -34,8 +32,6 @@ import Hydra.Tx.Observe (
   observeHeadTx,
  )
 
-import Test.Hydra.Tx.Gen ()
-
 type ObserverHandler m = [ChainObservation] -> m ()
 
 data ChainObservation
@@ -47,10 +43,6 @@ data ChainObservation
   deriving stock (Eq, Show, Generic)
   deriving anyclass (ToJSON, FromJSON)
 
-instance Arbitrary ChainObservation where
-  arbitrary = genericArbitrary
-  shrink = genericShrink
-
 data NodeClient m = NodeClient
   { follow :: Maybe ChainPoint -> ObserverHandler m -> m ()
   , networkId :: NetworkId

hydra-chain-observer/test/Hydra/ChainObserverSpec.hs

@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wno-orphans #-}
+
 module Hydra.ChainObserverSpec where
 
 import Hydra.Prelude
@@ -20,6 +22,10 @@ import Test.Hydra.Tx.Fixture (testNetworkId)
 import Test.QuickCheck (counterexample, forAll, forAllBlind, property, (=/=), (===))
 import Test.QuickCheck.Property (checkCoverage)
 
+instance Arbitrary ChainObservation where
+  arbitrary = genericArbitrary
+  shrink = genericShrink
+
 spec :: Spec
 spec =
   parallel $ do