51.live_bug.t

#!/usr/bin/perl

use Test::More;

BEGIN {

    plan skip_all => 'Must set FB_TEST_USERID & _PASSWD for live tests.'
        unless exists $ENV{FB_TEST_USERID} && exists $ENV{FB_TEST_PASSWD};

    plan tests => 11;
}

use Fedora::Bugzilla;

my $bz = Fedora::Bugzilla->new(
    userid => $ENV{FB_TEST_USERID},
    passwd => $ENV{FB_TEST_PASSWD},
);

is  $bz->login > 0,  1, 'Login worked';


my $BUG = '465913';

#use Smart::Comments;

# play with perl-Moose for testing
my $bug = $bz->bug(205321);
#my $bug = $bz->bug($BUG);

isa_ok $bug, 'Fedora::Bugzilla::Bug';

is $bug->alias,   'perl-Moose', 'alias is correct';
is $bug->summary, 
    'Review Request: perl-Moose - Complete modern object system for Perl 5',
    'summary is correct'
    ;

# note: look at creation time, as that's not going to change
my $dt = $bug->creation_time;

isa_ok $dt, 'DateTime';

is "$dt", '20060905T20:08:00', 'creation time is correct';


is  $bz->logout > 1, 1, 'Logged out ok';