diff options
Diffstat (limited to 'test-suite/tests/srcprop.test')
-rw-r--r-- | test-suite/tests/srcprop.test | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/test-suite/tests/srcprop.test b/test-suite/tests/srcprop.test index 4afc31802..d5f27744f 100644 --- a/test-suite/tests/srcprop.test +++ b/test-suite/tests/srcprop.test @@ -1,6 +1,6 @@ ;;;; srcprop.test --- test Guile source properties -*- scheme -*- ;;;; -;;;; Copyright (C) 2003, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2003, 2006, 2009, 2025 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 @@ -17,7 +17,8 @@ ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (test-suite test-srcprop) - :use-module (test-suite lib)) + #:use-module (ice-9 source-properties) + #:use-module (test-suite lib)) ;;; @@ -29,7 +30,6 @@ (pass-if "no props" (null? (source-properties (list 1 2 3)))) - (read-enable 'positions) (with-test-prefix "read properties" (define (reads-with-srcprops? str) (let ((x (read (open-input-string str)))) @@ -76,8 +76,6 @@ ;;; (with-test-prefix "set-source-property!" - (read-enable 'positions) - (pass-if "setting the breakpoint property works" (let ((s (read (open-input-string "(+ 3 4)")))) (throw 'unresolved) @@ -100,8 +98,6 @@ ;;; (with-test-prefix "set-source-properties!" - (read-enable 'positions) - (pass-if "setting the breakpoint property works" (let ((s (read (open-input-string "(+ 3 4)")))) (throw 'unresolved) |