haskell - 在堆栈中使用HSpec

我有以下架构：

  backend
  ├── Chat.hs
  ├── Main.hs
  └── Message.hs
  test
  ├── backendSpec
  │   └── MessageSpec.hs
  └── Spec.hs

我的.cabal文件包含以下内容

test-suite spec
  build-depends:  base, hspec == 2.*,
                  snap >= 0.14.0.6,
                  containers,
                  aeson,
                  text,
                  transformers,
                  stm,
                  snap-core,
                  snap-server,
                  socket-io,
                  engine-io-snap,
                  snap-cors,
                  bytestring
  hs-source-dirs: test
  main-is: Spec.hs
  Type: exitcode-stdio-1.0

但是当我这样做

stack test

HSpec找不到我的测试int MessageSpec.hs。


在0.0002秒内完成
0个例子，0个失败


Spec.hs是正确的输入：{-＃OPTIONS_GHC -F -pgmF hspec-discover＃-}

我的MessageSpec模块正在公开：模块MessageSpec（主要，规格）。

您能否帮助我找到一种方法来使我的堆栈项目完成所有测试。

谢谢，

最佳答案

规范的路径必须遵循模块名称约定。 backendSpec.MessageSpec不是有效的模块名称，因为它以小写字母开头。

此外，规范的模块名称仅应与原始模块的后缀Spec有所不同。您在backendSpec中的模块将不会遵循以下规则：

module Message where ...
-- vs
module BackendSpec.MessageSpec where ...

因此，要解决此问题，请确保test目录中的所有目录均以大写字母开头。但更好的是，请确保测试目录与src目录具有相同的结构，因为这将在测试期间产生更好的模块名称：

-- If file is test/BackendSpec/MessageSpec.hs
BackendSpec.Message:
   <someDescription>
      <some assertion>
      <some assertion>
      <some assertion>

与

-- If file is test/MessageSpec.hs
Message:
   <someDescription>
      <some assertion>
      <some assertion>
      <some assertion>

（有关此行为的相关代码，可在hspec/Run.hs的hspec-discover中找到）