代码之家 › 专栏 › 技术社区 › Nowhere man

如何在ghci中测试从stdin读取的程序?

ghci interactive io testing haskell

Nowhere man · 技术社区 · 8 年前

我的程序有一个错误,我想在ghci中看到:

$ ./my-program < ./my-data
Prelude.foldl1: empty list

我试着改变 stdin 或 getLine 但它似乎并不影响 盖特林 我的程序使用,即使之后加载:

$ ghci
Prelude> import System.IO
Prelude System.IO> getLine <- fmap hGetLine $ openFile "my-data" ReadMode
:l "my-program.hs"
:main

我是否需要重写我的所有ios以获得一个显式句柄,以便能够在ghci中测试它们?

2 回复 | 直到 8 年前

n. m. could be an AI 8 年前

您可以尝试将程序包装成类似这样的内容(已测试的工作代码):

import qualified System.IO
import qualified GHC.IO.Handle

filename = "/tmp/myfilename"                                                                                                                                                                                                                                                      

main = do                                                                                                                                                                                                                                         
      h <- System.IO.openFile filename System.IO.ReadMode                                                                                                                                                                                         
      old_stdin <- GHC.IO.Handle.hDuplicate System.IO.stdin                                                                                                                                                                                       
      GHC.IO.Handle.hDuplicateTo h System.IO.stdin                                                                                                                                                                                                
      System.IO.hClose h
      realMain
      GHC.IO.Handle.hDuplicateTo old_stdin System.IO.stdin

realMain = ...

还应该可以定义一个用户定义的ghci命令来为任何ghci命令执行此操作,但我还没有尝试过。见 here 为某人的。重定向命令的ghci 标准输出 使用用户定义的 :redir 命令。

-1

tylerweir 8 年前

我想你想要:

ghci> :set args YOUR_ARG
ghci> main

或

ghci> :main YOUR_ARG

请参见这里: How to set a program's command line arguments for GHCi?

推荐文章

Tim Kirkwood · 比较空数据帧

1 年前

Display name · 在qunit中,如何查询滚动条高度或检测元素上是否存在滚动条?

2 年前

nerrood · 为什么在笑话测试中不调用save

2 年前

eof · Chrome块文件下载-selenium

2 年前

Display name · Ember.js辛烷值验收试验

2 年前

Vitto · 理智和回归测试是如何在一个简单的场景中协同工作的?

2 年前

mattsmith5 · 使用特征文件并行计算空手道跑场景

2 年前

Powet · 如何解析具有@TestPropertySource值的属性占位符?

2 年前

Norronas · 采用裸机编程的寄存器单元测试

2 年前

mike rodent · 如何测试我的`__main__`文件的功能?

2 年前