diff options
Diffstat (limited to 'src/gleam_stdlib.erl')
| -rw-r--r-- | src/gleam_stdlib.erl | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/src/gleam_stdlib.erl b/src/gleam_stdlib.erl index bbf7630..e12ee87 100644 --- a/src/gleam_stdlib.erl +++ b/src/gleam_stdlib.erl @@ -1,13 +1,15 @@ -module(gleam_stdlib). -include_lib("eunit/include/eunit.hrl"). --export([should_equal/2, should_not_equal/2, should_be_true/1, should_be_false/1, - should_be_ok/1, should_be_error/1, atom_from_string/1, - atom_create_from_string/1, atom_to_string/1, map_get/2, - iodata_append/2, iodata_prepend/2, identity/1, decode_int/1, - decode_string/1, decode_bool/1, decode_float/1, decode_thunk/1, decode_atom/1, - decode_list/1, decode_field/2, decode_element/2, parse_int/1, parse_float/1, compare_strings/2, - string_contains/2, string_starts_with/2, string_ends_with/2, string_pad/4]). +-export([should_equal/2, should_not_equal/2, should_be_true/1, + should_be_false/1, should_be_ok/1, should_be_error/1, + atom_from_string/1, atom_create_from_string/1, atom_to_string/1, + map_get/2, iodata_append/2, iodata_prepend/2, identity/1, + decode_int/1, decode_string/1, decode_bool/1, decode_float/1, + decode_thunk/1, decode_atom/1, decode_list/1, decode_field/2, + decode_element/2, parse_int/1, parse_float/1, compare_strings/2, + string_contains/2, string_starts_with/2, string_ends_with/2, + string_pad/4, decode_tuple2/1]). should_equal(Actual, Expected) -> ?assertEqual(Expected, Actual). should_not_equal(Actual, Expected) -> ?assertNotEqual(Expected, Actual). @@ -48,8 +50,12 @@ classify(X) when is_float(X) -> "a float"; classify(X) when is_list(X) -> "a list"; classify(X) when is_boolean(X) -> "a bool"; classify(X) when is_function(X, 0) -> "a zero arity function"; +classify(X) when is_tuple(X) -> ["a ", integer_to_list(tuple_size(X)), " element tuple"]; classify(_) -> "some other type". +decode_tuple2({_, _} = T) -> {ok, T}; +decode_tuple2(Data) -> decode_error_msg("a 2 element tuple", Data). + decode_atom(Data) when is_atom(Data) -> {ok, Data}; decode_atom(Data) -> decode_error_msg("an atom", Data). |