steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memory.tests: a full test against #1289, it shouldn't crash

db4
Björn Lindqvist 2015-05-10 01:27:43 +02:00 committed by John Benediktsson
parent 409a32d555
commit 36bfd0f105
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
core/memory/memory-tests.factor
View File

@ -1,5 +1,5 @@
USING: accessors effects kernel kernel.private math memory prettyprint USING: accessors byte-arrays effects kernel kernel.private math memory
io sequences tools.test words namespaces layouts classes prettyprint io sequences tools.test words namespaces layouts classes
classes.builtin arrays quotations system ; classes.builtin arrays quotations system ;
FROM: tools.memory => data-room code-room ; FROM: tools.memory => data-room code-room ;
IN: memory.tests IN: memory.tests
@ -91,3 +91,22 @@ SYMBOL: foo-var
{ } [ { } [
minor-gc 100 deep-stack-minor-gc minor-gc 100 deep-stack-minor-gc
] unit-test ] unit-test
! Bug #1289
TUPLE: tup2 a b c d ;
: inner ( k -- n )
20 f <array> 20 f <array> assert=
! Allocates a byte array so large that the next allocation will
! trigger a gc.
drop 2097103 <byte-array> ;
: outer ( -- lag )
9 iota [ inner ] map
! D 0 is scrubbed, but if the branch calling 'inner' was
! called, then both D 0 and D 1 should have been scrubbed.
0 9 1 tup2 boa ;
{ } [
outer drop
] unit-test