在 Haskell 中自动运行单元测试

Question

有没有办法用我的构建命令运行我的测试套件？我能找到的只是我可以运行，例如cabal test 在cabal build 之后。我想要的是一种在运行时自动运行测试的方法，例如cabal build.

我想要一个解决方案，它可以为任何构建包的人自动执行此操作，而无需他们运行不同的脚本。一个类比是一个 java 构建脚本，其中默认构建目标在编译后运行单元测试。

Answer 1

您可以在使用 cabal v2 项目时使用 cabal.project.local 来执行此操作（如 cabal v2-build 这是默认设置，因此与 cabal 3.0 及更高版本的 cabal build 相同）。

策略就是在build目录下放一个cabal.project.local文件，内容如下：

tests: true

Answer 2

我发现这是一个非常糟糕的主意，因为它是破坏交叉编译的意外、非规范行为，但您可以将它与 Custom 构建类型一起破解。

这是一个例子mypackage.cabal：

cabal-version:       >=2.0
name:                mypackage
version:             0.1.0.0
author:              None
maintainer:          none@example.com
build-type:          Custom

custom-setup
  setup-depends:
    base  >= 4.5,
    Cabal >= 2.0

executable mypackage
  main-is: Main.hs
  build-depends: base >= 4
  default-language: Haskell2010

test-suite test
  type: exitcode-stdio-1.0
  build-depends: base >= 4
  main-is: Test.hs

以及对应的Setup.hs:

import Control.Monad
import Distribution.Simple
import Distribution.Simple.Setup
import Distribution.Simple.Test
import Distribution.Simple.Build

main = defaultMainWithHooks simpleUserHooks {
  postBuild = myPostBuild
}

myPostBuild args flags desc info =
  when ("exe:mypackage" `elem` buildArgs flags) $ do
    build desc info defaultBuildFlags { buildDistPref = buildDistPref flags } []
    test ["test"] desc info defaultTestFlags {
      testDistPref = buildDistPref flags
    }

这确实导致了一个项目，其中cabal build 也在我的 Cabal 3.0.0.0 系统上构建和运行测试，但我不知道这有哪些额外的警告。