From 4d9589831816d64a85e8c81ce81708ec0d5dd10f Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 18 Nov 2020 21:53:21 -0500 Subject: [PATCH] Simplify test case --- tt.rkt | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/tt.rkt b/tt.rkt index 986ade1..d37788d 100644 --- a/tt.rkt +++ b/tt.rkt @@ -88,13 +88,11 @@ results) (module+ test - (define n-workers 10) - (define given (list - (λ (x) (if (even? x) x #f)) - (range 11))) - (check-equal? - (sort (apply concurrent-filter-map (cons n-workers given)) <) - (sort (apply filter-map given ) <))) + (let* ([f (λ (x) (if (even? x) x #f))] + [xs (range 11)] + [actual (sort (concurrent-filter-map 10 f xs) <)] + [expected (sort ( filter-map f xs) <)]) + (check-equal? actual expected "concurrent-filter-map"))) (define (msg-print out-format odd msg) (printf -- 2.20.1