mirror of
https://github.com/correl/rebar.git
synced 2024-11-27 11:09:55 +00:00
28 lines
1 KiB
Erlang
28 lines
1 KiB
Erlang
%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
|
|
%% ex: ts=4 sw=4 et
|
|
-module(rebar_require_vsn_tests).
|
|
|
|
-compile(export_all).
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
version_tuple_test_() ->
|
|
[%% typical cases
|
|
?_assert(check("R15B", "eunit") =:= {15, 0}),
|
|
?_assert(check("R15B01", "eunit") =:= {15, 1}),
|
|
?_assert(check("R15B02", "eunit") =:= {15, 2}),
|
|
?_assert(check("R15B03-1", "eunit") =:= {15, 3}),
|
|
?_assert(check("R15B03", "eunit") =:= {15, 3}),
|
|
?_assert(check("R16B", "eunit") =:= {16, 0}),
|
|
?_assert(check("R16B01", "eunit") =:= {16, 1}),
|
|
?_assert(check("R16B02", "eunit") =:= {16, 2}),
|
|
?_assert(check("R16B03", "eunit") =:= {16, 3}),
|
|
?_assert(check("R16B03-1", "eunit") =:= {16, 3}),
|
|
?_assert(check("17", "eunit") =:= {17, 0}),
|
|
%% error cases
|
|
?_assertException(throw, rebar_abort, check("", "eunit")),
|
|
?_assertException(throw, rebar_abort, check("abc", "eunit"))
|
|
].
|
|
|
|
check(OtpRelease, Type) ->
|
|
rebar_require_vsn:version_tuple(abort, OtpRelease, Type).
|