19 lines
423 B
Factor
19 lines
423 B
Factor
|
USING: accessors classes.struct kernel math math.order threads.private
|
||
|
|
tools.test ;
|
||
|
|
QUALIFIED: vm
|
||
|
|
IN: vm.tests
|
||
|
|
|
||
|
|
: get-ctx ( -- ctx )
|
||
|
|
context vm:context memory>struct ;
|
||
|
|
|
||
|
|
{ t } [
|
||
|
|
get-ctx [ callstack-bottom>> ] [ callstack-top>> ] bi - 0 >
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ t } [
|
||
|
|
! Callstack is in the callstack segment
|
||
|
|
get-ctx [ callstack-top>> ] [
|
||
|
|
callstack-seg>> [ start>> ] [ end>> ] bi
|
||
|
|
] bi between?
|
||
|
|
] unit-test
|