#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
use Test::More tests => 7;
use File::Spec::Functions ':ALL';
use Perl::Dist::Inno::Registry;
#####################################################################
# Main Tests
my $registry1 = Perl::Dist::Inno::Registry->env( TERM => 'dumb' );
isa_ok( $registry1, 'Perl::Dist::Inno::Registry' );
is( $registry1->root,       'HKLM', '->source ok' );
is( $registry1->subkey,     'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', '->subkey ok' );
is( $registry1->value_type, 'expandsz', '->value_type ok' );
is( $registry1->value_name, 'TERM', '->value_name ok' );
is( $registry1->value_data, 'dumb', '->value_data ok' );
is(
        $registry1->as_string,
        'Root: HKLM; Subkey: SYSTEM\CurrentControlSet\Control\Session Manager\Environment; ValueType: expandsz; ValueName: TERM; ValueData: "dumb"',
        '->as_string ok',
);