stopping point

cli/src/gsc_cli.erl

@@ -47,6 +47,8 @@ do(["list", "tests"]) ->
     do_tlist();
 do(["test"]) ->
     do_tests();
+do(["test" | Tests]) ->
+    do_tests(Tests);
 do(["tests"]) ->
     do_tests();
 do(["run", "tests"]) ->
@@ -106,14 +108,48 @@ less_file(Less, FilePath) ->
     end.
 
 do_tests() ->
-    io:format("TestModules = ~p~n", [known_modules_with_prefix("ts")]),
+    io:format("TestModules = ~p~n", [test_mods()]),
     do_runall_tests().
 
 do_runall_tests() ->
     lists:foreach(fun run_mod_main/1, test_mods()).
 
+
+do_tests(List) ->
+    lists:foreach(fun run_test/1, List).
+
+% n
+run_test(TestName) ->
+    % we have two candidate atoms
+    C1 = list_to_atom(TestName),
+    C2 = list_to_atom("gsc_test_" ++ TestName),
+    KnownMods = test_mods(),
+    IsC1 = lists:member(C1, KnownMods),
+    IsC2 = lists:member(C2, KnownMods),
+    if
+        IsC1 -> rmm(C1);
+        IsC2 -> rmm(C2);
+        true -> error({no_such_test, TestName})
+    end.
+
+
+rmm(X) -> run_mod_main(X).
+
+% KnownTests = test_mods(),
+% TestMods = ensure_all_known([], List, KnownTests),
+% lists:foreach(fun run_mod_main/1, TestMods).
+
+
+%ensure_all_known(Acc, [], _) ->
+%    lists:sort(Acc);
+%ensure_all_known(Acc, [T | Ts], Knowns) ->
+%    case lists:member(T, Knowns) of
+%
+%    end.
+
+
 test_mods() ->
-    known_modules_with_prefix("gs_test").
+    known_modules_with_prefix("gsc_test").
 
 known_modules_with_prefix(Pfx) ->
     ModsZipBeamsZipLoaded = code:all_available(),