core/compiler/test/simple.factor

   1 USING: compiler tools.test kernel kernel.private
   2 combinators.private ;
   3 IN: temporary
   4
   5 ! Test empty word
   6 [ ] [ [ ] compile-1 ] unit-test
   7
   8 ! Test literals
   9 [ 1 ] [ [ 1 ] compile-1 ] unit-test
  10 [ 31 ] [ [ 31 ] compile-1 ] unit-test
  11 [ 255 ] [ [ 255 ] compile-1 ] unit-test
  12 [ -1 ] [ [ -1 ] compile-1 ] unit-test
  13 [ 65536 ] [ [ 65536 ] compile-1 ] unit-test
  14 [ -65536 ] [ [ -65536 ] compile-1 ] unit-test
  15 [ "hey" ] [ [ "hey" ] compile-1 ] unit-test
  16
  17 ! Calls
  18 : no-op ;
  19
  20 [ ] [ [ no-op ] compile-1 ] unit-test
  21 [ 3 ] [ [ no-op 3 ] compile-1 ] unit-test
  22 [ 3 ] [ [ 3 no-op ] compile-1 ] unit-test
  23
  24 : bar 4 ;
  25
  26 [ 4 ] [ [ bar no-op ] compile-1 ] unit-test
  27 [ 4 3 ] [ [ no-op bar 3 ] compile-1 ] unit-test
  28 [ 3 4 ] [ [ 3 no-op bar ] compile-1 ] unit-test
  29
  30 [ ] [ no-op ] unit-test
  31
  32 ! Conditionals
  33
  34 [ 1 ] [ t [ [ 1 ] [ 2 ] if ] compile-1 ] unit-test
  35 [ 2 ] [ f [ [ 1 ] [ 2 ] if ] compile-1 ] unit-test
  36 [ 1 3 ] [ t [ [ 1 ] [ 2 ] if 3 ] compile-1 ] unit-test
  37 [ 2 3 ] [ f [ [ 1 ] [ 2 ] if 3 ] compile-1 ] unit-test
  38
  39 [ "hi" ] [ 0 [ { [ "hi" ] [ "bye" ] } dispatch ] compile-1 ] unit-test
  40 [ "bye" ] [ 1 [ { [ "hi" ] [ "bye" ] } dispatch ] compile-1 ] unit-test
  41
  42 [ "hi" 3 ] [ 0 [ { [ "hi" ] [ "bye" ] } dispatch 3 ] compile-1 ] unit-test
  43 [ "bye" 3 ] [ 1 [ { [ "hi" ] [ "bye" ] } dispatch 3 ] compile-1 ] unit-test
  44
  45 [ 4 1 ] [ 0 [ { [ bar 1 ] [ 3 1 ] } dispatch ] compile-1 ] unit-test
  46 [ 3 1 ] [ 1 [ { [ bar 1 ] [ 3 1 ] } dispatch ] compile-1 ] unit-test
  47 [ 4 1 3 ] [ 0 [ { [ bar 1 ] [ 3 1 ] } dispatch 3 ] compile-1 ] unit-test
  48 [ 3 1 3 ] [ 1 [ { [ bar 1 ] [ 3 1 ] } dispatch 3 ] compile-1 ] unit-test
  49
  50 ! Labels
  51
  52 : recursive ( ? -- ) [ f recursive ] when ; inline
  53
  54 [ ] [ t [ recursive ] compile-1 ] unit-test
  55
  56 \ recursive compile
  57
  58 [ ] [ t recursive ] unit-test