#!/usr/bin/env perl -w
use strict;
use warnings;
use Test::More qw( no_plan );
use Text::Template::Simple;
use constant EXPECT_NUM => 4;
ok( my $t = Text::Template::Simple->new(), 'Got the object' );
ok( my $got = $t->compile(<<'THIS'), 'Compile' );
<% for (1..4) {%>
   <%|- FILTER: foo;TEST-%>
<% } %>
THIS
my $expect = "!!!TEST!!!\n" x EXPECT_NUM;
is( $got, "$expect\n", 'Filtered block with loop around it' );
package Text::Template::Simple::Dummy;
use strict;
sub filter_foo {
    my $self = shift;
    my $oref = shift;
    ${$oref} = sprintf "!!!%s!!!\n", ${$oref};
    return;
}