1 USING: accessors kernel literals math tools.test ;
5 : six-six-six ( -- a b c ) 6 6 6 ;
9 : seven-eleven ( -- b c ) 7 11 ;
11 { { 5 } } [ { $ five } ] unit-test
12 { { 7 11 } } [ { $ seven-eleven } ] unit-test
13 { { 6 6 6 } } [ { $ six-six-six } ] unit-test
15 { { 6 6 6 7 } } [ { $ six-six-six 7 } ] unit-test
17 { { 8 8 8 } } [ { $[ six-six-six [ 2 + ] tri@ ] } ] unit-test
19 { { 0.5 2.0 } } [ { $[ 1.0 2.0 / ] 2.0 } ] unit-test
21 { { 1.0 { 0.5 1.5 } 4.0 } } [ { 1.0 { $[ 1.0 2.0 / ] 1.5 } $[ 2.0 2.0 * ] } ] unit-test
23 CONSTANT: constant-a 3
25 { { 3 10 "ftw" } } [ ${ constant-a 10 "ftw" } ] unit-test
26 { { 4 } } [ ${ 1 constant-a + } ] unit-test
27 { { 3 } } [ ${ 1 2 + } ] unit-test
28 { { 1 2 \ + } } [ ${ 1 2 \ + } ] unit-test
29 { { 4 } } [ ${ 1 2 + 1 + } ] unit-test
30 { { 1 3 } } [ ${ 1 2 1 + } ] unit-test
32 : sixty-nine ( -- a b ) 6 9 ;
34 { { 6 9 } } [ ${ sixty-nine } ] unit-test
41 CONSTANT: foo flags{ a b d }
43 { 3 } [ foo ] unit-test
44 { 3 } [ flags{ a b d } ] unit-test
45 \ foo def>> must-infer
47 { 1 } [ flags{ 1 } ] unit-test