forked from
jonmsterling.com/ocaml-forester
ocaml
Remove non-compliant test
This was testing the internal representation of fresh names.
References: https://todo.sr.ht/~jonsterling/forester/164
-40
-40
lib/compiler/test/Test_expansion.ml
-40
lib/compiler/test/Test_expansion.ml
···
57
57
)
58
58
expanded
59
59
60
-
let test ~env () =
61
-
let forest = State.make ~env ~config ~dev: false () in
62
-
let expanded =
63
-
expand ~forest
64
-
{|
65
-
\namespace\foo{
66
-
\let\greet[name]{Hello, \name!}
67
-
\greet{Jon}
68
-
}
69
-
|}
70
-
in
71
-
let evaluated = render ~forest expanded in
72
-
Alcotest.(check @@ result syn diagnostic)
73
-
""
74
-
(
75
-
Ok
76
-
[
77
-
Range.locate_opt
78
-
None
79
-
(
80
-
Syn.Fun
81
-
(
82
-
[Strict, (["name"], 6)],
83
-
(
84
-
List.map
85
-
(Range.locate_opt None)
86
-
[Syn.Text "Hello,"; Text " "; Var (["name"], 6); Text "!"]
87
-
)
88
-
)
89
-
);
90
-
Range.locate_opt None (Syn.Group (Braces, List.map (Range.locate_opt None) [(Syn.Text "Jon")]))
91
-
]
92
-
)
93
-
expanded;
94
-
Alcotest.(check @@ result string diagnostic)
95
-
""
96
-
(Ok "Hello, Jon!")
97
-
evaluated
98
-
99
60
let test_subtree ~env () =
100
61
let@ () = Reporter.easy_run in
101
62
let forest = State.make ~env ~config ~dev: false () in
···
150
111
[
151
112
"",
152
113
[
153
-
test_case "expand" `Quick (test ~env);
154
114
test_case "subtree" `Quick (test_subtree ~env);
155
115
test_case "get_visible" `Quick (test_visible ~env);
156
116
]