[p5sagit/Devel-Declare.git] / t / filter1.t

use warnings;
use strict;

use Test::More;
use Test::Requires 'Filter::Util::Call';

plan tests => 2;

use Devel::Declare ();
use Filter::Util::Call qw(filter_add filter_del);

sub my_quote($) { $_[0] }

my $i = 0;

BEGIN { filter_add(sub { filter_del(); $_ .= "ok \$i++ == 0;"; return 1; }); }
BEGIN { Devel::Declare->setup_for(__PACKAGE__, { my_quote => { const => sub { } } }); }

ok $i++ == 1;

1;
Commit	Line	Data
4e9e26b6	1	use warnings;
	2	use strict;
	3
d5a4de48	4	use Test::More;
	5	use Test::Requires 'Filter::Util::Call';
	6
	7	plan tests => 2;
4e9e26b6	8
	9	use Devel::Declare ();
	10	use Filter::Util::Call qw(filter_add filter_del);
4e9e26b6	11
	12	sub my_quote($) { $_[0] }
	13
	14	my $i = 0;
	15
	16	BEGIN { filter_add(sub { filter_del(); $_ .= "ok \$i++ == 0;"; return 1; }); }
	17	BEGIN { Devel::Declare->setup_for(__PACKAGE__, { my_quote => { const => sub { } } }); }
	18
	19	ok $i++ == 1;
	20
	21	1;