basis/compiler/codegen/codegen-tests.factor

   1 USING: compiler.codegen.fixup tools.test cpu.architecture math kernel make
   2 compiler.constants ;
   3 IN: compiler.codegen.tests
   4
   5 [ ] [ [ ] with-fixup drop ] unit-test
   6 [ ] [ [ \ + %call ] with-fixup drop ] unit-test
   7
   8 [ ] [ [ <label> dup define-label dup resolve-label %jump-label ] with-fixup drop ] unit-test
   9 [ ] [ [ <label> dup define-label dup resolve-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup drop ] unit-test
  10
  11 ! Error checking
  12 [ [ <label> dup define-label %jump-label ] with-fixup ] must-fail
  13 [ [ <label> dup define-label B{ 0 0 0 0 } % rc-relative label-fixup ] with-fixup ] must-fail
  14 [ [ <label> dup define-label B{ 0 0 0 0 } % rc-absolute-cell label-fixup ] with-fixup ] must-fail