#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
BEGIN {
use_ok('Positron::Environment');
}
my $data = {
one => 1,
two => [1, 2],
three => { 3 => 'hash' },
};
my $env = Positron::Environment->new($data);
lives_and {
is_deeply($env->get('_') // undef, $data);
} "Underscore gives complete environment again";
lives_and {
my $newdata = { new => 'data'};
$env->set('_', $newdata);
is_deeply($env->{'data'}, $newdata);
} "Setting underscore changes data";
done_testing();