fix up options.test

* test-suite/tests/options.test (test-suite): Fix up for removal of
  maxdepth debug option.

diff --git a/test-suite/tests/options.test b/test-suite/tests/options.test
index a795109..a5886e2 100644 (file)
--- a/test-suite/tests/options.test
+++ b/test-suite/tests/options.test
@@ -1,6 +1,6 @@
 ;;;; 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
 ;;;; 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
 ;;;; 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"
 
   (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)))
-
-  )
+    (begin
+      (debug-enable 'backwards)
+      (debug-set! depth 555)
+      (->bool (memq 'backwards (debug-options))))))