如何解决在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: {}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。