2008-12-04 16:40:55 -05:00
|
|
|
USING: sequences.complex-components
|
|
|
|
|
kernel sequences tools.test arrays accessors ;
|
|
|
|
|
IN: sequences.complex-components.tests
|
|
|
|
|
|
|
|
|
|
: test-array ( -- x )
|
|
|
|
|
{ C{ 1.0 2.0 } 3.0 C{ 5.0 6.0 } } <complex-components> ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 6 } [ test-array length ] unit-test
|
2008-12-04 16:40:55 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 1.0 } [ test-array first ] unit-test
|
|
|
|
|
{ 2.0 } [ test-array second ] unit-test
|
|
|
|
|
{ 3.0 } [ test-array third ] unit-test
|
|
|
|
|
{ 0 } [ test-array fourth ] unit-test
|
2008-12-04 16:40:55 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { 1.0 2.0 3.0 0 5.0 6.0 } } [ test-array >array ] unit-test
|
