使用Haskell Stack运行detailed-0.9测试套件时,“在本地找不到模块”

时间:2019-02-22 12:48:40

标签: unit-testing haskell testing cabal haskell-stack

我有一个带有detailed-0.9测试套件的Haskell项目。我可以使用cabal正确运行测试,但是使用stack会出错。 exitcode-stdio-1.0测试套件似乎可以正常工作。

MWE

下面是一个最小的工作示例,其中包含两种测试套件类型。完整的存储库可用here

stack-test-detailed.cabal

name: stack-test-detailed
version: 0.1.0.0
build-type: Simple
cabal-version: >=1.20

test-suite exitcode
  type: exitcode-stdio-1.0
  main-is: Exitcode.hs
  other-modules: MyModule
  build-depends: base >=4.10
  hs-source-dirs: src testsuite
  default-language: Haskell2010

test-suite detailed
  type: detailed-0.9
  test-module: Detailed
  other-modules: MyModule
  build-depends: base >=4.10, Cabal >=1.20
  hs-source-dirs: src testsuite
  default-language: Haskell2010

src / MyModule.hs

module MyModule where

myFunction :: Int
myFunction = 1

testsuite / Exitcode.hs

import MyModule (myFunction)
import System.Exit (exitSuccess, exitFailure)

main :: IO ()
main =
  if myFunction == 1
  then exitSuccess
  else exitFailure

testsuite / Detailed.hs

module Detailed where

import MyModule (myFunction)
import Distribution.TestSuite

tests :: IO [Test]
tests = return
  [ Test $ TestInstance
    { run = return $ Finished $ if myFunction == 1 then Pass else Fail "not equal 1"
    , name = "my test"
    , Distribution.TestSuite.tags = []
    , options = []
    , setOption = \opt val -> Left "options not supported"
    }
  ]

stack.yaml

resolver: lts-11.22

输出

cabal

一切正常:

$ cabal test exitcode
Preprocessing test suite 'exitcode' for stack-test-detailed-0.1.0.0..
Building test suite 'exitcode' for stack-test-detailed-0.1.0.0..
Running 1 test suites...
Test suite exitcode: RUNNING...
Test suite exitcode: PASS
Test suite logged to: dist/test/stack-test-detailed-0.1.0.0-exitcode.log
1 of 1 test suites (1 of 1 test cases) passed.
$ cabal test detailed
Preprocessing test suite 'detailed' for stack-test-detailed-0.1.0.0..
Building test suite 'detailed' for stack-test-detailed-0.1.0.0..
[1 of 1] Compiling Main             ( dist/build/detailedStub/detailedStub-tmp/detailedStub.hs, dist/build/detailedStub/detailedStub-tmp/Main.o )
Linking dist/build/detailedStub/detailedStub ...
Running 1 test suites...
Test suite detailed: RUNNING...
Test suite detailed: PASS
Test suite logged to: dist/test/stack-test-detailed-0.1.0.0-detailed.log
1 of 1 test suites (1 of 1 test cases) passed.

堆栈

Exitcode测试有效:

$ stack test :exitcode
stack-test-detailed-0.1.0.0: build (test)
Preprocessing test suite 'exitcode' for stack-test-detailed-0.1.0.0..
Building test suite 'exitcode' for stack-test-detailed-0.1.0.0..
stack-test-detailed-0.1.0.0: test (suite: exitcode)


stack-test-detailed-0.1.0.0: Test suite exitcode passed
Completed 2 action(s).

详细测试无法编译:

$ stack test :detailed
stack-test-detailed-0.1.0.0: build (test)
Preprocessing test suite 'detailed' for stack-test-detailed-0.1.0.0..
Building test suite 'detailed' for stack-test-detailed-0.1.0.0..

<no location info>: error:
    module ‘MyModule’ cannot be found locally

Progress 1/2

--  While building custom Setup.hs for package stack-test-detailed-0.1.0.0 using:
      /Users/john/.stack/setup-exe-cache/x86_64-osx/Cabal-simple_mPHDZzAJ_2.0.1.0_ghc-8.2.2 --builddir=.stack-work/dist/x86_64-osx/Cabal-2.0.1.0 build test:detailed --ghc-options " -ddump-hi -ddump-to-file -fdiagnostics-color=always"
    Process exited with code: ExitFailure 1

从环顾四周,我发现detailed-0.9有点不酷,人们似乎立即放弃了。但这是properly documented,并且确实可以与cabal一起使用,因此我不明白为什么stack应该会失败。

1 个答案:

答案 0 :(得分:0)

更新

似乎这实际上是Stack的错误,已经报告了here 并固定 here(尽管该修补程序在最新版本中尚不可用)。