- [s1 (make-immutable-peers (list p1))]
- [s2 (make-immutable-peers (list p2 p3))])
- (check-true (peers? (peers-union s1 s2)))
- (check-true (peers? (peers-union s2 s1)))
- (check-equal? (list p3 p2) (set->list (peers-union s1 s2)))
- (check-equal? (list p3 p2) (set->list (peers-union s2 s1)))))
+ [s1 (list p1)]
+ [s2 (list p2 p3)])
+ (check-equal? (list p3 p2) (peers-merge s1 s2))
+ (check-equal? (list p3 p2) (peers-merge s2 s1))))