[plt-scheme] Best way to run a bunch of test-suites with schemeunit?

Working on project Euler I've got a directory with a bunch of files
layed out like this:

euler<#>.ss - The solution
euler<#>-test.ss - The tests

The tests look like this:

(provide run test-cases)

  (define run
    (λ ()
      (test/graphical-ui test-cases)))

  (define test-cases
    (test-suite
     "Tests for euler2"
     (test-equal? "fibsum million" (fibsum 1000000) 1089154)))

How would I go about running each test case for each test file in a
single pass at the console?