tests/utils.scm

   1 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
   2 ;;;
   3 ;;; This library is free software; you can redistribute it and/or
   4 ;;; modify it under the terms of the GNU Lesser General Public
   5 ;;; License as published by the Free Software Foundation; either
   6 ;;; version 3 of the License, or (at your option) any later version.
   7 ;;;
   8 ;;; This library is distributed in the hope that it will be useful,
   9 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 ;;; Lesser General Public License for more details.
  12 ;;;
  13 ;;; You should have received a copy of the GNU Lesser General Public
  14 ;;; License along with this program.  If not, see
  15 ;;; <http://www.gnu.org/licenses/>.
  16
  17 ;; Thanks for giving permission to license this under LGPL for
  18 ;; consistency, David!
  19
  20
  21 (define-module (tests utils)
  22   #:use-module (srfi srfi-64)
  23   #:export (test-exit))
  24
  25 (define (test-exit)
  26   (exit (= (test-runner-fail-count (test-runner-current)) 0)))