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

View File

@ -121,3 +121,13 @@ IN: compiler.tests.float
float-array{ 1 2 3 4 }
[ { float-array } declare [ dup * ] [ + ] map-reduce ] compile-call
] 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