mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

fix up options.test

Browse source 
* test-suite/tests/options.test (test-suite): Fix up for removal of
  maxdepth debug option.
This commit is contained in:
Andy Wingo 2010-09-25 12:12:45 +02:00
parent f165bf9306
commit 85d3a8a63d
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/options.test
View file

@ -1,6 +1,6 @@
;;;; options.test --- test suite for options interface -*- scheme -*- ;;;; options.test --- test suite for options interface -*- scheme -*-
;;;; ;;;;
;;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 2002, 2006, 2010 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -16,14 +16,13 @@
;;;; License along with this library; if not, write to the Free Software ;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
(use-modules (test-suite lib)) (define-module (test-suite options-test)
#:use-module (test-suite lib))
(with-test-prefix "options" (with-test-prefix "options"
(pass-if "setting an option doesn't reset other options" (pass-if "setting an option doesn't reset other options"
(let () (begin
(debug-enable 'backwards) (debug-enable 'backwards)
(debug-set! maxdepth 555) (debug-set! depth 555)
(if (memq 'backwards (debug-options)) #t #f))) (->bool (memq 'backwards (debug-options))))))
)