use strict;
use Test::More;

use File::Path;
use FindBin;
use Term::UI;

plan tests => 4;

{
    use inc::Module::Install;
    
    no warnings 'redefine';
    
    local @ARGV = ( q|TEST_VAR_FOO=1|, q|TEST_VAR_BAR=abc|, q|TEST_VAR_BAZ=1.35| );
    local $Term::UI::AUTOREPLY = 1;
    
    test_vars
        TEST_VAR_FOO => +{ prompt => 'Input Foo', },
        TEST_VAR_BAR => +{ prompt => 'Input Bar', },
        TEST_VAR_BAZ => +{ prompt => 'Input Baz', };
    
    is($MY::TEST_VARS{TEST_VAR_FOO}, 1);
    is($MY::TEST_VARS{TEST_VAR_BAR}, 'abc');
    is($MY::TEST_VARS{TEST_VAR_BAZ}, 1.35);

    ok(rmtree( [ $FindBin::Bin . '/inc' ], 1, 1));
}