diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/gleam/should.gleam | 8 | ||||
| -rw-r--r-- | test/gleam_stdlib_test_ffi.erl | 20 |
2 files changed, 23 insertions, 5 deletions
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. |