#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
use Test::More tests => 6;
use File::Spec::Functions ':ALL';
use Perl::Dist::Inno::System;
#####################################################################
# Main Tests
my $object = Perl::Dist::Inno::System->run(
        filename    => "{app}\\perl\\bin\\program",
        working_dir => "{app}\\perl\\bin",
);
isa_ok( $object, 'Perl::Dist::Inno::System' );
is( $object->section, 'Run', '->section is Run' );
is( $object->filename, "{app}\\perl\\bin\\program", '->filename ok' );
is( $object->working_dir, "{app}\\perl\\bin", '->working_dir ok' );
is( $object->description, undef, '->description undef' );
is(
        $object->as_string,
        "Filename: \"{app}\\perl\\bin\\program\"; WorkingDir: \"{app}\\perl\\bin\"",
        '->as_string ok',
);