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

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

{ { "make" "macosx-x86-32" } } [
    H{
        { target-os macosx }
        { target-cpu x86.32 }
    } [ mason-child-make-cmd ] with-variables
] unit-test

! Must be an absolute path on Windows because launch directory
! is relative to parent directory (instead of current directory).
{ t } [
    H{
        { target-os windows }
        { target-cpu x86.32 }
    } [ mason-child-make-cmd ] with-variables first absolute-path?
] unit-test

{ t } [
    H{
        { target-os windows }
        { target-cpu x86.32 }
    } [ mason-child-boot-cmd ] with-variables first absolute-path?
] 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