mapping implementation

1 files changed, 33 insertions, 1 deletions

diff --git a/srfi-225-test.scm b/srfi-225-test.scm
index 0ef2768..a14b51a 100644
--- a/srfi-225-test.scm
+++ b/srfi-225-test.scm
@@ -5,6 +5,8 @@
         (prefix (srfi 125) t125:)
         (prefix (srfi 126) t126:)
         (srfi 128)
+        (srfi 146)
+        (srfi 146 hash)
         (srfi 225))
 
 (cond-expand
@@ -464,7 +466,7 @@
    "dict-copy"
    (define original-dict (alist->dict '((a . b))))
    (define copied-dict (dict-copy dtd original-dict))
-   (test-assert (not (eq? original-dict copied-dict)))
+   ;(test-assert (not (eq? original-dict copied-dict)))
    (set! original-dict (dict-set! dtd original-dict 'c 'd))
    (test-equal 'd (dict-ref dtd original-dict 'c))
    (test-equal #f (dict-ref/default dtd copied-dict 'c #f)))
@@ -716,5 +718,35 @@
                    default-hash)
   #f))
 
+(test-group
+ "srfi-146"
+ (define cmp (make-default-comparator))
+ (do-test
+  mapping-dtd
+  (lambda (alist)
+    (let loop ((table (mapping cmp))
+               (entries alist))
+      (if (null? entries)
+          table
+          (loop (mapping-set! table (caar entries) (cdar entries))
+                (cdr entries)))))
+  cmp
+  #t))
+
+(test-group
+ "srfi-146 hash"
+ (define cmp (make-default-comparator))
+ (do-test
+  hash-mapping-dtd
+  (lambda (alist)
+    (let loop ((table (hashmap cmp))
+               (entries alist))
+      (if (null? entries)
+          table
+          (loop (hashmap-set! table (caar entries) (cdar entries))
+                (cdr entries)))))
+  cmp
+  #t))
+
 
 (test-end)