如何在堆栈中使用HUnit

Question

我有一个带有app/Main.hs文件的stackproject app/Main.hs

module Main where

import Lib

main = putStrLn "This is main" 

foo::Int ->Int
foo = (+1)

和一个文件test/Spec.hs

module Spec where

import Test.HUnit
import Main (foo)

main :: IO ()
main = putStrLn "Test suite not yet implemented"

testFoo :: Test
testFoo = TestCase $ assertEqual "Should return 2" 2 (foo 1)

但是，当我尝试执行测试时

$ stack test
While constructing the BuildPlan the following exceptions were encountered:

--  While attempting to add dependency,
    Could not find package Main in known packages

--  Failure when adding dependencies:    
      Main: needed (-any), stack configuration has no specified version
    needed for package stapro-0.1.0.0

我的.cabal文件是

name:                stapro
version:             0.1.0.0
...
build-type:          Simple
-- extra-source-files:
cabal-version:       >=1.10

library
  hs-source-dirs:      src
  exposed-modules:     Lib
  build-depends:       base >= 4.7 && < 5
  default-language:    Haskell2010

executable stapro-exe
  hs-source-dirs:      app
  main-is:             Main.hs
  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
  build-depends:       base
                     , stapro
  default-language:    Haskell2010

test-suite stapro-test
  type:                exitcode-stdio-1.0
  hs-source-dirs:      test
  main-is:             Spec.hs
  build-depends:       base
                     , stapro
                     , HUnit
                     , Main
  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
  default-language:    Haskell2010

...

Answer 1

看起来您正在尝试依赖于可执行文件(Main in build-depends of test-suite节)，这样您就可以在测试套件中测试它了。这不起作用，实际上你根本无法测试你的可执行文件。

从Main中删除build-depends。将所有要测试的代码移到库中。