在Haskell中创建自定义标志

问题描述

我有一个测试套件，它运行带有两个后端的相同测试用例：内存中的一个和真实的一个，我正在尝试创建一个仅在存在标记时才运行真实的一个功能的函数。

我在Prelude中不时看到它，但我无法使其正常工作。

我或多或少会如下：

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

您对缺失部分有任何提示吗？

解决方法

这是一个两步过程：

• 创建阴谋旗标
• 有条件地将其定义为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: {}