Blame t/rt90605.t

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;