30 lines
516 B
Perl
30 lines
516 B
Perl
|
Test running inline tests in bytecode mode
|
||
|
|
|
||
|
|
Reproduction case for #5515
|
||
|
|
|
||
|
|
$ cat >dune-project <<EOF
|
||
|
|
> (lang dune 2.9)
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ cat >dune <<EOF
|
||
|
|
> (library
|
||
|
|
> (name test)
|
||
|
|
> (modules test)
|
||
|
|
> (inline_tests (modes byte))
|
||
|
|
> (preprocess (pps ppx_inline_test)))
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ cat >test.ml <<EOF
|
||
|
|
> let be =
|
||
|
|
> match Sys.backend_type with
|
||
|
|
> | Native -> "native"
|
||
|
|
> | Bytecode -> "byte"
|
||
|
|
> | Other s -> s
|
||
|
|
> let%test "test1" =
|
||
|
|
> print_endline be;
|
||
|
|
> true
|
||
|
|
> EOF
|
||
|
|
|
||
|
|
$ dune test
|
||
|
|
byte
|