The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

CSJEWELL / Perl-Dist-WiX-1.200_100 / t / environment.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

              
#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
use Test::More;
BEGIN {
        if ( $^O eq 'MSWin32' ) {
                plan tests => 10;
        } else {
                plan skip_all => 'Not on Win32';
        }
}
require Perl::Dist::WiX::Fragment::Environment;
require Perl::Dist::WiX::DirectoryTree2;
#####################################################################
#
my $tree = Perl::Dist::WiX::DirectoryTree2->new(app_dir => '.', app_name => 'test', trace => 0);
my $env_1 = Perl::Dist::WiX::Fragment::Environment->new(
    sitename => 'www.test.site.invalid',
);
ok( $env_1, 'Environment->new returns true' );
my $test_empty = <<'END_OF_STRING';
<?xml version='1.0' encoding='windows-1252'?>
<Wix xmlns='http://schemas.microsoft.com/wix/2006/wi'>
  <Fragment Id='Fr_Environment'>
    <DirectoryRef Id='TARGETDIR'>
      <Component Id='C_Environment' Guid='32B594CC-E044-3A3D-A027-670D9F4299B4' />
    </DirectoryRef>
  </Fragment>
</Wix>
END_OF_STRING
is( $env_1->as_string(), $test_empty, 'Environment->as_string with no entries' );
my $entry_1 = $env_1->add_entry(
    id    => 'TestEnv_1',
    name  => 'Random',
    value => 'Number',
);
ok( $entry_1, 'Environment->add_entry returns true' );
eval {
    my $entry_2 = $env_1->add_entry(
        id    => undef,
        name  => 'Random',
        value => 'Number',
    );
};
like($@, qr('id' not Str), 'Environment->add_entry catches bad id' );
eval {
    my $entry_2 = $env_1->add_entry(
        id    => 'TestEnv_1',
        name  => undef,
        value => 'Number',
    );
};
like($@, qr('name' not Str), 'Environment->add_entry catches bad name' );
eval {
    my $entry_2 = $env_1->add_entry(
        id    => 'TestEnv_1',
        name  => 'Random',
        value => undef,
    );
};
like($@, qr('value' not Str), 'Environment->add_entry catches bad value' );
isa_ok( $env_1, 'Perl::Dist::WiX::Fragment::Environment' );
isa_ok( $env_1, 'WiX3::XML::Fragment' );
$env_1->add_entry(
    id    => 'TestEnv_2',
    name  => 'Psuedo',
    value => 'Random',
);
is( $env_1->get_entries_count(), 2, 'Environment->add_entry adds entry successfully');
my $environment_string = <<'EOF';
<?xml version='1.0' encoding='windows-1252'?>
<Wix xmlns='http://schemas.microsoft.com/wix/2006/wi'>
  <Fragment Id='Fr_Environment'>
    <DirectoryRef Id='TARGETDIR'>
      <Component Id='C_Environment' Guid='32B594CC-E044-3A3D-A027-670D9F4299B4'>
        <Environment Id='E_TestEnv_1' Name='Random' Value='Number' System='yes' Permanent='yes' Action='set' Part='all' />
        <Environment Id='E_TestEnv_2' Name='Psuedo' Value='Random' System='yes' Permanent='yes' Action='set' Part='all' />
      </Component>
    </DirectoryRef>
  </Fragment>
</Wix>
EOF
is( $env_1->as_string, $environment_string, 'Environment->as_string' );