summaryrefslogtreecommitdiff
path: root/test-suite/tests/srcprop.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/srcprop.test')
-rw-r--r--test-suite/tests/srcprop.test10
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)