expect module

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).