a362da640a
* add erlang support * add erlang support for windows * add erlang ci for linux and windows
33 lines
774 B
Erlang
33 lines
774 B
Erlang
-module(ruapu).
|
|
-export([rua/0, supports/1]).
|
|
|
|
-ifdef(TEST).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-endif.
|
|
|
|
%% @doc
|
|
%%
|
|
%% Get a list of supported features.
|
|
-spec rua() -> {ok, [string()]} | {error, string()}.
|
|
rua() ->
|
|
ruapu_nif:rua().
|
|
|
|
%% @doc
|
|
%%
|
|
%% Check if a feature is supported.
|
|
-spec supports(atom() | string() | binary()) -> boolean().
|
|
supports(ISA) ->
|
|
ruapu_nif:supports(ISA).
|
|
|
|
-ifdef(EUNIT).
|
|
rua_test() ->
|
|
?assertMatch({ok, _}, rua()).
|
|
|
|
supports_test() ->
|
|
?assert(supports(<<"binary_non_exists_feature">>) =:= false),
|
|
?assert(supports("string_non_exists_feature") =:= false),
|
|
?assert(supports(atom_non_exists_feature) =:= false),
|
|
{ok, Features} = rua(),
|
|
?assert(lists:all(fun(Feature) -> supports(Feature) end, Features)).
|
|
-endif.
|