projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f41ab69
)
Fix reading hashed object notation #[foo 123].
author
Taylor R Campbell
<campbell@mumble.net>
Fri, 9 Aug 2019 16:56:01 +0000
(16:56 +0000)
committer
Taylor R Campbell
<campbell@mumble.net>
Sat, 10 Aug 2019 03:35:04 +0000
(
03:35
+0000)
tests/runtime/test-readwrite.scm
patch
|
blob
|
history
diff --git
a/tests/runtime/test-readwrite.scm
b/tests/runtime/test-readwrite.scm
index ef556bf9aa4fed3f3f073f6a5cfe79fd698e97a5..656f58681e672fd08352d225f3467bf242f03929 100644
(file)
--- a/
tests/runtime/test-readwrite.scm
+++ b/
tests/runtime/test-readwrite.scm
@@
-271,9
+271,7
@@
USA.
(string (string-append "#[twonky " (number->string hash) "]"))
(abbrev (string-append "#@" (number->string hash))))
(assert-equal (write-to-string object) string)
- (expect-error
- (lambda ()
- (assert-eq (eval (read-from-string string) system-global-environment)
- object)))
+ (assert-eq (eval (read-from-string string) system-global-environment)
+ object)
(assert-eq (eval (read-from-string abbrev) system-global-environment)
object))))
\ No newline at end of file