|
USING: accessors compiler.cfg.block-joining compiler.cfg.utilities
|
|
kernel tools.test ;
|
|
IN: compiler.cfg.block-joining.tests
|
|
|
|
{
|
|
V{ "hello" "there" "B" }
|
|
} [
|
|
{ "there" "B" } 0 insns>block
|
|
{ "hello" "B" } 1 insns>block
|
|
[ join-instructions ] keep instructions>>
|
|
] unit-test
|