t/filter1.t

   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;