mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

srfi-9.test: avoid symbols of the form ':bar' for more robust checking.

Browse source 
* test-suite/tests/srfi-9.test ("incompatible field paths"): Rename
  ':bar' to 'bar' to avoid the possibility of the symbol name being
  printed with #{...}# notation.
This commit is contained in:
Mark H Weaver 2012-11-10 19:14:08 -05:00
parent a144a7a846
commit b594998356
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/srfi-9.test
View file

@ -614,7 +614,7 @@
'(syntax-error set-fields '(syntax-error set-fields
"\ "\
field paths (bar-i bar-j) and (bar-i foo-x) require one object \ field paths (bar-i bar-j) and (bar-i foo-x) require one object \
to belong to two different record types (:bar and foo)" to belong to two different record types (bar and foo)"
(set-fields s (set-fields s
((bar-i foo-x) 1) ((bar-i foo-x) 1)
((bar-i bar-j) 2) ((bar-i bar-j) 2)
@ -630,7 +630,7 @@ to belong to two different record types (:bar and foo)"
(y foo-y set-foo-y) (y foo-y set-foo-y)
(z foo-z set-foo-z)) (z foo-z set-foo-z))
(define-immutable-record-type :bar (define-immutable-record-type bar
(make-bar i j) (make-bar i j)
bar? bar?
(i bar-i) (i bar-i)