2008-12-12 02:00:23 -05:00
|
|
|
USING: kernel literals math tools.test ;
|
2008-12-09 02:13:26 -05:00
|
|
|
IN: literals.tests
|
|
|
|
|
|
|
|
|
|
<<
|
2009-03-06 20:48:04 -05:00
|
|
|
: six-six-six ( -- a b c ) 6 6 6 ;
|
2008-12-09 02:13:26 -05:00
|
|
|
>>
|
|
|
|
|
|
2009-03-06 20:48:04 -05:00
|
|
|
: five ( -- a ) 5 ;
|
|
|
|
|
: seven-eleven ( -- b c ) 7 11 ;
|
2009-02-18 17:57:20 -05:00
|
|
|
|
2008-12-09 02:13:26 -05:00
|
|
|
[ { 5 } ] [ { $ five } ] unit-test
|
|
|
|
|
[ { 7 11 } ] [ { $ seven-eleven } ] unit-test
|
|
|
|
|
[ { 6 6 6 } ] [ { $ six-six-six } ] unit-test
|
2008-12-12 02:00:23 -05:00
|
|
|
|
2009-01-26 18:47:52 -05:00
|
|
|
[ { 6 6 6 7 } ] [ { $ six-six-six 7 } ] unit-test
|
|
|
|
|
|
2008-12-12 02:00:23 -05:00
|
|
|
[ { 8 8 8 } ] [ { $[ six-six-six [ 2 + ] tri@ ] } ] unit-test
|
2009-01-26 18:47:52 -05:00
|
|
|
|
|
|
|
|
[ { 0.5 2.0 } ] [ { $[ 1.0 2.0 / ] 2.0 } ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 1.0 { 0.5 1.5 } 4.0 } ] [ { 1.0 { $[ 1.0 2.0 / ] 1.5 } $[ 2.0 2.0 * ] } ] unit-test
|
2009-05-03 18:23:14 -04:00
|
|
|
|
|
|
|
|
<<
|
|
|
|
|
CONSTANT: constant-a 3
|
|
|
|
|
>>
|
|
|
|
|
|
|
|
|
|
[ { 3 10 "ftw" } ] [ ${ constant-a 10 "ftw" } ] unit-test
|
