diff --git a/test.scm b/test.scm
index cbda96c7..7f21f630 100644
--- a/test.scm
+++ b/test.scm
@@ -4,12 +4,14 @@
 (write `(read ,(+ 1 2 3)))
 (write `(read ,(list 1 2 3)))
 (write `(read ,@(list 1 2 3)))
-;`(read ,
+;;`(read ,
 (write (make-vector 4 #t))
 (write (string->list "abc"))
 (write (apply append '((1) (2) (3))))
 (write #(a))
 (write #(1 2 3))
 (write #((1) (2) (3)))
+(write (eq? #(1) #(1)))
+(write (equal? #(1 1 1) (make-vector 3 1)))
 (write '#(1))
 (write '#())