diff options
| -rw-r--r-- | src/gleam_stdlib.erl | 17 | ||||
| -rw-r--r-- | test/gleam/should.gleam | 8 | ||||
| -rw-r--r-- | test/gleam_stdlib_test_ffi.erl | 20 |
3 files changed, 24 insertions, 21 deletions
diff --git a/src/gleam_stdlib.erl b/src/gleam_stdlib.erl index e9d6391..cc1475f 100644 --- a/src/gleam_stdlib.erl +++ b/src/gleam_stdlib.erl @@ -1,8 +1,6 @@ -module(gleam_stdlib). --include_lib("eunit/include/eunit.hrl"). --export([should_equal/2, should_not_equal/2, should_be_ok/1, should_be_error/1, - map_get/2, iodata_append/2, identity/1, decode_int/1, decode_bool/1, +-export([map_get/2, iodata_append/2, identity/1, decode_int/1, decode_bool/1, decode_float/1, decode_thunk/1, decode_list/1, decode_option/2, decode_field/2, parse_int/1, parse_float/1, less_than/2, string_pop_grapheme/1, string_starts_with/2, wrap_list/1, @@ -26,19 +24,6 @@ ((X) >= $a) andalso ((X) =< $f) -> (X) - $a + 10 end). -should_equal(Actual, Expected) -> - ?assertEqual(Expected, Actual), - nil. -should_not_equal(Actual, Expected) -> - ?assertNotEqual(Expected, Actual), - nil. -should_be_ok(A) -> - ?assertMatch({ok, _}, A), - nil. -should_be_error(A) -> - ?assertMatch({error, _}, A), - nil. - map_get(Map, Key) -> case maps:find(Key, Map) of error -> {error, nil}; diff --git a/test/gleam/should.gleam b/test/gleam/should.gleam index 792a4b4..7ae0408 100644 --- a/test/gleam/should.gleam +++ b/test/gleam/should.gleam @@ -6,16 +6,16 @@ if erlang { pub external fn equal(a, a) -> Nil = - "gleam_stdlib" "should_equal" + "gleam_stdlib_test_ffi" "should_equal" pub external fn not_equal(a, a) -> Nil = - "gleam_stdlib" "should_not_equal" + "gleam_stdlib_test_ffi" "should_not_equal" pub external fn be_ok(Result(a, b)) -> Nil = - "gleam_stdlib" "should_be_ok" + "gleam_stdlib_test_ffi" "should_be_ok" pub external fn be_error(Result(a, b)) -> Nil = - "gleam_stdlib" "should_be_error" + "gleam_stdlib_test_ffi" "should_be_error" } if javascript { diff --git a/test/gleam_stdlib_test_ffi.erl b/test/gleam_stdlib_test_ffi.erl index 61c82de..6be4cb6 100644 --- a/test/gleam_stdlib_test_ffi.erl +++ b/test/gleam_stdlib_test_ffi.erl @@ -1,6 +1,11 @@ -module(gleam_stdlib_test_ffi). --export([main/0]). +-export([ + main/0, should_equal/2, should_not_equal/2, should_be_ok/1, + should_be_error/1 +]). + +-include_lib("eunit/include/eunit.hrl"). main() -> Options = [ @@ -20,3 +25,16 @@ filepath_to_module(Path0) -> Path4 = string:replace(Path3, "/", "@", all), Path5 = list_to_binary(Path4), binary_to_atom(Path5). + +should_equal(Actual, Expected) -> + ?assertEqual(Expected, Actual), + nil. +should_not_equal(Actual, Expected) -> + ?assertNotEqual(Expected, Actual), + nil. +should_be_ok(A) -> + ?assertMatch({ok, _}, A), + nil. +should_be_error(A) -> + ?assertMatch({error, _}, A), + nil. |