cleanup

1 files changed, 46 insertions, 0 deletions

diff --git a/aoc2023/build/packages/adglent/src/showtime@internal@erlang@runner.erl b/aoc2023/build/packages/adglent/src/showtime@internal@erlang@runner.erl
new file mode 100644
index 0000000..702fb75
--- /dev/null
+++ b/aoc2023/build/packages/adglent/src/showtime@internal@erlang@runner.erl
@@ -0,0 +1,46 @@
+-module(showtime@internal@erlang@runner).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
+
+-export([run_test/4, run_test_suite/4]).
+
+-spec run_test(
+    binary(),
+    binary(),
+    list(binary()),
+    showtime@internal@common@cli:capture()
+) -> {ok, showtime@internal@common@test_result:test_return()} |
+    {error, showtime@internal@common@test_result:exception()}.
+run_test(Module_name, Test_name, Ignore_tags, Capture) ->
+    Result = showtime_ffi:run_test(
+        erlang:binary_to_atom(Module_name),
+        erlang:binary_to_atom(Test_name),
+        Ignore_tags,
+        Capture
+    ),
+    Result.
+
+-spec run_test_suite(
+    showtime@internal@common@test_suite:test_suite(),
+    fun((showtime@internal@common@test_suite:test_event()) -> nil),
+    list(binary()),
+    showtime@internal@common@cli:capture()
+) -> nil.
+run_test_suite(Test_suite, Test_event_handler, Ignore_tags, Capture) ->
+    _pipe = erlang:element(3, Test_suite),
+    gleam@list:each(
+        _pipe,
+        fun(Test) ->
+            Test_event_handler(
+                {start_test, erlang:element(2, Test_suite), Test}
+            ),
+            Result = run_test(
+                erlang:element(2, erlang:element(2, Test_suite)),
+                erlang:element(2, Test),
+                Ignore_tags,
+                Capture
+            ),
+            Test_event_handler(
+                {end_test, erlang:element(2, Test_suite), Test, Result}
+            )
+        end
+    ).