view release on metacpan or  search on metacpan

t/06.xml_bits.t  view on Meta::CPAN

isa_ok $bug => 'Fedora::Bugzilla::Bug';

=head2 Flags

Try to pull and check some flags.

=cut

is $bug->flag_count                =>   2, 'flags found';
is $bug->get_flag('fedora-review') => '+', 'flag setting found';
is $bug->has_flag('fedora-cvs')    =>   1, 'found flag correctly';

=head2 Comments

Check out some comments bits.

=cut

is $bug->comment_count > 8 => 1, 'found at least 9 comments';

my $c = $bug->get_comment(7);

is $c->title => 'Bug #461388 Comment #8', 'titled correctly';
is "$c"      => 'cvs done', 'comment stringified correctly';
is $c->text  => 'cvs done', 'comment fetched correctly';
is $c->who   => '"Huzaifa S. Sidhpurwala" <huzaifas@redhat.com>', 'who ok';

=head2 CC List

Try to see who is on CC.

=cut

my @list = $bug->cc_list;

is @list >= 2 => 1, 'Found at least 2 ppl on CC';

TODO: {
    local $TODO = 'known not working ATM';
    
    #is $bug->has_email_on_cc(sub { $_ eq 'fedora-package-review@redhat.com'})
    #    => 1, 'f-p-r@rh.com found in cc list';
}

=head2 Depends and Blocks

Always good to test.  But let's use perl-Moose as well; it's more interesting 
in these regards.

=cut

my $moose = $bz->bug('perl-Moose');
my $mouse = $bug;
my $curl  = $bz->bug('perl-WWW-Curl');

isa_ok $moose => 'Fedora::Bugzilla::Bug';
isa_ok $curl  => 'Fedora::Bugzilla::Bug';

is $moose->blocks_anything     => 1, 'moose blocks';
is $moose->num_blocked         => 1, 'blocked count correct';
is $moose->blocks_bug(163779)  => 1, 'correct bug blocked';
is $moose->blocks_bug(123456)  => 0, 'no block 123456';
is $moose->depends_on_anything => 1, 'finds deps';
is $moose->num_deps            => 5, 'deps count correct';

is $mouse->blocks_anything     => 1, q{mouse does block 1 bug, hmm};
is $mouse->blocks_bug(123456)  => 0, 'no block 123456';
is $mouse->depends_on_anything => 1, 'finds deps';
is $mouse->num_deps            => 1, 'deps count correct';

# ok, this one doesn't actually either block or depend on anything
is $curl->blocks_anything     => 0, 'curl no blocks';
is $curl->blocks_bug(123456)  => 0, 'curl no block 123456';
is $curl->depends_on_anything => 0, 'curl no deps';
is $curl->num_deps            => 0, 'curl deps count correct';


__END__

=head1 CONFIGURATION AND ENVIRONMENT

The env. variables FB_TEST_USERID and FB_TEST_PASSWD must be set.

=head1 AUTHOR

Chris Weyl  <cweyl@alumni.drew.edu>


=head1 LICENSE AND COPYRIGHT

Copyright (c) 2009 Chris Weyl <cweyl@alumni.drew.edu>

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the 

    Free Software Foundation, Inc.
    59 Temple Place, Suite 330
    Boston, MA  02111-1307  USA

=cut