18 lines
441 B
Raku
18 lines
441 B
Raku
$ cat >dune-project <<EOF
|
|
> (lang dune 3.3)
|
|
> EOF
|
|
|
|
$ cat >dune <<EOF
|
|
> (library
|
|
> (preprocess (action (run %{bin:dunepp} %{input-file})))
|
|
> (name foo))
|
|
> EOF
|
|
|
|
$ cat >foo.ml <<EOF
|
|
> let foo = _STRING_
|
|
> EOF
|
|
|
|
$ dune ocaml top-module foo.ml | sed 's/"[^"]*dunepp"/$dunepp/g'
|
|
#directory "$TESTCASE_ROOT/_build/default/.topmod/foo.ml";;
|
|
#load "$TESTCASE_ROOT/_build/default/.topmod/foo.ml/foo.cmo";;
|
|
#pp $dunepp;;
|