use strict;
use warnings;
### after: use lib qw(@RT_LIB_PATH@);
use lib qw(/opt/rt4/local/lib /opt/rt4/lib);
package RT::Extension::Announce::Test;
our @ISA;
BEGIN {
local $@;
eval { require RT::Test; 1 } or do {
require Test::More;
Test::More::BAIL_OUT(
"requires 3.8 to run tests. Error:\n$@\n"
."You may need to set PERL5LIB=/path/to/rt/lib"
);
};
push @ISA, 'RT::Test';
}
sub import {
my $class = shift;
my %args = @_;
$args{'requires'} ||= [];
if ( $args{'testing'} ) {
unshift @{ $args{'requires'} }, 'RT::Extension::Announce';
} else {
$args{'testing'} = 'RT::Extension::Announce';
}
$args{'config'} =<<CONFIG;
Set(\@CustomFieldValuesSources, (qw(RT::CustomFieldValues::AnnounceGroups)));
CONFIG
$class->SUPER::import( %args );
$class->export_to_level(1);
require RT::Extension::Announce;
}
1;