remove weak pairs, rewrite weak vectors

[bpt/guile.git] / test-suite / tests / weaks.test

diff --git a/test-suite/tests/weaks.test b/test-suite/tests/weaks.test
index d0f6c5e..9475eed 100644 (file)
--- a/test-suite/tests/weaks.test
+++ b/test-suite/tests/weaks.test
@@ -68,28 +68,28 @@
                     exception:wrong-type-arg
                     (list->weak-vector 32)))
 
- (with-test-prefix "make-weak-key-alist-vector"
+ (with-test-prefix "make-weak-key-hash-table"
                   (pass-if "create"
-                    (make-weak-key-alist-vector 17)
+                    (make-weak-key-hash-table 17)
                     #t)
                   (pass-if-exception "bad-args"
                     exception:wrong-type-arg
-                    (make-weak-key-alist-vector '(bad arg))))
- (with-test-prefix "make-weak-value-alist-vector"
+                    (make-weak-key-hash-table '(bad arg))))
+ (with-test-prefix "make-weak-value-hash-table"
                   (pass-if "create"
-                    (make-weak-value-alist-vector 17)
+                    (make-weak-value-hash-table 17)
                     #t)
                   (pass-if-exception "bad-args"
                     exception:wrong-type-arg
-                    (make-weak-value-alist-vector '(bad arg))))
+                    (make-weak-value-hash-table '(bad arg))))
 
- (with-test-prefix "make-doubly-weak-alist-vector"
+ (with-test-prefix "make-doubly-weak-hash-table"
                   (pass-if "create"
-                    (make-doubly-weak-alist-vector 17)
+                    (make-doubly-weak-hash-table 17)
                     #t)
                   (pass-if-exception "bad-args"
                     exception:wrong-type-arg
-                    (make-doubly-weak-alist-vector '(bad arg)))))
+                    (make-doubly-weak-hash-table '(bad arg)))))
 
 
 
@@ -138,9 +138,9 @@
   (or (not value)
       (equal? value initial-value)))
 
- (let ((x (make-weak-key-alist-vector 17))
-      (y (make-weak-value-alist-vector 17))
-      (z (make-doubly-weak-alist-vector 17))
+ (let ((x (make-weak-key-hash-table 17))
+      (y (make-weak-value-hash-table 17))
+      (z (make-doubly-weak-hash-table 17))
       (test-key "foo")
       (test-value "bar"))
   (with-test-prefix