diff options
author | Loïc Hoguin <[email protected]> | 2013-06-03 17:18:19 +0200 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2013-06-03 17:18:19 +0200 |
commit | 4b13eb4bc64d7f04291fcb62ee4794a672d8d3b5 (patch) | |
tree | 1ca4370366e49d163d4528fee493775c4283a9ca /src/ct_helper.erl | |
parent | 03a27991428d3510f9ef6ff53a3bd7347a3831b4 (diff) | |
download | ct_helper-4b13eb4bc64d7f04291fcb62ee4794a672d8d3b5.tar.gz ct_helper-4b13eb4bc64d7f04291fcb62ee4794a672d8d3b5.tar.bz2 ct_helper-4b13eb4bc64d7f04291fcb62ee4794a672d8d3b5.zip |
Add create_static_dir/1 and delete_static_dir/1
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()}. |