wip

Author: wumoin

tests/goldfish/liii/bag-test.scm

@@ -51,8 +51,7 @@ element ... : any
 (check (bag-member b-empty 1 'missing) => 'missing)
 
 ;; bag->list should include duplicates
-(check-false (not (member 1 b-list)))
-(check-false (not (member 2 b-list)))
+(check b-list  => '(2 2 1))
 (check (length b-list) => 3)