Remove redundant tests

Author: locallycompact

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

@@ -34,13 +34,6 @@ spec = parallel $ do
               Success{} -> property True
               Error e -> counterexample (toString $ toText e) $ property False
 
-    prop "accepts raw CBOR-base16-encoded transactions" $ do
-      forAll (arbitrary @Tx) $ \tx ->
-        let cborHex = decodeUtf8 $ Base16.encode $ serialize' $ toLedgerTx tx
-         in case fromJSON @Tx (String cborHex) of
-              Success{} -> True
-              Error e -> error (toText e)
-
 settings :: Settings
 settings =
   defaultSettings

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

@@ -56,12 +56,6 @@ spec = do
 
     apiServerSpec
     describe "SubmitTxRequest accepted tx formats" $ do
-      prop "accepts Base16 cbor encoded bytestring" $
-        forAll (arbitrary @Tx) $ \tx ->
-          let json = String $ decodeUtf8 $ Base16.encode $ serialize' (toLedgerTx tx)
-           in case fromJSON @(SubmitTxRequest Tx) json of
-                Success{} -> property True
-                Error e -> counterexample (toString $ toText e) $ property False
       prop "accepts json encoded transaction" $
         forAll (arbitrary @Tx) $ \tx ->
           let json = toJSON tx