Skip to content

Commit

Permalink
Email::Abstract, Test::Email, and XML::Simple are all developer depen…
Browse files Browse the repository at this point in the history
…dencies
  • Loading branch information
alexmv committed Jun 12, 2014
1 parent a908c1d commit 7bf28b9
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 22 deletions.
5 changes: 0 additions & 5 deletions t/approval/admincc.t
Original file line number Diff line number Diff line change
Expand Up @@ -2,11 +2,6 @@
use strict;
use warnings;
use Test::More;
BEGIN {
eval { require Email::Abstract; require Test::Email; 1 }
or plan skip_all => 'require Email::Abstract and Test::Email';
}


use RT;
use RT::Test tests => "no_declare";
Expand Down
4 changes: 0 additions & 4 deletions t/approval/basic.t
Original file line number Diff line number Diff line change
@@ -1,10 +1,6 @@
use strict;
use warnings;
use RT::Test tests => undef;
BEGIN {
plan skip_all => 'Email::Abstract and Test::Email required.'
unless eval { require Email::Abstract; require Test::Email; 1 };
}

use RT::Test::Email;

Expand Down
6 changes: 1 addition & 5 deletions t/mail/html-outgoing.t
Original file line number Diff line number Diff line change
@@ -1,11 +1,6 @@
use strict;
use warnings;
use RT::Test tests => undef;
BEGIN {
plan skip_all => 'Email::Abstract and Test::Email required.'
unless eval { require Email::Abstract; require Test::Email; 1 };
plan tests => 22;
}

use RT::Test::Email;
use Test::Warn;
Expand Down Expand Up @@ -175,6 +170,7 @@ mail_ok {
'Content-Type' => qr{multipart},
};

done_testing;

sub parts_regex {
my ($text, $html) = @_;
Expand Down
13 changes: 5 additions & 8 deletions t/web/search_rss.t
Original file line number Diff line number Diff line change
Expand Up @@ -39,14 +39,11 @@ my $rss_content = $agent->content;
$agent->get_ok($rdf_path);
is($agent->content, $rss_content, 'old Results.rdf still works');

SKIP: {
eval { require XML::Simple; };
skip 'no XML::Simple found', 6 if $@;
my $rss = XML::Simple::XMLin( $rss_content );
is( scalar @{ $rss->{item} }, 5, 'item number' );
for ( 1 .. 5 ) {
is( $rss->{item}[$_-1]{title}, 'Ticket ' . $_, 'title' . $_ );
}
use XML::Simple;
my $rss = XML::Simple::XMLin( $rss_content );
is( scalar @{ $rss->{item} }, 5, 'item number' );
for ( 1 .. 5 ) {
is( $rss->{item}[$_-1]{title}, 'Ticket ' . $_, 'title' . $_ );
}

# not login at all
Expand Down

0 comments on commit 7bf28b9

Please sign in to comment.