| | 186 | (test allocation-area.delete |
|---|
| | 187 | (with-fixture empty-store () |
|---|
| | 188 | (let ((area (make-allocation-rectangle 0 0 10 10)) |
|---|
| | 189 | (sponsor (make-sponsor :login "testuser")) |
|---|
| | 190 | stripes) |
|---|
| | 191 | (make-contract sponsor 10) |
|---|
| | 192 | (make-contract sponsor 1) |
|---|
| | 193 | (make-contract sponsor 10) |
|---|
| | 194 | (make-contract sponsor 3) |
|---|
| | 195 | (setq stripes (bos.m2::allocation-area-stripes area)) |
|---|
| | 196 | (is (not (null stripes))) |
|---|
| | 197 | (delete-object area) |
|---|
| | 198 | (is (object-destroyed-p area)) |
|---|
| | 199 | (is (every #'object-destroyed-p stripes)) |
|---|
| | 200 | (finishes (snapshot))))) |
|---|
