view release on metacpan or  search on metacpan

t/0003-cmd-interpreter.t  view on Meta::CPAN

    },

    # CMD7: FOR /L %%N IN (1,1,5) DO
    sub {
        delete $BATsh::Env::STORE{'CMD_T7'};
        BATsh->run_string(join("\n",
            'SET CMD_T7=0',
            'FOR /L %%N IN (1,1,5) DO SET /A CMD_T7=%CMD_T7%+1',
        ));
        _ok(( defined( $BATsh::Env::STORE{'CMD_T7'} ) ? $BATsh::Env::STORE{'CMD_T7'} : '' ) eq '5',
            'CMD7: FOR /L counts 5 iterations');
    },

    # CMD8: SET /A arithmetic
    sub {
        delete $BATsh::Env::STORE{'CMD_T8'};
        BATsh->run_string("SET /A CMD_T8=6*7");
        _ok(( defined( $BATsh::Env::STORE{'CMD_T8'} ) ? $BATsh::Env::STORE{'CMD_T8'} : '' ) eq '42',
            'CMD8: SET /A 6*7 = 42');
    },