diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-04-26 21:09:40 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-26 21:09:40 +0200 |
commit | 816e3edf152f8c4d8a219e0bf24daa908c710adf (patch) | |
tree | f0f3d3db80ade4b4ea94e58235715999144e9744 /test-suite/tests/srfi-35.test | |
parent | 189681f55b464888b47b1e798bc20e3f984eb6ca (diff) | |
download | guile-816e3edf152f8c4d8a219e0bf24daa908c710adf.tar.gz |
Make `(srfi srfi-35)' visible through `cond-expand'.
Diffstat (limited to 'test-suite/tests/srfi-35.test')
-rw-r--r-- | test-suite/tests/srfi-35.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/test-suite/tests/srfi-35.test b/test-suite/tests/srfi-35.test index ec7a104c3..83efd61d9 100644 --- a/test-suite/tests/srfi-35.test +++ b/test-suite/tests/srfi-35.test @@ -1,7 +1,7 @@ ;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*- ;;;; Ludovic Courtès <ludo@gnu.org> ;;;; -;;;; Copyright (C) 2007 Free Software Foundation, Inc. +;;;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. ;;;; ;;;; 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 @@ -23,6 +23,12 @@ :use-module (srfi srfi-35)) +(with-test-prefix "cond-expand" + (pass-if "srfi-35" + (cond-expand (srfi-35 #t) + (else #f)))) + + (with-test-prefix "condition types" (pass-if "&condition" (condition-type? &condition)) @@ -308,3 +314,7 @@ (pass-if "(c2-b v5)" (equal? (c2-b v5) "b2"))) + +;;; Local Variables: +;;; coding: latin-1 +;;; End: |