File tree Expand file tree Collapse file tree 13 files changed +29
-29
lines changed Expand file tree Collapse file tree 13 files changed +29
-29
lines changed Original file line number Diff line number Diff line change 29
29
module AT_domain = Lin_domain. Make (AConf )
30
30
;;
31
31
QCheck_base_runner. run_tests_main [
32
- AT_domain. neg_lin_test ~count: 1000 ~name: " Lin_api Array test with Domain" ;
32
+ AT_domain. neg_lin_test ~count: 1000 ~name: " Lin DSL Array test with Domain" ;
33
33
]
Original file line number Diff line number Diff line change @@ -17,5 +17,5 @@ module Lin_atomic_domain = Lin_domain.Make (Atomic_spec)
17
17
18
18
let () =
19
19
QCheck_base_runner. run_tests_main
20
- [ Lin_atomic_domain. lin_test ~count: 1000 ~name: " Lin_api Atomic test with Domain" ;
20
+ [ Lin_atomic_domain. lin_test ~count: 1000 ~name: " Lin DSL Atomic test with Domain" ;
21
21
]
Original file line number Diff line number Diff line change @@ -29,5 +29,5 @@ module BA1T = Lin_domain.Make(BA1Conf)
29
29
30
30
let _ =
31
31
QCheck_base_runner. run_tests_main [
32
- BA1T. neg_lin_test ~count: 5000 ~name: " Lin_api Bigarray.Array1 (of ints) test with Domain" ;
32
+ BA1T. neg_lin_test ~count: 5000 ~name: " Lin DSL Bigarray.Array1 (of ints) test with Domain" ;
33
33
]
Original file line number Diff line number Diff line change @@ -21,6 +21,6 @@ module BT_domain = Lin_domain.Make(BConf)
21
21
module BT_thread = Lin_thread. Make (BConf )
22
22
;;
23
23
QCheck_base_runner. run_tests_main [
24
- BT_domain. lin_test ~count: 1000 ~name: " Lin_api Bytes test with Domain" ;
25
- BT_thread. lin_test ~count: 1000 ~name: " Lin_api Bytes test with Thread" ;
24
+ BT_domain. lin_test ~count: 1000 ~name: " Lin DSL Bytes test with Domain" ;
25
+ BT_thread. lin_test ~count: 1000 ~name: " Lin DSL Bytes test with Thread" ;
26
26
]
Original file line number Diff line number Diff line change @@ -42,6 +42,6 @@ module ET_domain = Lin_domain.Make(EConf)
42
42
module ET_thread = Lin_thread. Make (EConf )
43
43
;;
44
44
QCheck_base_runner. run_tests_main [
45
- ET_domain. neg_lin_test ~count: 1000 ~name: " Lin_api Ephemeron test with Domain" ;
46
- ET_thread. lin_test ~count: 250 ~name: " Lin_api Ephemeron test with Thread" ;
45
+ ET_domain. neg_lin_test ~count: 1000 ~name: " Lin DSL Ephemeron test with Domain" ;
46
+ ET_thread. lin_test ~count: 250 ~name: " Lin DSL Ephemeron test with Thread" ;
47
47
]
Original file line number Diff line number Diff line change @@ -37,5 +37,5 @@ module FAT = Lin_domain.Make(FAConf)
37
37
38
38
let _ =
39
39
QCheck_base_runner. run_tests_main [
40
- FAT. neg_lin_test ~count: 1000 ~name: " Lin_api Float.Array test with Domain" ;
40
+ FAT. neg_lin_test ~count: 1000 ~name: " Lin DSL Float.Array test with Domain" ;
41
41
]
Original file line number Diff line number Diff line change 26
26
module HT_domain = Lin_domain. Make (HConf )
27
27
;;
28
28
QCheck_base_runner. run_tests_main [
29
- HT_domain. neg_lin_test ~count: 1000 ~name: " Lin_api Hashtbl test with Domain" ;
29
+ HT_domain. neg_lin_test ~count: 1000 ~name: " Lin DSL Hashtbl test with Domain" ;
30
30
]
Original file line number Diff line number Diff line change @@ -67,7 +67,7 @@ module LTfromfun_domain = Lin_domain.Make(LTfromfunAPI)
67
67
;;
68
68
QCheck_base_runner. run_tests_main
69
69
(let count = 100 in
70
- [LTlazy_domain. neg_lin_test ~count ~name: " Lin_api Lazy test with Domain" ;
71
- LTfromval_domain. lin_test ~count ~name: " Lin_api Lazy test with Domain from_val" ;
72
- LTfromfun_domain. neg_lin_test ~count ~name: " Lin_api Lazy test with Domain from_fun" ;
70
+ [LTlazy_domain. neg_lin_test ~count ~name: " Lin DSL Lazy test with Domain" ;
71
+ LTfromval_domain. lin_test ~count ~name: " Lin DSL Lazy test with Domain from_val" ;
72
+ LTfromfun_domain. neg_lin_test ~count ~name: " Lin DSL Lazy test with Domain from_fun" ;
73
73
])
Original file line number Diff line number Diff line change 15
15
lin_tests_effect.exe ;; currently not run on CI
16
16
lin_tests_thread_ref.exe ;; currently disabled under bytecode mode
17
17
lin_tests_thread_conclist.exe
18
- ;; Lin_api tests
18
+ ;; Lin DSL tests
19
19
lin_tests_dsl_domain.exe
20
20
lin_tests_dsl_effect.exe
21
21
lin_tests_dsl_thread.exe)) ;; currently not run on CI
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ open Lin_tests_dsl_common
5
5
;;
6
6
QCheck_base_runner. run_tests_main
7
7
(let count = 10000 in
8
- [RT_int_domain. neg_lin_test ~count ~name: " Lin_api ref int test with Domain" ;
9
- RT_int64_domain. neg_lin_test ~count ~name: " Lin_api ref int64 test with Domain" ;
10
- CLT_int_domain. neg_lin_test ~count ~name: " Lin_api CList int test with Domain" ;
11
- CLT_int64_domain. neg_lin_test ~count ~name: " Lin_api CList int64 test with Domain" ])
8
+ [RT_int_domain. neg_lin_test ~count ~name: " Lin DSL ref int test with Domain" ;
9
+ RT_int64_domain. neg_lin_test ~count ~name: " Lin DSL ref int64 test with Domain" ;
10
+ CLT_int_domain. neg_lin_test ~count ~name: " Lin DSL CList int test with Domain" ;
11
+ CLT_int64_domain. neg_lin_test ~count ~name: " Lin DSL CList int64 test with Domain" ])
Original file line number Diff line number Diff line change @@ -83,13 +83,13 @@ module CLT_int64'_effect = Lin_effect.Make(CList_spec_int64')
83
83
QCheck_base_runner. run_tests_main
84
84
(let count = 20_000 in [
85
85
(* We don't expect the first four tests to fail as each `cmd` is completed before a `Yield` *)
86
- RT_int_effect. lin_test ~count ~name: " Lin_api ref int test with Effect" ;
87
- RT_int64_effect. lin_test ~count ~name: " Lin_api ref int64 test with Effect" ;
88
- CLT_int_effect. lin_test ~count ~name: " Lin_api CList int test with Effect" ;
89
- CLT_int64_effect. lin_test ~count ~name: " Lin_api CList int64 test with Effect" ;
86
+ RT_int_effect. lin_test ~count ~name: " Lin DSL ref int test with Effect" ;
87
+ RT_int64_effect. lin_test ~count ~name: " Lin DSL ref int64 test with Effect" ;
88
+ CLT_int_effect. lin_test ~count ~name: " Lin DSL CList int test with Effect" ;
89
+ CLT_int64_effect. lin_test ~count ~name: " Lin DSL CList int64 test with Effect" ;
90
90
(* These next four tests are negative - and are expected to fail with exception `Unhandled` *)
91
- RT_int'_effect. neg_lin_test ~count ~name: " negative Lin_api ref int test with Effect" ;
92
- RT_int64'_effect. neg_lin_test ~count ~name: " negative Lin_api ref int64 test with Effect" ;
93
- CLT_int'_effect. neg_lin_test ~count ~name: " negative Lin_api CList int test with Effect" ;
94
- CLT_int64'_effect. neg_lin_test ~count ~name: " negative Lin_api CList int64 test with Effect"
91
+ RT_int'_effect. neg_lin_test ~count ~name: " negative Lin DSL ref int test with Effect" ;
92
+ RT_int64'_effect. neg_lin_test ~count ~name: " negative Lin DSL ref int64 test with Effect" ;
93
+ CLT_int'_effect. neg_lin_test ~count ~name: " negative Lin DSL CList int test with Effect" ;
94
+ CLT_int64'_effect. neg_lin_test ~count ~name: " negative Lin DSL CList int64 test with Effect"
95
95
])
Original file line number Diff line number Diff line change @@ -22,6 +22,6 @@ module Lin_queue_thread = Lin_thread.Make(Queue_spec)
22
22
23
23
let () =
24
24
QCheck_base_runner. run_tests_main [
25
- Lin_queue_domain. neg_lin_test ~count: 1000 ~name: " Lin_api Queue test with Domain" ;
26
- Lin_queue_thread. lin_test ~count: 250 ~name: " Lin_api Queue test with Thread" ;
25
+ Lin_queue_domain. neg_lin_test ~count: 1000 ~name: " Lin DSL Queue test with Domain" ;
26
+ Lin_queue_thread. lin_test ~count: 250 ~name: " Lin DSL Queue test with Thread" ;
27
27
]
Original file line number Diff line number Diff line change @@ -22,6 +22,6 @@ module Stack_thread = Lin_thread.Make(Stack_spec)
22
22
23
23
let () =
24
24
QCheck_base_runner. run_tests_main [
25
- Stack_domain. neg_lin_test ~count: 1000 ~name: " Lin_api Stack test with Domain" ;
26
- Stack_thread. lin_test ~count: 250 ~name: " Lin_api Stack test with Thread" ;
25
+ Stack_domain. neg_lin_test ~count: 1000 ~name: " Lin DSL Stack test with Domain" ;
26
+ Stack_thread. lin_test ~count: 250 ~name: " Lin DSL Stack test with Thread" ;
27
27
]
You can’t perform that action at this time.
0 commit comments