gleeunit

-module(gleeunit@should).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([equal/2, not_equal/2, be_ok/1, be_error/1, be_some/1, be_none/1, be_true/1, be_false/1, fail/0]).

-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.

?MODULEDOC(
    " A module for testing your Gleam code. The functions found here are\n"
    " compatible with the Erlang eunit test framework.\n"
    "\n"
    " More information on running eunit can be found in [the rebar3\n"
    " documentation](https://rebar3.org/docs/testing/eunit/).\n"
).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 11).
-spec equal(FPA, FPA) -> nil.
equal(A, B) ->
    gleeunit_ffi:should_equal(A, B).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 25).
-spec not_equal(FPB, FPB) -> nil.
not_equal(A, B) ->
    gleeunit_ffi:should_not_equal(A, B).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 39).
-spec be_ok({ok, FPC} | {error, any()}) -> FPC.
be_ok(A) ->
    gleeunit_ffi:should_be_ok(A).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 47).
-spec be_error({ok, any()} | {error, FPH}) -> FPH.
be_error(A) ->
    gleeunit_ffi:should_be_error(A).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 54).
-spec be_some(gleam@option:option(FPK)) -> FPK.
be_some(A) ->
    case A of
        {some, Value} ->
            Value;

        _ ->
            erlang:error(#{gleam_error => panic,
                    message => gleam@string:concat(
                        [<<"\n"/utf8>>,
                            gleam@string:inspect(A),
                            <<"\nshould be some"/utf8>>]
                    ),
                    module => <<"gleeunit/should"/utf8>>,
                    function => <<"be_some"/utf8>>,
                    line => 57})
    end.

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 61).
-spec be_none(gleam@option:option(any())) -> nil.
be_none(A) ->
    case A of
        none ->
            nil;

        _ ->
            erlang:error(#{gleam_error => panic,
                    message => gleam@string:concat(
                        [<<"\n"/utf8>>,
                            gleam@string:inspect(A),
                            <<"\nshould be none"/utf8>>]
                    ),
                    module => <<"gleeunit/should"/utf8>>,
                    function => <<"be_none"/utf8>>,
                    line => 64})
    end.

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 68).
-spec be_true(boolean()) -> nil.
be_true(Actual) ->
    _pipe = Actual,
    gleeunit_ffi:should_equal(_pipe, true).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 73).
-spec be_false(boolean()) -> nil.
be_false(Actual) ->
    _pipe = Actual,
    gleeunit_ffi:should_equal(_pipe, false).

-file("/Users/louis/src/gleam/gleeunit/src/gleeunit/should.gleam", 78).
-spec fail() -> nil.
fail() ->
    be_true(false).