2015-06-10 20:59:43 -04:00
|
|
|
USING: io io.pathnames kernel mason.child mason.config
|
|
|
|
namespaces sequences system tools.test ;
|
2008-09-16 00:20:33 -04:00
|
|
|
|
2015-06-10 22:56:11 -04:00
|
|
|
{ t } [
|
|
|
|
H{
|
|
|
|
{ target-os windows }
|
|
|
|
{ target-cpu x86.32 }
|
|
|
|
} [ mason-child-boot-cmd ] with-variables first absolute-path?
|
|
|
|
] unit-test
|
2009-04-17 21:59:59 -04:00
|
|
|
|
|
|
|
[ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] must-infer
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 4 } [ [ "Hi" print ] [ drop 3 ] [ 4 ] recover-else ] unit-test
|
2009-04-17 21:59:59 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 3 } [ [ "Hi" throw ] [ drop 3 ] [ 4 ] recover-else ] unit-test
|
2009-04-17 21:59:59 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "A" } [
|
2009-04-17 21:59:59 -04:00
|
|
|
{
|
|
|
|
{ [ 3 throw ] [ { "X" "Y" "Z" "A" } nth ] }
|
|
|
|
[ "B" ]
|
|
|
|
} recover-cond
|
|
|
|
] unit-test
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "B" } [
|
2009-04-17 21:59:59 -04:00
|
|
|
{
|
|
|
|
{ [ ] [ ] }
|
|
|
|
[ "B" ]
|
|
|
|
} recover-cond
|
2011-07-29 01:57:14 -04:00
|
|
|
] unit-test
|