1 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
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.
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.
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/>.
17 ;; Thanks for giving permission to license this under LGPL for
18 ;; consistency, David!
21 (define-module (tests utils)
22 #:use-module (srfi srfi-64)
26 (exit (= (test-runner-fail-count (test-runner-current)) 0)))