File tree Expand file tree Collapse file tree 2 files changed +11
-1
lines changed
Expand file tree Collapse file tree 2 files changed +11
-1
lines changed Original file line number Diff line number Diff line change 11(library
22 (name dune_ai_context)
3- (libraries str unix compiler-libs.common sexplib))
3+ (libraries str unix compiler-libs.common sexplib ppx_inline_test ))
Original file line number Diff line number Diff line change @@ -119,3 +119,13 @@ let print_vendor_dependencies () =
119119 Format. printf " %a\n " Printtyp. signature cmi.cmi_sign)
120120 cmi_paths)
121121 deps
122+
123+ (* Inline test for [extract_external_deps] *)
124+ let % test " extract_external_deps parses external_deps correctly" =
125+ let s =
126+ " (default\n ((library\n ((names (inst))\n (extensions ())\n (package (inst))\n (source_dir lib)\n (external_deps\n ((core required)\n (str required)\n (ppx_jane required)\n (ppx_deriving_yojson required)))\n (internal_deps ())))))"
127+ in
128+ let sexp = Sexplib.Sexp. of_string s in
129+ let deps = extract_external_deps sexp in
130+ let expected = [" core" ; " str" ; " ppx_jane" ; " ppx_deriving_yojson" ] in
131+ List. sort String. compare deps = List. sort String. compare expected
You can’t perform that action at this time.
0 commit comments