1. 7shi

    No comment

    7shi
Changes in body
Source | HTML | Preview
@@ -55,22 +55,22 @@
runTestText (putTextToHandle stderr False) tests
```
テストが通れば結果のみが表示されます。表示がシンプルになるように`putTextToHandle`で調整しています。
-```text:結果
+```text:実行結果
Cases: 5 Tried: 5 Errors: 0 Failures: 0
```
## テスト失敗
意図的にテストを失敗させて結果を確認します。
```hs:テストの改変部分
, "fact 5" ~: fact 5 ~?= 100
```
-```text:結果
+```text:実行結果
### Failure in: 4:fact 5
expected: 100
but got: 120
Cases: 5 Tried: 5 Errors: 0 Failures: 1
```
@@ -92,12 +92,11 @@
]
main = do
runTestText (putTextToHandle stderr False) tests
```
-
-```text
+```text:実行結果
### Error in: 0:f 0
src\Main.hs:4:1-7: Non-exhaustive patterns in function f
### Error in: 2:f 2
src\Main.hs:4:1-7: Non-exhaustive patterns in function f