elli_bstr_tests: init

Author: yurrriq

src/elli_bstr.erl

@@ -128,52 +128,3 @@ equal_ci(<<C1, Rest1/binary>>, <<C2, Rest2/binary>>) ->
             false ->
                     false
     end.
-
-
--ifdef(TEST).
-
--include_lib("eunit/include/eunit.hrl").
-
-case_insensitive_equal_test() ->
-    ?assertEqual(true, is_equal_ci(<<>>, <<>>)),
-    ?assertEqual(true, is_equal_ci(<<"abc">>, <<"abc">>)),
-    ?assertEqual(true, is_equal_ci(<<"123">>, <<"123">>)),
-
-    ?assertEqual(false, is_equal_ci(<<"abcd">>, <<"abc">>)),
-    ?assertEqual(false, is_equal_ci(<<"1234">>, <<"123">>)),
-
-    ?assertEqual(true, is_equal_ci(<<"aBc">>, <<"abc">>)),
-    ?assertEqual(true, is_equal_ci(<<"123AB">>, <<"123ab">>)),
-
-    ?assertEqual(false, is_equal_ci(<<"1">>, <<"123ab">>)),
-    ?assertEqual(false, is_equal_ci(<<"">>, <<"123ab">>)),
-    ?assertEqual(false, is_equal_ci(<<"">>, <<" ">>)),
-
-    ok.
-
-%% Test if to_lower works.
-ascii_to_lower_test() ->
-    ?assertEqual(<<>>, to_lower(<<>>)),
-    ?assertEqual(<<"abc">>, to_lower(<<"abc">>)),
-    ?assertEqual(<<"abc">>, to_lower(<<"ABC">>)),
-    ?assertEqual(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>,
-            to_lower(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>)),
-    ?assertEqual(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>,
-            to_lower(<<"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()">>)),
-    ok.
-
-trim_test() ->
-    ?assertEqual(<<"check">>, trim(<<"check">>)),
-    ?assertEqual(<<"check">>, trim(<<"   check">>)),
-    ?assertEqual(<<"check">>, trim(<<"   check    ">>)),
-
-    ?assertEqual(<<"">>, trim(<<"   ">>)),
-    ?assertEqual(<<>>, trim(<<>>)),
-
-    ?assertEqual(<<"">>, trim(<<"\t\r\n">>)),
-    
-    ok.
-
-
--endif.
-

test/elli_bstr_tests.erl

@@ -0,0 +1,41 @@
+-module(elli_bstr_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+
+
+case_insensitive_equal_test() ->
+    ?assert(elli_bstr:is_equal_ci(<<>>, <<>>)),
+    ?assert(elli_bstr:is_equal_ci(<<"abc">>, <<"abc">>)),
+    ?assert(elli_bstr:is_equal_ci(<<"123">>, <<"123">>)),
+
+    ?assertNot(elli_bstr:is_equal_ci(<<"abcd">>, <<"abc">>)),
+    ?assertNot(elli_bstr:is_equal_ci(<<"1234">>, <<"123">>)),
+
+    ?assert(elli_bstr:is_equal_ci(<<"aBc">>, <<"abc">>)),
+    ?assert(elli_bstr:is_equal_ci(<<"123AB">>, <<"123ab">>)),
+
+    ?assertNot(elli_bstr:is_equal_ci(<<"1">>, <<"123ab">>)),
+    ?assertNot(elli_bstr:is_equal_ci(<<"">>, <<"123ab">>)),
+    ?assertNot(elli_bstr:is_equal_ci(<<"">>, <<" ">>)).
+
+
+%% Test if to_lower works.
+ascii_to_lower_test() ->
+    ?assertMatch(<<>>, elli_bstr:to_lower(<<>>)),
+    ?assertMatch(<<"abc">>, elli_bstr:to_lower(<<"abc">>)),
+    ?assertMatch(<<"abc">>, elli_bstr:to_lower(<<"ABC">>)),
+    ?assertMatch(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>,
+                 elli_bstr:to_lower(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>)),
+    ?assertMatch(<<"1234567890abcdefghijklmnopqrstuvwxyz!@#$%^&*()">>,
+                 elli_bstr:to_lower(<<"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()">>)).
+
+
+trim_test() ->
+    ?assertMatch(<<"check">>, elli_bstr:trim(<<"check">>)),
+    ?assertMatch(<<"check">>, elli_bstr:trim(<<"   check">>)),
+    ?assertMatch(<<"check">>, elli_bstr:trim(<<"   check    ">>)),
+
+    ?assertMatch(<<"">>, elli_bstr:trim(<<"   ">>)),
+    ?assertMatch(<<>>, elli_bstr:trim(<<>>)),
+
+    ?assertMatch(<<"">>, elli_bstr:trim(<<"\t\r\n">>)).