use strict;
use Test::More tests => 14;
use Data::Dumper;
use WebService::Backlog::Issue;
{
my $issue = new WebService::Backlog::Issue->new(
{
id => 123,
key => 'BLG-1400',
components => [
{
id => 1001,
name => 'カテゴリ1001',
},
{
id => 1002,
name => 'カテゴリ1002',
},
],
}
);
is( ref( $issue->components ), 'ARRAY' );
is( scalar( @{ $issue->components } ), 2 );
is( $issue->components->[0]->name, 'カテゴリ1001' );
is( $issue->components->[1]->name, 'カテゴリ1002' );
ok( !$issue->milestones );
}
{
my $issue = new WebService::Backlog::Issue->new(
{
id => 123,
key => 'BLG-1400',
components => [
{
id => 1001,
name => 'カテゴリ1001',
},
{
id => 1002,
name => 'カテゴリ1002',
},
],
versions => [
{
id => 10001,
name => 'バージョン10001',
},
{
id => 10002,
name => 'バージョン10002',
},
{
id => 10003,
name => 'バージョン10003',
},
],
}
);
is( ref( $issue->components ), 'ARRAY' );
is( scalar( @{ $issue->components } ), 2 );
is( $issue->components->[0]->name, 'カテゴリ1001' );
is( $issue->components->[1]->name, 'カテゴリ1002' );
is( ref( $issue->versions ), 'ARRAY' );
is( scalar( @{ $issue->versions } ), 3 );
is( $issue->versions->[0]->name, 'バージョン10001' );
is( $issue->versions->[1]->name, 'バージョン10002' );
ok( !$issue->milestones );
}