From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ADAMK / Perl-Dist-1.16 / t / 06_inno_script.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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

              
#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
# Skip if not on Windows
use Test::More;
use Test::LongString;
use File::Temp 'tempdir';
BEGIN {
        unless ( $^O eq 'MSWin32' ) {
                plan( skip_all => 'Not on Win32' );
                exit(0);
        };
        plan( tests => 24 );
}
use Perl::Dist::Inno ();
#####################################################################
# Main Tests
my $dir  = tempdir( CLEANUP => 1 );
my $inno = Perl::Dist::Inno::Script->new(
        app_name             => 'Strawberry Perl',
        app_ver_name         => 'Strawberry Perl 5.8.8 Alpha 3',
        app_publisher        => 'Vanilla Perl Project',
        app_publisher_url    => 'http://vanillaperl.org/',
        app_id               => 'strawberryperl',
        default_group_name   => 'Strawberry Perl',
        default_dir_name     => $dir,
        output_dir           => $dir,
        output_base_filename => 'strawberry-perl-5.8.8-alpha-3',
        source_dir           => $dir,
);
isa_ok( $inno, 'Perl::Dist::Inno::Script' );
is( $inno->app_name             => 'Strawberry Perl', '->app_name ok' );
is( $inno->app_ver_name         => 'Strawberry Perl 5.8.8 Alpha 3', '->app_ver_name ok' );
is( $inno->app_publisher        => 'Vanilla Perl Project', '->app_publisher ok' );
is( $inno->app_publisher_url    => 'http://vanillaperl.org/', '->app_publisher_url ok' );
is( $inno->app_id               => 'strawberryperl', '->app_id ok' );
is( $inno->default_group_name   => 'Strawberry Perl', '->default_group_name ok' );
is( $inno->default_dir_name     => $dir, '->default_dir_name ok' );
is( $inno->output_dir           => $dir, '->output_dir ok' );
is( $inno->output_base_filename => 'strawberry-perl-5.8.8-alpha-3', '->output_base_filename ok' );
is( $inno->source_dir           => $dir );
is( scalar($inno->files), 0,    '->files ok'    );
is( scalar($inno->icons), 0,    '->icons ok'    );
is( scalar($inno->registry), 0, '->registry ok' );
is_deeply( [ $inno->files ],    [], '->files ok'    );
is_deeply( [ $inno->icons ],    [], '->icons ok'    );
is_deeply( [ $inno->registry ], [], '->registry ok' );
# Add a file
is( $inno->add_file(
        source             => 'dmake\*',
        dest_dir           => '{app}\dmake',
        recurse_subdirs    => 1,
        create_all_subdirs => 1,
), 1, '->add_file returns true' );
is( scalar($inno->files), 1, '->files returns true' );
isa_ok( ($inno->files)[0], 'Perl::Dist::Inno::File' );
# Add an icon
is( $inno->add_icon(
        name        => '{group}\{cm:UninstallProgram,Strawberry Perl}',
        filename    => '{uninstallexe}',
), 1, '->add_icon returns true' );
is( scalar($inno->icons), 1, '->icons returns true' );
isa_ok( ($inno->icons)[0], 'Perl::Dist::Inno::Icon' );
# Check the output
is_string( $inno->as_string, <<"END_ISS", '->as_string ok' );
; Inno Setup Script for Strawberry Perl
; Generated by Perl::Dist::Inno::Script
[Setup]
; Distribution Identification
AppName=Strawberry Perl
AppVerName=Strawberry Perl 5.8.8 Alpha 3
AppPublisher=Vanilla Perl Project
AppPublisherURL=http://vanillaperl.org/
AppId=strawberryperl
; Start Menu Icons
DefaultGroupName=Strawberry Perl
AllowNoIcons=yes
; Installation Path (This is always hard-coded)
DefaultDirName=$dir
DisableDirPage=yes
; Where the output goes
OutputDir=$dir
OutputBaseFilename=strawberry-perl-5.8.8-alpha-3
UsePreviousAppDir=no
; Source location
SourceDir=$dir
; Win2K or newer required
MinVersion=4.0.950,4.0.1381
; Miscellaneous settings
Compression=lzma
SolidCompression=yes
ChangesEnvironment=yes
; Delete old install
[InstallDelete]
Type: filesandordirs; Name: "$dir"
[Languages]
Name: eng; MessagesFile: compiler:Default.isl
[Files]
Source: "dmake\\*"; DestDir: "{app}\\dmake"; Flags: ignoreversion recursesubdirs createallsubdirs
[Icons]
Name: "{group}\\{cm:UninstallProgram,Strawberry Perl}"; Filename: "{uninstallexe}"
[Registry]
END_ISS