use utf8;
use strict;
use warnings;
use Test::More;
use EnvDir;

my $PATH = $ENV{PATH};
my $envdir = EnvDir->new;
{
    my $guard = $envdir->envdir('t/env');

    my $PATH2 = $ENV{PATH};
    is $PATH2, '/env/bin', 'PATH=/env/bin';
    isnt $PATH2, $PATH, 'PATH is overrided';

    {
        my $guard = $envdir->envdir('t/env2');
        is $ENV{PATH}, '/env2/bin', 'PATH=/env2/bin';
        isnt $ENV{PATH}, $PATH2, 'PATH is overrided again';
    }

    is $PATH2, '/env/bin', 'PATH is reverted';
}

is $ENV{PATH}, $PATH, 'PATH is reverted';

done_testing;