diff options
Diffstat (limited to 'test/examples_SUITE.erl')
| -rw-r--r-- | test/examples_SUITE.erl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/examples_SUITE.erl b/test/examples_SUITE.erl index 40a8b9c..096be02 100644 --- a/test/examples_SUITE.erl +++ b/test/examples_SUITE.erl @@ -232,3 +232,20 @@ do_file_server(Transport, Protocol, Config) -> {200, _, _} = do_get(Transport, Protocol, "/test.txt", Config), {200, _, _} = do_get(Transport, Protocol, "/video.html", Config), ok. + +%% Markdown middleware. + +markdown_middleware(Config) -> + doc("Markdown middleware example."), + try + do_compile_and_start(markdown_middleware), + do_markdown_middleware(tcp, http, Config), + do_markdown_middleware(tcp, http2, Config) + after + do_stop(markdown_middleware) + end. + +do_markdown_middleware(Transport, Protocol, Config) -> + {200, Headers, <<"<h1>", _/bits >>} = do_get(Transport, Protocol, "/video.html", Config), + {_, <<"text/html">>} = lists:keyfind(<<"content-type">>, 1, Headers), + ok. |