BUILDALL for generated constructor

[gitmo/Role-Tiny.git] / t / buildall.t

diff --git a/t/buildall.t b/t/buildall.t
index f27fbc1..7e4b953 100644 (file)
--- a/t/buildall.t
+++ b/t/buildall.t
@@ -10,9 +10,24 @@ my @ran;
   package Quux; use Class::Tiny; extends 'Baz'; sub BUILD { push @ran, 'Quux' }
 }
 
+{
+  package Fleem;
+  use Class::Tiny;
+  extends 'Quux';
+  has 'foo' => (is => 'ro');
+  sub BUILD { push @ran, $_[0]->foo, $_[1]->{bar} }
+}
+
 my $o = Quux->new;
 
 is(ref($o), 'Quux', 'object returned');
 is_deeply(\@ran, [ qw(Foo Bar Quux) ], 'BUILDs ran in order');
 
+@ran = ();
+
+$o = Fleem->new(foo => 'Fleem1', bar => 'Fleem2');
+
+is(ref($o), 'Fleem', 'object with inline constructor returned');
+is_deeply(\@ran, [ qw(Foo Bar Quux Fleem1 Fleem2) ], 'BUILDs ran in order');
+
 done_testing;