From 5cf748d734607c3820949daa071c5108ae6d5ee4 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 4 Jan 2016 11:08:02 -0500 Subject: [PATCH] Fix set chaperone tests. `set-first` just does an extract, not a remove. --- pkgs/racket-test-core/tests/racket/set.rktl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/set.rktl b/pkgs/racket-test-core/tests/racket/set.rktl index 935818eab3..99013eeaeb 100644 --- a/pkgs/racket-test-core/tests/racket/set.rktl +++ b/pkgs/racket-test-core/tests/racket/set.rktl @@ -651,7 +651,7 @@ s) (λ (s) (set-first s)) #f) - (test '((add 0) (remove 0)) + (test '((add 0) (extract 0)) counting-chaperone (let () (define-custom-set-types set2 equal? equal-hash-code) @@ -675,7 +675,7 @@ (make-immutable-set2)) (λ (s) (set-add s 1)) #f) - (test '((remove 1)) + (test '((extract 1)) counting-chaperone (let () (define-custom-set-types set2 equal? equal-hash-code) @@ -684,7 +684,7 @@ s) (λ (s) (set-first s)) #f) - (test '((remove 1)) + (test '((extract 1)) counting-chaperone (let () (define-custom-set-types set2 equal? equal-hash-code)