1. 7shi

    No comment

    7shi
Changes in body
Source | HTML | Preview
@@ -55,32 +55,31 @@
runTestText (putTextToHandle stderr False) tests
```
テストが通れば結果のみが表示されます。表示がシンプルになるように`putTextToHandle`で調整しています。
-```text
+```text:結果
Cases: 5 Tried: 5 Errors: 0 Failures: 0
```
## テスト失敗
-テストが通らなかった場合は以下のように表示されます。
+意図的にテストを失敗させて結果を確認します。
-```hs
+```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
```
## エラー
-テスト中にエラーが発生した場合は以下のように表示されます。
+意図的にエラーを発生させて結果を確認します。
```hs
import Test.HUnit
import System.IO