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

use warnings;
use strict;

BEGIN {
	eval { require Filter::Util::Call };
	if($@ ne "") {
		require Test::More;
		Test::More::plan(skip_all => "Filter::Util::Call unavailable");
	}
}

use Devel::Declare ();
use Filter::Util::Call qw(filter_add filter_del);
use Test::More tests => 2;

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
	4	BEGIN {
	5	eval { require Filter::Util::Call };
	6	if($@ ne "") {
	7	require Test::More;
	8	Test::More::plan(skip_all => "Filter::Util::Call unavailable");
	9	}
	10	}
	11
	12	use Devel::Declare ();
	13	use Filter::Util::Call qw(filter_add filter_del);
	14	use Test::More tests => 2;
	15
	16	sub my_quote($) { $_[0] }
	17
	18	my $i = 0;
	19
	20	BEGIN { filter_add(sub { filter_del(); $_ .= "ok \$i++ == 0;"; return 1; }); }
	21	BEGIN { Devel::Declare->setup_for(__PACKAGE__, { my_quote => { const => sub { } } }); }
	22
	23	ok $i++ == 1;
	24
	25	1;