extra/bake/bake-tests.factor

   1
   2 USING: kernel tools.test bake ;
   3
   4 IN: bake.tests
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : unit-test* ( input output -- ) swap unit-test ;
   9
  10 : must-be-t ( in -- ) [ t ] swap unit-test ;
  11 : must-be-f ( in -- ) [ f ] swap unit-test ;
  12
  13 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14
  15 [ 10 20 30 `{ , , , } ] [ { 10 20 30 } ] unit-test*
  16
  17 [ 10 20 30 `{ , { , } , } ] [ { 10 { 20 } 30 } ] unit-test*
  18
  19 [ 10 { 20 21 22 } 30 `{ , , , } ] [ { 10 { 20 21 22 } 30 } ] unit-test*
  20
  21 [ 10 { 20 21 22 } 30 `{ , @ , } ] [ { 10 20 21 22 30 } ] unit-test*
  22
  23 [ { 1 2 3 } `{ @ } ] [ { 1 2 3 } ] unit-test*
  24
  25 [ { 1 2 3 } { 4 5 6 } { 7 8 9 } `{ @ @ @ } ]
  26 [ { 1 2 3 4 5 6 7 8 9 } ]
  27 unit-test*
  28