be adaptive about deleting the realloc filter

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

diff --git a/t/filter1.t b/t/filter1.t
new file mode 100644 (file)
index 0000000..0240290
--- /dev/null
+++ b/t/filter1.t
@@ -0,0 +1,25 @@
+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;