wip

Author: zeme-wana

nix/project.nix

@@ -28,6 +28,7 @@ let
           packages.plutus-core.doCoverage = true;
           packages.plutus-executables.doCoverage = true;
           packages.plutus-tx-test-util.doCoverage = true;
+          # packages.plutus-ledger-api.doCoverage = true;
 
           packages.plutus-core.configureFlags = [ "--ghc-option=-D__USING_HPC__" ];
           packages.plutus-ledger-api.configureFlags = [ "--ghc-option=-D__USING_HPC__" ];

plutus-core/untyped-plutus-core/test/Evaluation/Builtins/Definition.hs

@@ -72,7 +72,9 @@ import Hedgehog.Gen qualified as Gen
 import Hedgehog.Range qualified as Range
 import Prettyprinter (vsep)
 import Test.Tasty (TestTree, testGroup)
-import Test.Tasty.ExpectedFailure qualified as Tasty
+#ifdef __USING_HPC__
+import Test.Tasty.ExpectedFailure (ignoreTest)
+#endif
 import Test.Tasty.Hedgehog (testPropertyNamed)
 import Test.Tasty.HUnit (Assertion, assertBool, assertFailure, testCase, (@=?), (@?=))
 import Test.Tasty.QuickCheck qualified as QC
@@ -1250,7 +1252,7 @@ test_definition =
         , test_IdBuiltinData
         , test_TrackCostsRestricting
 #ifdef __USING_HPC__
-        , Tasty.ignoreTest test_TrackCostsRetaining
+        , ignoreTest test_TrackCostsRetaining
 #else
         , test_TrackCostsRetaining
 #endif

plutus-ledger-api/test/Spec/Data/Eval.hs

@@ -33,7 +33,9 @@ import Data.Maybe (fromJust)
 import Data.Set qualified as Set
 import NoThunks.Class
 import Test.Tasty
-import Test.Tasty.ExpectedFailure qualified as Tasty
+#ifdef __USING_HPC__
+import Test.Tasty.ExpectedFailure (ignoreTest)
+#endif
 import Test.Tasty.HUnit
 
 {- Note [Direct UPLC code]
@@ -134,7 +136,7 @@ tests = testGroup "eval"
 --    , testUnlifting
     , evaluationContextCacheIsComplete
 #ifdef __USING_HPC__
-    , Tasty.ignoreTest evaluationContextNoThunks
+    , ignoreTest evaluationContextNoThunks
 #else
     , evaluationContextNoThunks
 #endif

plutus-ledger-api/test/Spec/Eval.hs

@@ -33,7 +33,9 @@ import Data.Maybe (fromJust)
 import Data.Set qualified as Set
 import NoThunks.Class
 import Test.Tasty
-import Test.Tasty.ExpectedFailure qualified as Tasty
+#ifdef __USING_HPC__
+import Test.Tasty.ExpectedFailure (ignoreTest)
+#endif
 import Test.Tasty.HUnit
 
 {- Note [Direct UPLC code]
@@ -134,7 +136,7 @@ tests = testGroup "eval"
 --    , testUnlifting
     , evaluationContextCacheIsComplete
 #ifdef __USING_HPC__
-    , Tasty.ignoreTest evaluationContextNoThunks
+    , ignoreTest evaluationContextNoThunks
 #else
     , evaluationContextNoThunks
 #endif