t/on_destroy.t

   1 #!perl -w
   2 use strict;
   3 use v5.10.1;
   4 use Test::More;
   5 require_ok 'PublicInbox::OnDestroy';
   6 my @x;
   7 my $od = PublicInbox::OnDestroy->new(sub { push @x, 'hi' });
   8 is_deeply(\@x, [], 'not called, yet');
   9 undef $od;
  10 is_deeply(\@x, [ 'hi' ], 'no args works');
  11 $od = PublicInbox::OnDestroy->new(sub { $x[0] = $_[0] }, 'bye');
  12 is_deeply(\@x, [ 'hi' ], 'nothing changed while alive');
  13 undef $od;
  14 is_deeply(\@x, [ 'bye' ], 'arg passed');
  15 $od = PublicInbox::OnDestroy->new(sub { @x = @_ }, qw(x y));
  16 undef $od;
  17 is_deeply(\@x, [ 'x', 'y' ], '2 args passed');
  18
  19 if (my $nr = $ENV{TEST_LEAK_NR}) {
  20         for (0..$nr) {
  21                 $od = PublicInbox::OnDestroy->new(sub { @x = @_ }, qw(x y));
  22         }
  23 }
  24
  25 done_testing;