Skip to content

Commit dbb19eb

Browse files
mshinwellmshinwell
committed
Testsuite promotions
1 parent 21a3ea3 commit dbb19eb

File tree

7 files changed

+196
-196
lines changed

7 files changed

+196
-196
lines changed

‎ocaml/testsuite/tests/basic/patmatch_for_multiple.ml

+157-157
Large diffs are not rendered by default.

‎ocaml/testsuite/tests/ppx-empty-cases/test.compilers.reference

+22-22
Original file line numberDiff line numberDiff line change
@@ -1,40 +1,40 @@
11
(setglobal Test!
22
(let
3-
(empty_cases_returning_string/269 =
4-
(function {nlocal = 0} param/271
3+
(empty_cases_returning_string/270 =
4+
(function {nlocal = 0} param/272
55
(raise
66
(makeblock 0 (getpredef Match_failure/29!!) [0: "test.ml" 28 50])))
7-
empty_cases_returning_float64/272 =
8-
(function {nlocal = 0} param/274 : unboxed_float
7+
empty_cases_returning_float64/273 =
8+
(function {nlocal = 0} param/275 : unboxed_float
99
(raise
1010
(makeblock 0 (getpredef Match_failure/29!!) [0: "test.ml" 29 50])))
11-
empty_cases_accepting_string/275 =
12-
(function {nlocal = 0} param/277
11+
empty_cases_accepting_string/276 =
12+
(function {nlocal = 0} param/278
1313
(raise
1414
(makeblock 0 (getpredef Match_failure/29!!) [0: "test.ml" 30 50])))
15-
empty_cases_accepting_float64/278 =
16-
(function {nlocal = 0} param/280[unboxed_float]
15+
empty_cases_accepting_float64/279 =
16+
(function {nlocal = 0} param/281[unboxed_float]
1717
(raise
1818
(makeblock 0 (getpredef Match_failure/29!!) [0: "test.ml" 31 50])))
19-
non_empty_cases_returning_string/281 =
20-
(function {nlocal = 0} param/283
19+
non_empty_cases_returning_string/282 =
20+
(function {nlocal = 0} param/284
2121
(raise
2222
(makeblock 0 (getpredef Assert_failure/39!!) [0: "test.ml" 32 68])))
23-
non_empty_cases_returning_float64/284 =
24-
(function {nlocal = 0} param/286 : unboxed_float
23+
non_empty_cases_returning_float64/285 =
24+
(function {nlocal = 0} param/287 : unboxed_float
2525
(raise
2626
(makeblock 0 (getpredef Assert_failure/39!!) [0: "test.ml" 33 68])))
27-
non_empty_cases_accepting_string/287 =
28-
(function {nlocal = 0} param/289
27+
non_empty_cases_accepting_string/288 =
28+
(function {nlocal = 0} param/290
2929
(raise
3030
(makeblock 0 (getpredef Assert_failure/39!!) [0: "test.ml" 34 68])))
31-
non_empty_cases_accepting_float64/290 =
32-
(function {nlocal = 0} param/292[unboxed_float]
31+
non_empty_cases_accepting_float64/291 =
32+
(function {nlocal = 0} param/293[unboxed_float]
3333
(raise
3434
(makeblock 0 (getpredef Assert_failure/39!!) [0: "test.ml" 35 68]))))
35-
(makeblock 0 empty_cases_returning_string/269
36-
empty_cases_returning_float64/272 empty_cases_accepting_string/275
37-
empty_cases_accepting_float64/278 non_empty_cases_returning_string/281
38-
non_empty_cases_returning_float64/284
39-
non_empty_cases_accepting_string/287
40-
non_empty_cases_accepting_float64/290)))
35+
(makeblock 0 empty_cases_returning_string/270
36+
empty_cases_returning_float64/273 empty_cases_accepting_string/276
37+
empty_cases_accepting_float64/279 non_empty_cases_returning_string/282
38+
non_empty_cases_returning_float64/285
39+
non_empty_cases_accepting_string/288
40+
non_empty_cases_accepting_float64/291)))

‎ocaml/testsuite/tests/shapes/comp_units.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ module Mproj = Unit
2525
module F (X : sig type t end) = X
2626
[%%expect{|
2727
{
28-
"F"[module] -> Abs<.4>(X/278, X/278<.3>);
28+
"F"[module] -> Abs<.4>(X/279, X/279<.3>);
2929
}
3030
module F : functor (X : sig type t end) -> sig type t = X.t end
3131
|}]

‎ocaml/testsuite/tests/shapes/functors.ml

+9-9
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ module type S = sig type t val x : t end
1717
module Falias (X : S) = X
1818
[%%expect{|
1919
{
20-
"Falias"[module] -> Abs<.4>(X/280, X/280<.3>);
20+
"Falias"[module] -> Abs<.4>(X/281, X/281<.3>);
2121
}
2222
module Falias : functor (X : S) -> sig type t = X.t val x : t end
2323
|}]
@@ -29,10 +29,10 @@ end
2929
{
3030
"Finclude"[module] ->
3131
Abs<.6>
32-
(X/284,
32+
(X/285,
3333
{
34-
"t"[type] -> X/284<.5> . "t"[type];
35-
"x"[value] -> X/284<.5> . "x"[value];
34+
"t"[type] -> X/285<.5> . "t"[type];
35+
"x"[value] -> X/285<.5> . "x"[value];
3636
});
3737
}
3838
module Finclude : functor (X : S) -> sig type t = X.t val x : t end
@@ -45,7 +45,7 @@ end
4545
[%%expect{|
4646
{
4747
"Fredef"[module] ->
48-
Abs<.10>(X/291, {
48+
Abs<.10>(X/292, {
4949
"t"[type] -> <.8>;
5050
"x"[value] -> <.9>;
5151
});
@@ -223,8 +223,8 @@ module Big_to_small1 : B2S = functor (X : Big) -> X
223223
[%%expect{|
224224
{
225225
"Big_to_small1"[module] ->
226-
Abs<.40>(X/384, {<.39>
227-
"t"[type] -> X/384<.39> . "t"[type];
226+
Abs<.40>(X/385, {<.39>
227+
"t"[type] -> X/385<.39> . "t"[type];
228228
});
229229
}
230230
module Big_to_small1 : B2S
@@ -234,8 +234,8 @@ module Big_to_small2 : B2S = functor (X : Big) -> struct include X end
234234
[%%expect{|
235235
{
236236
"Big_to_small2"[module] ->
237-
Abs<.42>(X/387, {
238-
"t"[type] -> X/387<.41> . "t"[type];
237+
Abs<.42>(X/388, {
238+
"t"[type] -> X/388<.41> . "t"[type];
239239
});
240240
}
241241
module Big_to_small2 : B2S

‎ocaml/testsuite/tests/shapes/open_arg.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ end = struct end
2222

2323
[%%expect{|
2424
{
25-
"Make"[module] -> Abs<.3>(I/280, {
25+
"Make"[module] -> Abs<.3>(I/281, {
2626
});
2727
}
2828
module Make : functor (I : sig end) -> sig end

‎ocaml/testsuite/tests/shapes/recmodules.ml

+5-5
Original file line numberDiff line numberDiff line change
@@ -43,8 +43,8 @@ and B : sig
4343
end = B
4444
[%%expect{|
4545
{
46-
"A"[module] -> A/303<.11>;
47-
"B"[module] -> B/304<.12>;
46+
"A"[module] -> A/304<.11>;
47+
"B"[module] -> B/305<.12>;
4848
}
4949
module rec A : sig type t = Leaf of B.t end
5050
and B : sig type t = int end
@@ -82,12 +82,12 @@ end = Set.Make(A)
8282
"ASet"[module] ->
8383
{
8484
"compare"[value] ->
85-
CU Stdlib . "Set"[module] . "Make"[module](A/325<.19>) .
85+
CU Stdlib . "Set"[module] . "Make"[module](A/326<.19>) .
8686
"compare"[value];
8787
"elt"[type] ->
88-
CU Stdlib . "Set"[module] . "Make"[module](A/325<.19>) . "elt"[type];
88+
CU Stdlib . "Set"[module] . "Make"[module](A/326<.19>) . "elt"[type];
8989
"t"[type] ->
90-
CU Stdlib . "Set"[module] . "Make"[module](A/325<.19>) . "t"[type];
90+
CU Stdlib . "Set"[module] . "Make"[module](A/326<.19>) . "t"[type];
9191
};
9292
}
9393
module rec A :

‎ocaml/testsuite/tests/shapes/rotor_example.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ end
2525
[%%expect{|
2626
{
2727
"Pair"[module] ->
28-
Abs<.9>(X/280, Y/281, {
28+
Abs<.9>(X/281, Y/282, {
2929
"t"[type] -> <.5>;
3030
"to_string"[value] -> <.6>;
3131
});

0 commit comments

Comments
 (0)