From 8cfa606f3834cf7d05f5011bc68295a9d84263dc Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Sun, 14 Apr 2019 13:03:24 +0000 Subject: stdlib: Split out tests --- src/gleam__stdlib.erl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/gleam__stdlib.erl') diff --git a/src/gleam__stdlib.erl b/src/gleam__stdlib.erl index 05623c6..5640e70 100644 --- a/src/gleam__stdlib.erl +++ b/src/gleam__stdlib.erl @@ -5,7 +5,7 @@ expect_is_ok/1, expect_is_error/1, atom_from_string/1, atom_create_from_string/1, atom_to_string/1, map_fetch/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_string/1, decode_bool/1, decode_float/1, decode_thunk/1, decode_atom/1, decode_tuple/1, decode_list/1, decode_field/2, parse_int/1, parse_float/1]). expect_equal(Actual, Expected) -> ?assertEqual(Expected, Actual). @@ -40,6 +40,9 @@ identity(X) -> X. decode_error_msg(Type, Data) -> {error, iolist_to_binary(io_lib:format("Expected ~s, got `~p`", [Type, Data]))}. +decode_atom(Data) when is_atom(Data) -> {ok, Data}; +decode_atom(Data) -> decode_error_msg("an Atom", Data). + decode_string(Data) when is_binary(Data) -> {ok, Data}; decode_string(Data) -> decode_error_msg("a String", Data). -- cgit v1.2.3