diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-11-06 00:38:44 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-11-06 00:38:44 +0000 |
commit | d2864c8adbb27b60b4ef901a3d3742681e344700 (patch) | |
tree | 1708237d4c6cd696fe7bfc234a0448e65dd13568 | |
parent | 3f619266b1e3420ad760275af542c128bc57cb8c (diff) | |
download | guile-d2864c8adbb27b60b4ef901a3d3742681e344700.tar.gz |
New file for tests related to options interface.
-rw-r--r-- | test-suite/ChangeLog | 4 | ||||
-rw-r--r-- | test-suite/Makefile.am | 1 | ||||
-rw-r--r-- | test-suite/tests/options.test | 30 |
3 files changed, 35 insertions, 0 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 28668e6ba..170e57f4a 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,7 @@ +2002-11-06 Neil Jerram <neil@ossau.uklinux.net> + + * tests/options.test: New. + 2002-10-04 Rob Browning <rlb@defaultvalue.org> * tests/numbers.test ("expt"): add tests. diff --git a/test-suite/Makefile.am b/test-suite/Makefile.am index 5f9bd175c..945f234ea 100644 --- a/test-suite/Makefile.am +++ b/test-suite/Makefile.am @@ -20,6 +20,7 @@ SCM_TESTS = tests/alist.test \ tests/multilingual.nottest \ tests/numbers.test \ tests/optargs.test \ + tests/options.test \ tests/ports.test \ tests/r4rs.test \ tests/reader.test \ diff --git a/test-suite/tests/options.test b/test-suite/tests/options.test new file mode 100644 index 000000000..1b1da092a --- /dev/null +++ b/test-suite/tests/options.test @@ -0,0 +1,30 @@ +;;;; options.test --- test suite for options interface -*- scheme -*- +;;;; +;;;; Copyright (C) 2002 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 +;;;; the Free Software Foundation; either version 2, 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 software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA + +(use-modules (test-suite lib)) + +(with-test-prefix "options" + + (pass-if "setting an option doesn't reset other options" + (let () + (debug-enable 'backwards) + (debug-set! maxdepth 555) + (if (memq 'backwards (debug-options)) #t #f))) + + ) |