使用HSpec和Stack

时间:2016-01-26 00:41:08

标签: haskell cabal haskell-stack 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无法在MessageSpec.hs中找到我的测试。

  

在0.0002秒完成   0个例子,0个失败

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

我的MessageSpec模块正在暴露:模块MessageSpec(main,spec)。

你能帮我找到一种让我的堆栈项目完成所有测试的方法。

谢谢,

1 个答案:

答案 0 :(得分:2)

您的规范的路径必须遵循模块名称约定。 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>

VS

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

(此行为的相关代码可在hspec-discover的{​​{3}}中找到