t/010_basics/019-destruction.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10
  11 our @demolished;
  12 package Foo;
  13 use Mouse;
  14
  15 sub DEMOLISH {
  16     my $self = shift;
  17     push @::demolished, __PACKAGE__;
  18 }
  19
  20 package Foo::Sub;
  21 use Mouse;
  22 extends 'Foo';
  23
  24 sub DEMOLISH {
  25     my $self = shift;
  26     push @::demolished, __PACKAGE__;
  27 }
  28
  29 package Foo::Sub::Sub;
  30 use Mouse;
  31 extends 'Foo::Sub';
  32
  33 sub DEMOLISH {
  34     my $self = shift;
  35     push @::demolished, __PACKAGE__;
  36 }
  37
  38 package main;
  39 {
  40     my $foo = Foo->new;
  41 }
  42 is_deeply(\@demolished, ['Foo'], "Foo demolished properly");
  43 @demolished = ();
  44 {
  45     my $foo_sub = Foo::Sub->new;
  46 }
  47 is_deeply(\@demolished, ['Foo::Sub', 'Foo'], "Foo::Sub demolished properly");
  48 @demolished = ();
  49 {
  50     my $foo_sub_sub = Foo::Sub::Sub->new;
  51 }
  52 is_deeply(\@demolished, ['Foo::Sub::Sub', 'Foo::Sub', 'Foo'],
  53           "Foo::Sub::Sub demolished properly");
  54 @demolished = ();
  55
  56 done_testing;