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

compiler: more tests

db4
Slava Pestov 2010-05-04 05:46:45 -05:00
parent 572d7f77f8
commit 035a2e9b63
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/tests/float.factor
View File

@ -121,3 +121,13 @@ IN: compiler.tests.float
float-array{ 1 2 3 4 } float-array{ 1 2 3 4 }
[ { float-array } declare [ dup * ] [ + ] map-reduce ] compile-call [ { float-array } declare [ dup * ] [ + ] map-reduce ] compile-call
] unit-test ] unit-test
[ 4.5 ] [
float-array{ 1.0 3.5 }
[ { float-array } declare 0.0 [ + ] reduce ] compile-call
] unit-test
[ float-array{ 2.0 4.5 } ] [
float-array{ 1.0 3.5 }
[ { float-array } declare [ 1 + ] map ] compile-call
] unit-test