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

ADAMK / Perl-Dist-1.16 / t / 08_inno_distribution.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

              
#!/usr/bin/perl
use strict;
BEGIN {
        $|  = 1;
        $^W = 1;
}
use Test::More tests => 8;
use File::Spec::Functions ':ALL';
use Perl::Dist::Asset::Distribution;
#####################################################################
# Main Tests
# Traditional distribution
SCOPE: {
        my $object = Perl::Dist::Asset::Distribution->new(
                name => 'RKOBES/PPM-0.01_01.tar.gz',
        );
        isa_ok( $object, 'Perl::Dist::Asset::Distribution' );
        is( $object->name, 'RKOBES/PPM-0.01_01.tar.gz', '->name ok' );
        is( $object->url,  'RKOBES/PPM-0.01_01.tar.gz', '->url ok' );
        is(
                $object->abs_uri(URI->new('http://cpan.org/')),
                'http://cpan.org/authors/id/R/RK/RKOBES/PPM-0.01_01.tar.gz',
                '->abs_uri ok',
        );
}
# Absolute distribution
SCOPE: {
        my $object = Perl::Dist::Asset::Distribution->new(
                name => 'RKOBES/PPM-0.01_01.tar.gz',
                url  => 'http://strawberryperl.com/package/PPM-0.01_01.tar.gz',
        );
        isa_ok( $object, 'Perl::Dist::Asset::Distribution' );
        is( $object->name, 'RKOBES/PPM-0.01_01.tar.gz', '->name ok' );
        is( $object->url,  'http://strawberryperl.com/package/PPM-0.01_01.tar.gz', '->url ok' );
        is( $object->abs_uri(URI->new('http://cpan.org/')), $object->url, '->abs_uri ok' );
}