|
Packit |
90fbfc |
use strict;
|
|
Packit |
90fbfc |
use warnings;
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
use Test::More;
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
use CPAN::Changes;
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
my $a = CPAN::Changes->new();
|
|
Packit |
90fbfc |
my $b = CPAN::Changes->new();
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
my $params = { version => '1.0'};
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
$a->add_release( $params );
|
|
Packit |
90fbfc |
$b->add_release( $params );
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
my ( @changes ) = ( 'hello' );
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
$a->release( '1.0' )->add_changes( @changes );
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
is_deeply( $a->release( '1.0' )->changes, { '' => [ 'hello' ] }, 'changes on "A"' );
|
|
Packit |
90fbfc |
is_deeply( $b->release( '1.0' )->changes, { }, 'no changes on "B"' );
|
|
Packit |
90fbfc |
|
|
Packit |
90fbfc |
done_testing;
|