diff options
Diffstat (limited to 'src/ct_helper.erl')
| -rw-r--r-- | src/ct_helper.erl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/ct_helper.erl b/src/ct_helper.erl index d572d68..2092d8b 100644 --- a/src/ct_helper.erl +++ b/src/ct_helper.erl @@ -15,12 +15,34 @@ %% @doc Helper functions for common_test suites. -module(ct_helper). +-export([create_static_dir/1]). +-export([delete_static_dir/1]). -export([make_certs/0]). -type der_encoded() :: binary(). -type key() :: {'RSAPrivateKey' | 'DSAPrivateKey' | 'PrivateKeyInfo', der_encoded()}. +create_static_dir(Path) -> + ok = file:make_dir(Path), + ok = file:make_dir(Path ++ "/directory"), + ok = file:write_file(Path ++ "/unknown", "File with no extension.\n"), + ok = file:write_file(Path ++ "/style.css", "body{color:red}\n"), + ok = file:write_file(Path ++ "/index.html", + "<html><body>Hello!</body></html>\n"), + ok = file:write_file(Path ++ "/unreadable", "unreadable\n"), + ok = file:change_mode(Path ++ "/unreadable", 8#0333), + ok. + +delete_static_dir(Path) -> + ok = file:delete(Path ++ "/unreadable"), + ok = file:delete(Path ++ "/index.html"), + ok = file:delete(Path ++ "/style.css"), + ok = file:delete(Path ++ "/unknown"), + ok = file:del_dir(Path ++ "/directory"), + ok = file:del_dir(Path), + ok. + %% @doc Create a set of certificates. -spec make_certs() -> {CaCert::der_encoded(), Cert::der_encoded(), Key::key()}. |