# Test for RT48642 by Olivier Mengué
use Test::More tests => 1;
{
package Template::Declare::TagSet::FooBarBaz;
use base 'Template::Declare::TagSet';
sub get_tag_list {
[qw/foo bar baz/]
}
}
eval "use Template::Declare::Tags 'FooBarBaz'";
my $res = $@;
SKIP: {
skip "T::D::TS::FooBarBaz.pm exists, can't test!" if exists $INC{'Template/Declare/TagSet/FooBarBaz.pm'};
ok(!$res, "use inline TagSet");
diag $res if $res;
}