basis/locals/backend/backend-tests.factor

   1 IN: locals.backend.tests
   2 USING: tools.test locals.backend kernel arrays accessors ;
   3
   4 : get-local-test-1 ( -- x ) 3 1 load-locals 0 get-local 1 drop-locals ;
   5
   6 \ get-local-test-1 def>> must-infer
   7
   8 [ 3 ] [ get-local-test-1 ] unit-test
   9
  10 : get-local-test-2 ( -- x ) 3 4 2 load-locals -1 get-local 2 drop-locals ;
  11
  12 \ get-local-test-2 def>> must-infer
  13
  14 [ 3 ] [ get-local-test-2 ] unit-test