diff options
| author | Jim Fehrle | 2018-05-18 12:03:19 -0700 |
|---|---|---|
| committer | Jim Fehrle | 2018-07-23 08:25:11 -0700 |
| commit | a6131723faa8699e485a88fae8cc2323b82a8461 (patch) | |
| tree | adffb12de7e173d3a948976fd1b6de669be2bf77 /test-suite/unit-tests/clib | |
| parent | 496d9d4007f59e6114dae9a94ee5a39d241484cf (diff) | |
Make the out_channel for the log file accessible so tests can write to it (e.g. for debugging)
Diffstat (limited to 'test-suite/unit-tests/clib')
| -rw-r--r-- | test-suite/unit-tests/clib/inteq.ml | 4 | ||||
| -rw-r--r-- | test-suite/unit-tests/clib/unicode_tests.ml | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/test-suite/unit-tests/clib/inteq.ml b/test-suite/unit-tests/clib/inteq.ml index c07ec293f0..89717c79d5 100644 --- a/test-suite/unit-tests/clib/inteq.ml +++ b/test-suite/unit-tests/clib/inteq.ml @@ -1,5 +1,7 @@ open Utest +let log_out_ch = open_log_out_ch __FILE__ + let eq0 = mk_bool_test "clib-inteq0" "Int.equal on 0" (Int.equal 0 0) @@ -10,4 +12,4 @@ let eq42 = mk_bool_test "clib-inteq42" let tests = [ eq0; eq42 ] -let _ = run_tests __FILE__ tests +let _ = run_tests __FILE__ log_out_ch tests diff --git a/test-suite/unit-tests/clib/unicode_tests.ml b/test-suite/unit-tests/clib/unicode_tests.ml index 9ae405977b..95316ad3aa 100644 --- a/test-suite/unit-tests/clib/unicode_tests.ml +++ b/test-suite/unit-tests/clib/unicode_tests.ml @@ -1,5 +1,7 @@ open Utest +let log_out_ch = open_log_out_ch __FILE__ + let unicode0 = mk_eq_test "clib-unicode0" "split_at_first_letter, first letter is character" None @@ -12,4 +14,4 @@ let unicode1 = mk_eq_test "clib-unicode1" let tests = [ unicode0; unicode1 ] -let _ = run_tests __FILE__ tests +let _ = run_tests __FILE__ log_out_ch tests |