Skip to content

Commit

Permalink
repair tests for cmg=1 (#737)
Browse files Browse the repository at this point in the history
In attempting to improve some tests, commit a4654e4 lost two
adjustments to `collect-maximum-generation` to ensure that tests work
when the parameter is set to 1 (as in some modes that are tried by
`make test-more`).
  • Loading branch information
mflatt authored Oct 20, 2023
1 parent a2eda72 commit 288e3c7
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions mats/4.ms
Original file line number Diff line number Diff line change
Expand Up @@ -4821,7 +4821,8 @@
(bwp-object? (car x))))))
;; check interaction of weak pairs, generations, and specific target generations for collection
(with-interrupts-disabled
(parameterize ([#%$enable-check-heap #t])
(parameterize ([#%$enable-check-heap #t]
[collect-maximum-generation (max (collect-maximum-generation) 2)])
(let ([key "key"])
(let ([e (weak-cons key #f)])
(collect 0 1 1)
Expand Down Expand Up @@ -5010,7 +5011,8 @@
;; Check interaction of mutation and incremental generation promotion

(with-interrupts-disabled
(parameterize ([#%$enable-check-heap #t])
(parameterize ([#%$enable-check-heap #t]
[collect-maximum-generation (max (collect-maximum-generation) 2)])
(let ([key "key"])
(let ([e (ephemeron-cons key #f)])
(collect 0 1 1)
Expand Down

0 comments on commit 288e3c7

Please sign in to comment.