From 383dc195eeb3ad9341db7cb07805ff08eed85258 Mon Sep 17 00:00:00 2001 From: John Ky Date: Sat, 11 Nov 2023 16:05:05 +1100 Subject: [PATCH] Delete tests that belong in cardano-api --- cardano-cli/cardano-cli.cabal | 2 - .../Test/Cli/MultiAssetParsing.hs | 37 ------------------- 2 files changed, 39 deletions(-) delete mode 100644 cardano-cli/test/cardano-cli-test/Test/Cli/MultiAssetParsing.hs diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal index fd8f8de899..0129180c78 100644 --- a/cardano-cli/cardano-cli.cabal +++ b/cardano-cli/cardano-cli.cabal @@ -303,7 +303,6 @@ test-suite cardano-cli-test , filepath , hedgehog , hedgehog-extras ^>= 0.4.7.0 - , parsec , tasty , tasty-hedgehog , text @@ -316,7 +315,6 @@ test-suite cardano-cli-test Test.Cli.FilePermissions Test.Cli.ITN Test.Cli.JSON - Test.Cli.MultiAssetParsing Test.Cli.Pioneers.Exercise1 Test.Cli.Pioneers.Exercise2 Test.Cli.Pioneers.Exercise3 diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/MultiAssetParsing.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/MultiAssetParsing.hs deleted file mode 100644 index 1bbfd6aeaf..0000000000 --- a/cardano-cli/test/cardano-cli-test/Test/Cli/MultiAssetParsing.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -{- HLINT ignore "Use camelCase" -} - -module Test.Cli.MultiAssetParsing where - -import Cardano.Api (MaryEraOnwards (..), ShelleyBasedEra (..), fromLedgerValue, - parseValue, renderValue, renderValuePretty) - -import qualified Data.Text as Text -import qualified Text.Parsec as Parsec (parse) - -import Test.Gen.Cardano.Api.Typed (genValueDefault) - -import Hedgehog (Property, forAll, property, tripping) - --- TODO enable these tests after switching completely to ledger types -disable_hprop_roundtrip_Value_parse_render :: Property -disable_hprop_roundtrip_Value_parse_render = - property $ do - ledgerValue <- forAll $ genValueDefault MaryEraOnwardsConway - let value = fromLedgerValue ShelleyBasedEraConway ledgerValue - tripping - value - renderValue - (Parsec.parse parseValue "" . Text.unpack) - --- TODO enable these tests after switching completely to ledger types -disable_hprop_roundtrip_Value_parse_renderPretty :: Property -disable_hprop_roundtrip_Value_parse_renderPretty = - property $ do - ledgerValue <- forAll $ genValueDefault MaryEraOnwardsConway - let value = fromLedgerValue ShelleyBasedEraConway ledgerValue - tripping - value - renderValuePretty - (Parsec.parse parseValue "" . Text.unpack)