mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

fix reader.test for --disable-deprecated

Browse source 
* test-suite/tests/reader.test: Fix deprecated tests; begin-deprecated
  was splicing in expression context before, which is a no-no.
This commit is contained in:
Andy Wingo 2011-04-11 17:21:20 +02:00
parent b9e22602bb
commit 62ef23cbb8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/reader.test
View file

@ -430,12 +430,13 @@
(pass-if (equal? (read-string "#{}#") '#{}#)) (pass-if (equal? (read-string "#{}#") '#{}#))
(pass-if (equal? (read-string "#{a}#") 'a)) (pass-if (equal? (read-string "#{a}#") 'a))
(pass-if (equal? (read-string "#{a b}#") '#{a b}#)) (pass-if (equal? (read-string "#{a b}#") '#{a b}#))
(begin-deprecated
(pass-if (equal? (read-string "#{a\\ b}#") '#{a b}#)))
(pass-if-exception "#{" exception:eof-in-symbol (pass-if-exception "#{" exception:eof-in-symbol
(read-string "#{")) (read-string "#{"))
(pass-if (equal? (read-string "#{a\\x20;b}#") '#{a b}#))) (pass-if (equal? (read-string "#{a\\x20;b}#") '#{a b}#)))
(begin-deprecated
(with-test-prefix "deprecated #{}# escapes"
(pass-if (equal? (read-string "#{a\\ b}#") '#{a b}#))))
;;; Local Variables: ;;; Local Variables:
;;; eval: (put 'with-read-options 'scheme-indent-function 1) ;;; eval: (put 'with-read-options 'scheme-indent-function 1)