Commits

Moritz Heidkamp committed 545664e

debangify some test descriptions

Comments (0)

Files changed (1)

      (() (queue->list q))
      ((x) (queue-add! q x)))))
 
-(test-group "channel-receive!"
+(test-group "channel-receive"
   (define c (make-channel))
   (channel-enqueue c 1)
   (define results (make-receiver))
   (test (channel-messages cf) '((1) (2 1) (3 2 1)))
   (test (channel-messages c) '()))
 
-(test-group "channel-map!"
+(test-group "map-channel"
   (define c (make-channel 1 2))
   (define m (map-channel c add1))
   (test (channel-messages m) '(2 3))