elli_ws_http_tests: init

Author: yurrriq

src/elli_ws_http.erl

@@ -28,22 +28,3 @@ parse(<<C, Rest/bits>>, Acc, Token) when ?IS_TOKEN_SEP(C) ->
     parse_before(Rest, [Token|Acc]);
 parse(<<C, Rest/bits>>, Acc, Token) ->
     parse(Rest, Acc, <<Token/binary, (elli_bstr:lchr(C))>>).
-
-%%
-%% Tests
-%%
-
--ifdef(TEST).
-
--include_lib("eunit/include/eunit.hrl").
-
-tokens_test() ->
-    ?assertEqual([<<"test">>], tokens(<<"test">>)),
-    ?assertEqual([<<"test">>, <<"bla">>, <<"x">>], tokens(<<"test,     bla,x">>)),
-    ?assertEqual([<<"test">>, <<"een">>, <<"twee">>], tokens([<<"test">>, <<"een">>, <<"twee">>])),
-    ?assertEqual([<<"test">>, <<"een">>, <<"twee">>], tokens([<<"test,,,">>, <<",,,een,,,">>, <<"twee">>])),
-    ?assertEqual([], tokens(<<",,,">>)),
-    ok.
-
--endif.
-

test/elli_ws_http_tests.erl

@@ -0,0 +1,14 @@
+-module(elli_ws_http_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+
+
+tokens_test() ->
+    ?assertMatch([<<"test">>], elli_ws_http:tokens(<<"test">>)),
+    ?assertMatch([<<"test">>, <<"bla">>, <<"x">>],
+                 elli_ws_http:tokens(<<"test,     bla,x">>)),
+    ?assertMatch([<<"test">>, <<"een">>, <<"twee">>],
+                 elli_ws_http:tokens([<<"test">>, <<"een">>, <<"twee">>])),
+    ?assertMatch([<<"test">>, <<"een">>, <<"twee">>],
+                 elli_ws_http:tokens([<<"test,,,">>, <<",,,een,,,">>, <<"twee">>])),
+    ?assertMatch([], elli_ws_http:tokens(<<",,,">>)).