1 ;;;; syncase.test --- test suite for (ice-9 syncase) -*- scheme -*-
3 ;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
5 ;;;; This library is free software; you can redistribute it and/or
6 ;;;; modify it under the terms of the GNU Lesser General Public
7 ;;;; License as published by the Free Software Foundation; either
8 ;;;; version 3 of the License, or (at your option) any later version.
10 ;;;; This library is distributed in the hope that it will be useful,
11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;;;; Lesser General Public License for more details.
15 ;;;; You should have received a copy of the GNU Lesser General Public
16 ;;;; License along with this library; if not, write to the Free Software
17 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
19 ;; These tests are in a module so that the syntax transformer does not
20 ;; affect code outside of this file.
22 (define-module (test-suite test-syncase)
23 :use-module (test-suite lib))
25 (pass-if "(ice-9 syncase) loads"
27 (begin (eval '(use-syntax (ice-9 syncase)) (current-module))
32 ((plus x ...) (+ x ...))))
34 (pass-if "basic syncase macro"
35 (= (plus 1 2 3) (+ 1 2 3)))
37 (pass-if "@ works with syncase"
38 (eq? run-test (@ (test-suite lib) run-test)))