ct_doctest: Add option to pass compile options

Author: garazdawi

lib/common_test/src/ct_doctest.erl

@@ -349,15 +349,17 @@ Options for doctest execution.
                     {missing_tests, [{atom(), arity()}]} |
                     {skip_tests, [moduledoc |
                                   {function | type | callback, atom(), arity()}]} |
-                    {verbose, boolean()}].
+                    {verbose, boolean()} |
+                    {compile_options, [compile:option()]}].
 
 -record(options,
         { parser = fun parse_markdown_builtin/1 :: fun((unicode:unicode_binary()) -> term()),
           skipped_blocks = false :: non_neg_integer() | false,
           missing_tests = false :: [{atom(), arity()}] | false,
           skip_tests = [] :: [moduledoc |
                               {function | type | callback, atom(), arity()}],
-          verbose = false :: boolean() }).
+          verbose = false :: boolean(),
+          compile_options = [] :: [compile:option()] }).
 
 -doc #{equiv => module(Module, [])}.
 -spec module(module()) ->
@@ -639,6 +641,8 @@ options(OptionsList) ->
                             Acc#options{ skip_tests = proplists:get_value(skip_tests, OptionsList) };
                         (verbose, Acc) ->
                             Acc#options{ verbose = proplists:get_value(verbose, OptionsList) };
+                        (compile_options, Acc) ->
+                            Acc#options{ compile_options = proplists:get_value(compile_options, OptionsList) };
                         (_Key, Acc) ->
                             Acc
                 end, #options{}, proplists:get_keys(OptionsList)).
@@ -755,15 +759,15 @@ run_test(Code, InitialBindings, Options) ->
                     [ok];
                 {match, [_Line_Number, _Prefix = <<"-module(">>, ModContent]} ->
                     [ModName | _] = binary:split(ModContent, [<<")">>]),
-                    [compile_string(Code, ModName)];
+                    [compile_string(Code, ModName, Options#options.compile_options)];
                 _ ->
                     []
             end
     end.
 
-compile_string(Code, ModName) ->
+compile_string(Code, ModName, CompileOptions) ->
     FileName = unicode:characters_to_list(ModName) ++ ".erl",
-    case compile:string(Code, [binary, return_errors, {source, FileName}]) of
+    case compile:string(Code, [binary, return_errors, {source, FileName} | CompileOptions]) of
         {ok, Module, Binary} ->
             {module, Module} = code:load_binary(Module, FileName, Binary),
             ok;