1 IN: compiler.cfg.loop-detection.tests
2 USING: compiler.cfg compiler.cfg.loop-detection
3 compiler.cfg.predecessors
5 tools.test kernel namespaces accessors ;
14 : test-loop-detection ( -- ) cfg new 0 get >>entry needs-loops drop ;
16 [ ] [ test-loop-detection ] unit-test
18 [ 1 ] [ 0 get loop-nesting-at ] unit-test
19 [ 0 ] [ 1 get loop-nesting-at ] unit-test
20 [ 1 ] [ 2 get loop-nesting-at ] unit-test