在 Haskell 中创建自定义标志

Question

我有一个测试套件，其中运行具有两个后端的相同测试用例：内存中的和真实的，我正在尝试创建一个仅运行当存在标志时是真实的。

我在Prelude中时常看到它，但我无法让它工作。

我大概会是这样的：

onFullSuite :: Spec -> Spec
#if defined(RUN_FULL_SUITE)
onFullSuite = id
#else
onFullSuite = xdescribe "Only on full test suite run"
#endif

你对遗漏的部分有什么提示吗？

Answer 1

这是一个两步过程：

创建阴谋集团旗帜
有条件地定义为ghc-option

flags:
  run-full-suite:
    manual: true
    default: false


library:
  source-dirs: src
  when:
  - condition: (flag(run-full-suite))
    then:
      cpp-options: -DRUN_FULL_SUITE
    else: {}

在 Haskell 中创建自定义标志

Create custom flags in Haskell

haskell

compilation

compiler-flags

hpack