factor/extra/mason/child/child-tests.factor

IN: mason.child.tests
USING: mason.child mason.config tools.test namespaces io kernel sequences ;

[ { "make" "winnt-x86-32" } ] [
    [
        "winnt" target-os set
        "x86.32" target-cpu set
        make-cmd
    ] with-scope
] unit-test

[ { "make" "macosx-x86-32" } ] [
    [
        "macosx" target-os set
        "x86.32" target-cpu set
        make-cmd
    ] with-scope
] unit-test

[ { "gmake" "netbsd-ppc" } ] [
    [
        "netbsd" target-os set
        "ppc" target-cpu set
        make-cmd
    ] with-scope
] unit-test

[ { "./factor" "-i=boot.macosx-ppc.image" "-no-user-init" } ] [
    [
        "macosx" target-os set
        "ppc" target-cpu set
        boot-cmd
    ] with-scope
] unit-test

[ { "./factor.com" "-i=boot.x86.32.image" "-no-user-init" } ] [
    [
        "winnt" target-os set
        "x86.32" target-cpu set
        boot-cmd
    ] with-scope
] unit-test

[ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] must-infer

[ 4 ] [ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] unit-test

[ 3 ] [ [ "Hi" throw ] [ drop 3 ] [ 4 ] recover-else ] unit-test

[ "A" ] [
    {
        { [ 3 throw ] [ { "X" "Y" "Z" "A" } nth ] }
        [ "B" ]
    } recover-cond
] unit-test

[ "B" ] [
    {
        { [ ] [ ] }
        [ "B" ]
    } recover-cond
] unit-test