source: project/release/5/object-evict/trunk/tests/run.scm @ 34718

Last change on this file since 34718 was 34718, checked in by sjamaan, 19 months ago

release/5: Replace use by import in eggs

File size: 434 bytes
Line 
1(import object-evict)
2
3; object-evict
4; object-evicted?
5; object-size
6; object-release
7
8(define tstvec (vector #f))
9(let ((sz (object-size tstvec)))
10  (assert (and (integer? sz) (positive? sz))) )
11(define ev-tstvec (object-evict tstvec))
12(assert (not (eq? tstvec ev-tstvec)))
13(assert (object-evicted? ev-tstvec))
14(set! ev-tstvec
15  (let ((old ev-tstvec))
16    (object-release old)
17    #f))
18
19; object-evict-to-location
20
21; object-unevict
Note: See TracBrowser for help on using the repository browser.