Need a way to run a test by name

Is there already a way to run a single test given its name?

I'm looking for something like the following, which I keep adding to my local branch. 

```
(defun run-1-test (test-name)
  (let ((*print-summary* t)
	(*print-failures* t)
	(*summarize-results* t)
	(*print-errors* t))
   (run-tests (list test-name) (symbol-package test-name))))
```
