diff options
| -rw-r--r-- | src/expect.gleam | 16 | ||||
| -rw-r--r-- | src/gleam__stdlib.erl | 8 |
2 files changed, 24 insertions, 0 deletions
diff --git a/src/expect.gleam b/src/expect.gleam new file mode 100644 index 0000000..f36ce08 --- /dev/null +++ b/src/expect.gleam @@ -0,0 +1,16 @@ +// TODO: Move this module into another package so it can be used as a +// dep only in test. + +pub external type Expectation; + +pub external fn equal(a, a) -> Expectation = 'gleam__stdlib' 'expect_equal'; + +pub external fn not_equal(a, a) -> Expectation = 'gleam__stdlib' 'expect_not_equal'; + +pub external fn true(Bool) -> Expectation = 'gleam__stdlib' 'expect_true'; + +pub external fn false(Bool) -> Expectation = 'gleam__stdlib' 'expect_false'; + +pub fn fail() { + true(False) +} diff --git a/src/gleam__stdlib.erl b/src/gleam__stdlib.erl new file mode 100644 index 0000000..db80c1b --- /dev/null +++ b/src/gleam__stdlib.erl @@ -0,0 +1,8 @@ +-module(gleam__stdlib). +-compile(export_all). +-include_lib("eunit/include/eunit.hrl"). + +expect_equal(A, Expected) -> ?assertEqual(Expected, A). +expect_not_equal(A, Expected) -> ?assertNotEqual(Expected, A). +expect_true(A) -> ?assert(A). +expect_false(A) -> ?assertNot(A). |