Skip to content

Commit ba6f6a2

Browse files
authored
Merge branch 'dev' into projector-html
2 parents 2d79966 + 7f2873f commit ba6f6a2

File tree

1 file changed

+21
-13
lines changed

1 file changed

+21
-13
lines changed

test/evaluator/Test_StepperBase.re

Lines changed: 21 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -301,19 +301,27 @@ let tests = (
301301
"single step: beta reduction",
302302
`Quick,
303303
() => {
304-
let exp = Exp.fresh(Ap(
305-
Forward,
306-
Exp.fresh(Fun(
307-
Pat.fresh(Var("x")),
308-
Exp.fresh(BinOp(Int(Plus),
309-
Exp.fresh(Var("x")),
310-
Exp.fresh(Atom(Int(Bigint.of_int(1)))),
311-
)),
312-
None,
313-
None
314-
)),
315-
Exp.fresh(Atom(Int(Bigint.of_int(5)))),
316-
))
304+
let exp =
305+
Exp.fresh(
306+
Ap(
307+
Forward,
308+
Exp.fresh(
309+
Fun(
310+
Pat.fresh(Var("x")),
311+
Exp.fresh(
312+
BinOp(
313+
Int(Plus),
314+
Exp.fresh(Var("x")),
315+
Exp.fresh(Atom(Int(Bigint.of_int(1)))),
316+
),
317+
),
318+
None,
319+
None,
320+
),
321+
),
322+
Exp.fresh(Atom(Int(Bigint.of_int(5)))),
323+
),
324+
);
317325
let elab = elaborate(exp);
318326
let result =
319327
run_single_step(

0 commit comments

Comments
 (0)