Formatter tests shouldn't always succeed!

IntersectMBO · Jun 30, 2020 · ada344a · ada344a
1 parent 9946c5f
commit ada344a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 8 deletions.
diff --git a/ci.nix b/ci.nix
@@ -22,7 +22,7 @@ in dimension "System" (systems genericPkgs) (systemName: system:
     lib = pkgs.lib;
     platformFilter = platformFilterGeneric pkgs system;
   in filterAttrsOnlyRecursive (_: v: platformFilter v) {
-    inherit (packageSet) docs papers dev plutus-playground marlowe-playground plutus-scb marlowe-symbolic-lambda;
+    inherit (packageSet) docs papers dev tests plutus-playground marlowe-playground plutus-scb marlowe-symbolic-lambda;
     haskell =
       let
         # These functions pull out from the Haskell package set either all the components of a particular type, or

diff --git a/nix/tests/purty.nix b/nix/tests/purty.nix
@@ -7,16 +7,15 @@ let
    filter = with lib;
     name: type: let baseName = baseNameOf (toString name); in (
       (type == "regular" && hasSuffix ".purs" baseName) ||
-      (type == "directory" && (baseName != "generated" 
-                            && baseName != "output" 
-                            && baseName != "node_modules" 
-                            && baseName != ".psc-package" 
+      (type == "directory" && (baseName != "generated"
+                            && baseName != "output"
+                            && baseName != "node_modules"
+                            && baseName != ".psc-package"
                             && baseName != ".spago"))
     );
   };
 in
 runCommand "purty-check" {
-  succeedOnFailure = true;
   buildInputs = [ purty diffutils glibcLocales ];
 } ''
   set +e

diff --git a/nix/tests/stylish-haskell.nix b/nix/tests/stylish-haskell.nix
@@ -13,7 +13,6 @@ let
   };
 in
 runCommand "stylish-check" {
-  succeedOnFailure = true;
   buildInputs = [ stylish-haskell diffutils glibcLocales ];
 } ''
   set +e

diff --git a/plutus-scb/src/Cardano/Node/Types.hs b/plutus-scb/src/Cardano/Node/Types.hs
@@ -17,8 +17,8 @@ import           GHC.Generics                   (Generic)
 import qualified Language.Plutus.Contract.Trace as Trace
 import           Servant                        (FromHttpApiData, ToHttpApiData)
 import           Servant.Client                 (BaseUrl)
+import           Wallet.Emulator                (Wallet)
 import qualified Wallet.Emulator                as EM
-import Wallet.Emulator (Wallet)
 import           Wallet.Emulator.Chain          (ChainEvent, ChainState)
 import qualified Wallet.Emulator.MultiAgent     as MultiAgent