corel_tests.erl

%% @copyright Anthony Jackson <expelledboy> All Rights Reserved
%% This file is subject to the terms and conditions defined in
%% file 'LICENSE.txt', which is part of this source code package.

-module(corel_tests).
-include_lib("eunit/include/eunit.hrl").

assert_test() ->
    ?assertEqual(ok, corel:assert(fun() -> ok end)),
    ?assertEqual("result", corel:assert(fun() -> {ok,"result"} end)),
    ?assertThrow("issue", corel:assert(fun() -> {error,"issue"} end)),

    ?assertEqual(ok, corel:assert(fun() -> true end,exception)),
    ?assertThrow(exception, corel:assert(fun() -> false end,exception)),
    ?assertError({assert,not_boolean}, corel:assert(fun() -> "term" end,exception)).

timestamp_test() ->
    Now = {1414,599956,660656},
    DateTime = calendar:now_to_local_time(Now),
    ?assertEqual(ok, validate:this(corel:timestamp(DateTime),iso_8601)),
    ?assertEqual(ok, validate:this(corel:timestamp(Now),iso_8601)).