basis/vm/vm-tests.factor

   1 USING: accessors classes.struct kernel kernel.private math math.order
   2 tools.test ;
   3 QUALIFIED: vm
   4 IN: vm.tests
   5
   6 : get-ctx ( -- ctx )
   7     context vm:context memory>struct ;
   8
   9 { t } [
  10     get-ctx [ callstack-bottom>> ] [ callstack-top>> ] bi - 0 >
  11 ] unit-test
  12
  13 { t } [
  14     ! Callstack is in the callstack segment
  15     get-ctx [ callstack-top>> ] [
  16         callstack-seg>> [ start>> ] [ end>> ] bi
  17     ] bi between?
  18 ] unit-test