compiler: fix failing test

db4
Joe Groff 2011-12-06 21:11:44 -08:00
parent 83d8569197
commit 2e4d6f724b
1 changed files with 6 additions and 4 deletions

View File

@ -1,5 +1,6 @@
USING: tools.test quotations math kernel sequences
assocs namespaces make compiler.units compiler.test ;
assocs namespaces make compiler.units compiler.test
locals random ;
IN: compiler.tests.curry
[ 3 ] [ 5 [ [ 2 - ] curry call ] compile-call ] unit-test
@ -45,9 +46,10 @@ IN: compiler.tests.curry
[ call f ] curry assoc-find 3drop
] { } make ; inline
[ t ] [
global [ [ drop , ] funky-assoc>map ] compile-call
global keys =
[ t ] [| |
1000 iota [ drop 1,000,000 random 1,000,000 random ] H{ } map>assoc :> a-hashtable
a-hashtable [ [ drop , ] funky-assoc>map ] compile-call
a-hashtable keys =
] unit-test
[ 3 ] [ 1 [ 2 ] [ curry [ 3 ] [ 4 ] if ] compile-call ] unit-test