Add test

Signed-off-by: Mateusz Front <mateusz.front@swmansion.com>

Author: mat-hek

tests/erlang_tests/CMakeLists.txt

@@ -551,6 +551,11 @@ compile_assembler(test_op_bs_start_match_asm)
 compile_erlang(test_op_bs_create_bin)
 compile_assembler(test_op_bs_create_bin_asm)
 
+compile_erlang(test_reraise)
+compile_erlang(reraise_reraiser)
+compile_erlang(reraise_intermediate_caller)
+compile_erlang(reraise_raiser)
+
 if(Erlang_VERSION VERSION_GREATER_EQUAL "23")
     set(OTP23_OR_GREATER_TESTS
         test_op_bs_start_match_asm.beam
@@ -1073,6 +1078,11 @@ add_custom_target(erlang_test_modules DEPENDS
     test_op_bs_start_match.beam
     test_op_bs_create_bin.beam
 
+    test_reraise.beam
+    reraise_reraiser.beam
+    reraise_intermediate_caller.beam
+    reraise_raiser.beam
+
     ${OTP23_OR_GREATER_TESTS}
     ${OTP25_OR_GREATER_TESTS}
 )

tests/erlang_tests/reraise_intermediate_caller.erl

@@ -0,0 +1,6 @@
+-module(reraise_intermediate_caller).
+
+-export([call_raiser/0]).
+
+call_raiser() ->
+    reraise_raiser:raise_error().

tests/erlang_tests/reraise_raiser.erl

@@ -0,0 +1,6 @@
+-module(reraise_raiser).
+
+-export([raise_error/0]).
+
+raise_error() ->
+    error("foo").

tests/erlang_tests/reraise_reraiser.erl

@@ -0,0 +1,11 @@
+-module(reraise_reraiser).
+
+-export([reraise_error/0]).
+
+reraise_error() ->
+    try
+        reraise_intermediate_caller:call_raiser()
+    catch
+        Class:Reason:Stacktrace ->
+            erlang:error(erlang:raise(Class, Reason, Stacktrace))
+    end.

tests/erlang_tests/test_reraise.erl

@@ -0,0 +1,11 @@
+-module(test_reraise).
+
+-export([start/0]).
+
+start() ->
+    try
+        reraise_reraiser:reraise_error()
+    catch
+        C:E:S -> erlang:display({C, E, S})
+    end,
+    0.

tests/test.c

@@ -598,6 +598,8 @@ struct Test tests[] = {
     TEST_CASE(test_ets),
     TEST_CASE(test_node),
 
+    TEST_CASE(test_reraise),
+
     // TEST CRASHES HERE: TEST_CASE(memlimit),
 
     { NULL, 0, false, false }