use strict;
use warnings;

use Test::More tests => 13;

use HTML::Widget;

my $w = HTML::Widget->new;

$w->filter( 'HTMLEscape', 'foo' );
$w->filter( 'LowerCase',  'bar' );
$w->filter( 'LowerCase',  'baz' );
$w->filter( 'Whitespace', 'baz' );

{
    my @filters = $w->get_filters;

    is( scalar(@filters), 4, 'correct number of filters' );

    is_deeply( $filters[0]->names, ['foo'], 'correct filter names' );
    is_deeply( $filters[1]->names, ['bar'], 'correct filter names' );
    is_deeply( $filters[2]->names, ['baz'], 'correct filter names' );
    is_deeply( $filters[3]->names, ['baz'], 'correct filter names' );
}

{
    my @filters = $w->get_filters( type => 'Whitespace' );

    is( scalar(@filters), 1, 'correct number of filters' );

    is_deeply( $filters[0]->names, ['baz'], 'correct filter names' );

    isa_ok(
        $filters[0],
        'HTML::Widget::Filter::Whitespace',
        'correct filter type'
    );
}

{
    my @filters = $w->get_filters( type => 'LowerCase' );

    is( scalar(@filters), 2, 'correct number of filters' );

    is_deeply( $filters[0]->names, ['bar'], 'correct filter names' );

    is_deeply( $filters[1]->names, ['baz'], 'correct filter names' );

    isa_ok(
        $filters[0],
        'HTML::Widget::Filter::LowerCase',
        'correct filter type'
    );

    isa_ok(
        $filters[1],
        'HTML::Widget::Filter::LowerCase',
        'correct filter type'
    );
}