git.maemo.org Git - pkg-perl/blob - deb-src/libspiffy-perl/libspiffy-perl-0.30/t/filter5.t

   1 use lib 't', 'lib';
   2 use strict;
   3
   4 use Test::More tests => 1;
   5 use Spiffy -filter_save;
   6 use Filter5;
   7
   8 my $result = $Spiffy::filter_result;
   9 my $expected = do { local $/; <DATA> };
  10 $result =~ s/\r//g;
  11 $expected =~ s/\r//g;
  12 is($result, $expected);
  13
  14 __DATA__
  15 use strict;use warnings;my($xxx,$yyy);$xxx = sub {my $self = shift;
  16     $self->$xxx;
  17     $self->$yyy;
  18 };
  19 $yyy = sub {my $self = shift;
  20     $self->$xxx;
  21     $self->$yyy
  22 };
  23 ;1;