Changeset 6207 in project for misc-extn/trunk/tests


Ignore:
Timestamp:
09/30/07 06:48:26 (14 years ago)
Author:
Kon Lovett
Message:

Bug fix for [un]zip-alist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • misc-extn/trunk/tests/misc-extn-test.scm

    r6202 r6207  
    8686  )
    8787
    88   (expect-equal/values (values '(a b) '(1 2)) (unzip-alist '((a 1) (b 2))))
    89   (expect-equal '((a 1) (b 2)) (zip-alist '(a b) '(1 2)))
     88  (expect-equal/values (values '(a b) '((1) (2))) (unzip-alist '((a 1) (b 2))))
     89  (expect-equal '((a . 1) (b . 2)) (zip-alist '(a b) '(1 2)))
     90  (expect-equal '((a 1) (b 2)) (zip-alist '(a b) '((1) (2))))
    9091
    9192  (expect-equal '((a 1) (c 4) (b 5) (a 6) (d 7)) (alist-delete/count 'b alst1 eq? 2))
Note: See TracChangeset for help on using the changeset viewer.