suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix set chaperone tests.

Browse Source 
`set-first` just does an extract, not a remove.
This commit is contained in:
Sam Tobin-Hochstadt 2016-01-04 11:08:02 -05:00
parent 1c431e6f4d
commit 5cf748d734
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/set.rktl
View File

@ -651,7 +651,7 @@
s) s)
(λ (s) (set-first s)) (λ (s) (set-first s))
#f) #f)
(test '((add 0) (remove 0)) (test '((add 0) (extract 0))
counting-chaperone counting-chaperone
(let () (let ()
(define-custom-set-types set2 equal? equal-hash-code) (define-custom-set-types set2 equal? equal-hash-code)
@ -675,7 +675,7 @@
(make-immutable-set2)) (make-immutable-set2))
(λ (s) (set-add s 1)) (λ (s) (set-add s 1))
#f) #f)
(test '((remove 1)) (test '((extract 1))
counting-chaperone counting-chaperone
(let () (let ()
(define-custom-set-types set2 equal? equal-hash-code) (define-custom-set-types set2 equal? equal-hash-code)
@ -684,7 +684,7 @@
s) s)
(λ (s) (set-first s)) (λ (s) (set-first s))
#f) #f)
(test '((remove 1)) (test '((extract 1))
counting-chaperone counting-chaperone
(let () (let ()
(define-custom-set-types set2 equal? equal-hash-code) (define-custom-set-types set2 equal? equal-hash-code)