factor/basis/compiler/cfg/stacks/stacks-tests.factor

USING: accessors arrays assocs combinators compiler.cfg.registers
compiler.cfg.stacks compiler.cfg.stacks.local kernel literals namespaces
tools.test ;
IN: compiler.cfg.stacks.tests

: test-init ( -- )
    reset-vreg-counter begin-stack-analysis begin-local-analysis
    H{ } clone replace-mapping set ;

{
    H{ { D 1 4 } { D 2 3 } { D 0 5 } }
    { { 0 0 } { 0 0 } }
} [
    test-init
    { 3 4 5 } ds-loc store-vregs
    replace-mapping get
    height-state get
] unit-test

! load-vregs
{
    { 1 2 3 4 5 6 7 8 }
} [
    test-init 8 ds-loc load-vregs
] unit-test

! 2inputs
{
    1
    2
    { { -2 -2 } { 0 0 } }
} [
    test-init 2inputs height-state get
] unit-test