Fix test detection

Author: lpil

test/gleeunit.gleam

@@ -1,4 +1,5 @@
 import gleam/list
+import gleam/result
 import gleam/string
 
 /// Find and run all test functions for the current project using Erlang's EUnit
@@ -34,10 +35,19 @@ fn do_main() -> Nil {
 fn halt(a: Int) -> Nil
 
 fn gleam_to_erlang_module_name(path: String) -> String {
-  path
-  |> string.replace(".gleam", "")
-  |> string.replace(".erl", "")
-  |> string.replace("/", "@")
+  case string.ends_with(path, ".gleam") {
+    True ->
+      path
+      |> string.replace(".gleam", "")
+      |> string.replace("/", "@")
+
+    False ->
+      path
+      |> string.split("/")
+      |> list.last
+      |> result.unwrap(path)
+      |> string.replace(".erl", "")
+  }
 }
 
 @external(erlang, "gleeunit_ffi", "find_files")

test/gleeunit_ffi.erl

@@ -1,27 +1,11 @@
 -module(gleeunit_ffi).
 
--export([find_files/2, should_equal/2, should_not_equal/2, should_be_ok/1,
-         should_be_error/1, run_eunit/2]).
-
--include_lib("eunit/include/eunit.hrl").
+-export([find_files/2, run_eunit/2]).
 
 find_files(Pattern, In) ->
   Results = filelib:wildcard(binary_to_list(Pattern), binary_to_list(In)),
   lists:map(fun list_to_binary/1, Results).
 
-should_equal(Actual, Expected) -> 
-    ?assertEqual(Expected, Actual),
-    nil.
-should_not_equal(Actual, Expected) -> 
-    ?assertNotEqual(Expected, Actual),
-    nil.
-should_be_ok(A) -> 
-    ?assertMatch({ok, _}, A),
-    element(2, A).
-should_be_error(A) -> 
-    ?assertMatch({error, _}, A),
-    element(2, A).
-
 run_eunit(Tests, Options) ->
     case eunit:test(Tests, Options) of
         ok -> {ok, nil};

test/gleeunit_progress.erl

@@ -48,8 +48,8 @@ handle_end(test, Data, State) ->
             ?reporting:test_failed(State, Module, Function, Exception)
     end.
 
-handle_cancel(_test_or_group, _data, State) ->
-    State.
+handle_cancel(_test_or_group, Data, State) ->
+    ?reporting:test_failed(State, <<"gleeunit">>, <<"main">>, Data).
 
 terminate({ok, _Data}, State) ->
     ?reporting:finished(State),