t/050_metaclasses/052_new_object_BUILD.t

   1 #!/usr/bin/env 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 use strict;
   6 use warnings;
   7 use Test::More;
   8
   9 my $called;
  10 {
  11     package Foo;
  12     use Mouse;
  13
  14     sub BUILD { $called++ }
  15 }
  16
  17 Foo->new;
  18 is($called, 1, "BUILD called from ->new");
  19 $called = 0;
  20 Foo->meta->new_object;
  21 is($called, 1, "BUILD called from ->meta->new_object");
  22
  23 done_testing;