From 8f4c745b0805d9c3d9e173dbca6470fc80df519f Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Wed, 14 Nov 2018 14:46:04 +0000
Subject: expect module

---
 src/expect.gleam      | 16 ++++++++++++++++
 src/gleam__stdlib.erl |  8 ++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 src/expect.gleam
 create mode 100644 src/gleam__stdlib.erl

(limited to 'src')

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).
-- 
cgit v1.2.3