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

Add unit test for locals performance regresion

db4
Slava Pestov 2008-09-13 03:09:16 -05:00
parent 2cc40052bf
commit 01129fb9bd
1 changed files with 4 additions and 1 deletions
basis/compiler/tree/propagation

5
basis/compiler/tree/propagation/propagation-tests.factor
View File

@ -7,7 +7,8 @@ byte-arrays classes.algebra classes.tuple.private
math.functions math.private strings layouts
compiler.tree.propagation.info compiler.tree.def-use
compiler.tree.debugger compiler.tree.checker
slots.private words hashtables classes assocs ;
slots.private words hashtables classes assocs locals
float-arrays ;
IN: compiler.tree.propagation.tests
\ propagate must-infer
@ -587,6 +588,8 @@ MIXIN: empty-mixin
[ { fixnum integer } declare bitand ] final-classes
] unit-test
[ V{ float-array } ] [ [| | F{ } ] final-classes ] unit-test
! [ V{ string } ] [
! [ dup string? t xor [ "A" throw ] [ ] if ] final-classes
! ] unit-test