aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/static_handler_SUITE.erl34
1 files changed, 23 insertions, 11 deletions
diff --git a/test/static_handler_SUITE.erl b/test/static_handler_SUITE.erl
index 69bd284..eaa915a 100644
--- a/test/static_handler_SUITE.erl
+++ b/test/static_handler_SUITE.erl
@@ -70,11 +70,19 @@ init_per_suite(Config) ->
%% A special folder contains files of 1 character from 0 to 127.
CharDir = config(priv_dir, Config) ++ "/char",
ok = filelib:ensure_dir(CharDir ++ "/file"),
- Chars = lists:flatten([case file:write_file(CharDir ++ [$/, C], [C]) of
+ Chars0 = lists:flatten([case file:write_file(CharDir ++ [$/, C], [C]) of
ok -> C;
{error, _} -> []
end || C <- lists:seq(0, 127)]),
- [{static_dir, StaticDir}, {char_dir, CharDir}, {chars, Chars}|Config].
+ %% Determine whether we are on a case insensitive filesystem and
+ %% remove uppercase characters in that case. On case insensitive
+ %% filesystems we end up overwriting the "A" file with the "a" contents.
+ {CaseSensitive, Chars} = case file:read_file(CharDir ++ "/A") of
+ {ok, <<"A">>} -> {true, Chars0};
+ {ok, <<"a">>} -> {false, Chars0 -- "ABCDEFGHIJKLMNOPQRSTUVWXYZ"}
+ end,
+ [{static_dir, StaticDir}, {char_dir, CharDir},
+ {chars, Chars}, {case_sensitive, CaseSensitive}|Config].
end_per_suite(Config) ->
%% Special directory.
@@ -871,18 +879,22 @@ range_request(Config) ->
unicode_basic_latin(Config) ->
doc("Get a file with non-urlencoded characters from Unicode Basic Latin block."),
- _ = [case do_get("/char/" ++ [C], Config) of
- {200, _, << C >>} -> ok;
- Error -> exit({error, C, Error})
- end || C <-
- %% Excluding the dot which has a special meaning in URLs
- %% when they are the only content in a path segment,
- %% and is tested as part of filenames in other test cases.
+ %% Excluding the dot which has a special meaning in URLs
+ %% when they are the only content in a path segment,
+ %% and is tested as part of filenames in other test cases.
+ Chars0 =
"abcdefghijklmnopqrstuvwxyz"
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"0123456789"
- ":@-_~!$&'()*+,;="
- ],
+ ":@-_~!$&'()*+,;=",
+ Chars = case config(case_sensitive, Config) of
+ false -> Chars0 -- "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+ true -> Chars0
+ end,
+ _ = [case do_get("/char/" ++ [C], Config) of
+ {200, _, << C >>} -> ok;
+ Error -> exit({error, C, Error})
+ end || C <- Chars],
ok.
unicode_basic_error(Config) ->