提交 7e01b834 编写于 作者: B Brett V. Forsgren

completely overwrite output files to make tests more robust

上级 dd159c5d
......@@ -151,7 +151,7 @@ module Command =
let fullpath = Commands.getfullpath dir
match rt with
| Append p -> File.AppendText( p |> fullpath)
| Overwrite p -> new StreamWriter(File.OpenWrite(p |> fullpath))
| Overwrite p -> new StreamWriter(new FileStream(p |> fullpath, FileMode.Create))
let outF fCont cmdArgs =
match o with
......
......@@ -395,7 +395,7 @@ module Command =
let fullpath = Commands.getfullpath dir
match rt with
| Append p -> File.AppendText( p |> fullpath)
| Overwrite p -> new StreamWriter(File.OpenWrite(p |> fullpath))
| Overwrite p -> new StreamWriter(new FileStream(p |> fullpath, FileMode.Create))
let outF fCont cmdArgs =
match redirect.Output with
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册