steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unit tests for complex specialized-arrays

db4
Joe Groff 2009-02-09 17:26:12 -06:00
parent fecc989098
commit 296a1ce0a9
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/specialized-arrays/complex-double/complex-double-tests.factor Normal file
View File

@ -0,0 +1,13 @@
USING: kernel sequences specialized-arrays.complex-double tools.test ;
IN: specialized-arrays.complex-double.tests
[ C{ 3.0 2.0 } ]
[ complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 } second ] unit-test
[ C{ 1.0 0.0 } ]
[ complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 } first ] unit-test
[ complex-double-array{ 1.0 C{ 6.0 -7.0 } 5.0 } ] [
complex-double-array{ 1.0 C{ 3.0 2.0 } 5.0 }
dup [ C{ 6.0 -7.0 } 1 ] dip set-nth
] unit-test