Move non-reusable tests to test

Author: Soupstraw

eras/shelley/impl/test/Test/Cardano/Ledger/Shelley/Binary/GoldenSpec.hs

@@ -8,7 +8,10 @@ import Paths_cardano_ledger_shelley (getDataFileName)
 import Test.Cardano.Ledger.Common
 import Test.Cardano.Ledger.Core.JSON (goldenJsonPParamsSpec, goldenJsonPParamsUpdateSpec)
 import Test.Cardano.Ledger.Shelley.Arbitrary ()
-import qualified Test.Cardano.Ledger.Shelley.Binary.Golden as ShelleyGolden
+import Test.Cardano.Ledger.Shelley.Binary.Golden (
+  goldenNewEpochStateExpectation,
+  shelleyDecodeDuplicateDelegCertSucceeds,
+ )
 import Test.Cardano.Ledger.Shelley.Era ()
 
 spec :: Spec
@@ -18,4 +21,6 @@ spec =
       goldenJsonPParamsSpec @ShelleyEra
     beforeAll (getDataFileName "golden/pparams-update.json") $
       goldenJsonPParamsUpdateSpec @ShelleyEra
-    ShelleyGolden.spec
+    prop "NewEpochState" $ goldenNewEpochStateExpectation @ShelleyEra
+    describe "TxCerts" $ do
+      forEachEraVersion @ShelleyEra shelleyDecodeDuplicateDelegCertSucceeds

eras/shelley/impl/testlib/Test/Cardano/Ledger/Shelley/Binary/Golden.hs

@@ -7,7 +7,7 @@
 module Test.Cardano.Ledger.Shelley.Binary.Golden (
   goldenNewEpochStateExpectation,
   duplicateDelegCertsTxBody,
-  spec,
+  shelleyDecodeDuplicateDelegCertSucceeds,
   module Test.Cardano.Ledger.Core.Binary.Golden,
 ) where
 
@@ -140,10 +140,3 @@ shelleyDecodeDuplicateDelegCertSucceeds version =
       mkBasicTxBody @ShelleyEra @TopTx
         & certsTxBodyL .~ SSeq.fromList [testCert, testCert]
         & ttlTxBodyL .~ SlotNo 300
-
-spec :: Spec
-spec =
-  describe "Golden" $ do
-    prop "NewEpochState" $ goldenNewEpochStateExpectation @ShelleyEra
-    describe "TxCerts" $ do
-      forEachEraVersion @ShelleyEra shelleyDecodeDuplicateDelegCertSucceeds