t/filter0.t

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