extra/mason/child/child-tests.factor

   1 IN: mason.child.tests
   2 USING: mason.child mason.config tools.test namespaces io kernel
   3 sequences system ;
   4
   5 [ { "nmake" "/f" "nmakefile" "x86-32" } ] [
   6     [
   7         winnt target-os set
   8         x86.32 target-cpu set
   9         make-cmd
  10     ] with-scope
  11 ] unit-test
  12
  13 [ { "make" "macosx-x86-32" } ] [
  14     [
  15         macosx target-os set
  16         x86.32 target-cpu set
  17         make-cmd
  18     ] with-scope
  19 ] unit-test
  20
  21 [ { "./factor.com" "-i=boot.winnt-x86.32.image" "-no-user-init" } ] [
  22     [
  23         winnt target-os set
  24         x86.32 target-cpu set
  25         boot-cmd
  26     ] with-scope
  27 ] unit-test
  28
  29 [ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] must-infer
  30
  31 [ 4 ] [ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] unit-test
  32
  33 [ 3 ] [ [ "Hi" throw ] [ drop 3 ] [ 4 ] recover-else ] unit-test
  34
  35 [ "A" ] [
  36     {
  37         { [ 3 throw ] [ { "X" "Y" "Z" "A" } nth ] }
  38         [ "B" ]
  39     } recover-cond
  40 ] unit-test
  41
  42 [ "B" ] [
  43     {
  44         { [ ] [ ] }
  45         [ "B" ]
  46     } recover-cond
  47 ] unit-test