diff --git a/contrib/micros-test-runner.lisp b/contrib/micros-test-runner.lisp
new file mode 100644
index 0000000..eca48ae
--- /dev/null
+++ b/contrib/micros-test-runner.lisp
@@ -0,0 +1,7 @@
+(defpackage :micros/test-runner
+  (:use :cl))
+(in-package :micros/test-runner)
+
+(micros/swank-api:defslimefun run-test (name package-name)
+  (uiop:symbol-call '#:rove '#:run-tests
+                    (list (read-from-string (format nil "~A::~A" package-name name)))))
diff --git a/micros.asd b/micros.asd
index 4d6de78..5f84e27 100644
--- a/micros.asd
+++ b/micros.asd
@@ -40,6 +40,7 @@
                              (:file "micros-systems")
                              (:file "micros-pretty-eval")
                              (:file "micros-trace")
+                             (:file "micros-test-runner")
                              ;; (:file "micros-asdf")
                              ;; (:file "micros-buffer-streams")
                              ;; (:file "clipboard")