-(begin
- (set! speaker (speak-it)) ; reset the speaker
- (start-agenda (make-agenda #:queue (make-q* run-dummy))
- #:stop-condition (true-after-n-times 1))
- (test-equal (speaker)
- '("I bet I can make you say you're a dummy!\n")))
+(with-fresh-speaker
+ (run-agenda (make-agenda #:queue (make-q* run-dummy))
+ #:stop-condition (true-after-n-times 1))
+ (test-equal (get-spoken)
+ '("I bet I can make you say you're a dummy!\n")))