more

compiler/main/Run/CommandLine.hs

@@ -39,6 +39,7 @@ data Command
       , testWatch :: Bool
       , testCoverage :: Bool
       , testOptimizationLevel :: OptimizationLevel
+      , testVerbose :: Bool
       }
   | Install
   | New { newFolder :: FilePath }
@@ -232,7 +233,7 @@ parseTestInput =
   strOption (long "input" <> short 'i' <> metavar "INPUT" <> help "What to test" <> showDefault <> value ".")
 
 parseTest :: Parser Command
-parseTest = Test <$> parseTestInput <*> parseTarget <*> parseDebug <*> parseWatch <*> parseCoverage <*> parseOptimizationLevel
+parseTest = Test <$> parseTestInput <*> parseTarget <*> parseDebug <*> parseWatch <*> parseCoverage <*> parseOptimizationLevel <*> parseVerbose
 
 
 parseRunInput :: Parser FilePath

madlib.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.0
 
--- This file has been generated from package.yaml by hpack version 0.34.4.
+-- This file has been generated from package.yaml by hpack version 0.36.0.
 --
 -- see: https://github.com/sol/hpack
 
@@ -123,6 +123,8 @@ library
       VersionLock.VersionLock
   other-modules:
       Paths_madlib
+  autogen-modules:
+      Paths_madlib
   hs-source-dirs:
       compiler/main
   ghc-options: -threaded -funbox-strict-fields -O3 -optc-O3 -fsimpl-tick-factor=500 -rtsopts -fexcess-precision -optc-ffast-math -funfolding-use-threshold=16 -Wunused-binds -Wunused-local-binds -Wunused-matches -Wunused-pattern-binds -Wunused-top-binds -Wunused-type-patterns
@@ -213,6 +215,8 @@ library common
       Parse.DocString.DocString
   other-modules:
       Paths_madlib
+  autogen-modules:
+      Paths_madlib
   hs-source-dirs:
       compiler/common
   ghc-options: -threaded -funbox-strict-fields -O3 -optc-O3 -fsimpl-tick-factor=500 -rtsopts -fexcess-precision -optc-ffast-math -funfolding-use-threshold=16 -Wunused-binds -Wunused-local-binds -Wunused-matches -Wunused-pattern-binds -Wunused-top-binds -Wunused-type-patterns
@@ -281,6 +285,8 @@ executable madlib
   main-is: Main.hs
   other-modules:
       Paths_madlib
+  autogen-modules:
+      Paths_madlib
   hs-source-dirs:
       compiler/app
   ghc-options: -threaded -funbox-strict-fields -O3 -optc-O3 -fsimpl-tick-factor=500 -rtsopts -fexcess-precision -optc-ffast-math -funfolding-use-threshold=16 -Wunused-binds -Wunused-local-binds -Wunused-matches -Wunused-pattern-binds -Wunused-top-binds -Wunused-type-patterns
@@ -343,9 +349,9 @@ executable madlib
     , transformers-base ==0.4.6
     , unordered-containers ==0.2.16.0
     , utf8-string
+  default-language: Haskell2010
   if flag(static)
     ld-options: -static
-  default-language: Haskell2010
 
 test-suite madlib-test
   type: exitcode-stdio-1.0
@@ -358,6 +364,8 @@ test-suite madlib-test
       TestUtils
       Utils.PathSpec
       Paths_madlib
+  autogen-modules:
+      Paths_madlib
   hs-source-dirs:
       compiler/test
   build-depends:

prelude/__internal__/Test.mad

@@ -224,9 +224,9 @@ export test = (description, testFunction) => pipe(
   ),
 )(description)
 
-skip :: String -> (String -> Wish.Wish AssertionError {}) -> Wish.Wish TestResult TestResult
-export skip = (description, testFunction) => pipe(
-  testFunction,
+skip :: String -> (String -> {}) -> Wish.Wish TestResult TestResult
+export skip = (description, _) => pipe(
+  (_) => Wish.good({}),
   bimap(
     pipe(
       always(NotImplemented),
@@ -283,14 +283,12 @@ prepareSuitePath = (colorful, suitePath) => {
   )(suitePath)
 }
 
-
 spaces :: Integer -> String
 spaces = (amount) => pipe(
   List.repeat(' '),
   String.fromList,
 )(amount)
 
-
 printSuiteResults :: Dictionary String SuiteResult -> {}
 printSuiteResults = (results) => {
   pipe(