11 lines
352 B
Factor
11 lines
352 B
Factor
|
IN: compiler.cfg.useless-blocks.tests
|
||
|
|
USING: fry kernel sequences compiler.cfg.useless-blocks compiler.cfg.checker
|
||
|
|
compiler.cfg.debugger compiler.cfg.predecessors tools.test ;
|
||
|
|
|
||
|
|
{
|
||
|
|
[ [ drop 1 ] when ]
|
||
|
|
[ [ drop 1 ] unless ]
|
||
|
|
} [
|
||
|
|
[ [ ] ] dip
|
||
|
|
'[ _ test-cfg first dup compute-predecessors dup delete-useless-blocks check-cfg ] unit-test
|
||
|
|
] each
|