From a974efd66ed4904ce7c9cabc38c3ec0563715b8f Mon Sep 17 00:00:00 2001 From: inoas Date: Wed, 10 Aug 2022 15:14:52 +0200 Subject: //erl[1,2|3] output for inspecting improper Erlang lists --- test/gleam_stdlib_test_ffi.erl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'test/gleam_stdlib_test_ffi.erl') diff --git a/test/gleam_stdlib_test_ffi.erl b/test/gleam_stdlib_test_ffi.erl index c26a879..c34cb5e 100644 --- a/test/gleam_stdlib_test_ffi.erl +++ b/test/gleam_stdlib_test_ffi.erl @@ -2,7 +2,7 @@ -export([ main/0, should_equal/2, should_not_equal/2, should_be_ok/1, - should_be_error/1, improper_list_append/2 + should_be_error/1, improper_list_append/3 ]). -include_lib("eunit/include/eunit.hrl"). @@ -26,18 +26,18 @@ filepath_to_module(Path0) -> Path5 = list_to_binary(Path4), binary_to_atom(Path5). -should_equal(Actual, Expected) -> +should_equal(Actual, Expected) -> ?assertEqual(Expected, Actual), nil. -should_not_equal(Actual, Expected) -> +should_not_equal(Actual, Expected) -> ?assertNotEqual(Expected, Actual), nil. -should_be_ok(A) -> +should_be_ok(A) -> ?assertMatch({ok, _}, A), nil. -should_be_error(A) -> +should_be_error(A) -> ?assertMatch({error, _}, A), nil. -improper_list_append(X, Y) -> - [X | Y]. +improper_list_append(X, Y, Z) -> + [X, Y | Z]. -- cgit v1.2.3