File: filter5.t

package info (click to toggle)
libspiffy-perl 0.21-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 256 kB
  • ctags: 99
  • sloc: perl: 1,067; makefile: 50
file content (23 lines) | stat: -rw-r--r-- 427 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use lib 't', 'lib';
use strict;

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;