#|  run-tests.scm: Automatic test runner (mzscheme -u run-tests.scm) for the amb.plt package.
    Copyright (C) 2007 Will M. Farr <[email protected]>

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
|#

(module run-tests mzscheme
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
           (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2))
           "amb-test.scm")
  
  (define all-tests
    (test-suite
     "all clue tests"
     amb-test-suite))
  
  (define failed (test/text-ui all-tests 'verbose))
  
  (if (not (= failed 0)) (exit 1) (exit 0)))