inline-tagset.t 459 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
# 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;
}