use strict; use warnings;

use lib (-e 't' ? 't' : 'test'), 'inc';

use Test::More tests => 1;

use Spiffy -filter_save;

use Filter5;

my $result = $Spiffy::filter_result;

my $expected = do { local $/; <DATA> };

$result =~ s/\r//g;

$expected =~ s/\r//g;

is($result, $expected);

__DATA__

use strict;use warnings;my($xxx,$yyy);$xxx = sub {my $self = shift;

    $self->$xxx;

    $self->$yyy;

};

$yyy = sub {my $self = shift;

    $self->$xxx;

    $self->$yyy

};

;1;