From f51bf4fadf61e71c669a48ee46380661e9ee2a95 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Fri, 10 Apr 2009 02:18:21 -0500
Subject: add tests for BUILD

---
 t/020-BUILD.t | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 t/020-BUILD.t

(limited to 't/020-BUILD.t')

diff --git a/t/020-BUILD.t b/t/020-BUILD.t
new file mode 100644
index 0000000..e2627f8
--- /dev/null
+++ b/t/020-BUILD.t
@@ -0,0 +1,57 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+package Foo;
+
+sub new {
+    my $class = shift;
+    bless { foo => 'FOO' }, $class;
+}
+
+package Foo::Moose;
+use Moose;
+use MooseX::NonMoose;
+extends_nonmoose 'Foo';
+
+has class => (
+    is => 'rw',
+);
+
+has accum => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => '',
+);
+
+sub BUILD {
+    my $self = shift;
+    $self->class(ref $self);
+    $self->accum($self->accum . 'a');
+}
+
+package Foo::Moose::Sub;
+use Moose;
+use MooseX::NonMoose;
+extends_nonmoose 'Foo::Moose';
+
+has bar => (
+    is => 'rw',
+);
+
+sub BUILD {
+    my $self = shift;
+    $self->bar('BAR');
+    $self->accum($self->accum . 'b');
+}
+
+package main;
+my $foo_moose = Foo::Moose->new;
+is $foo_moose->class, 'Foo::Moose', 'BUILD method called properly';
+is $foo_moose->accum, 'a', 'BUILD method called properly';
+
+my $foo_moose_sub = Foo::Moose::Sub->new;
+is $foo_moose_sub->class, 'Foo::Moose::Sub', 'parent BUILD method called';
+is $foo_moose_sub->bar, 'BAR', 'child BUILD method called';
+is $foo_moose_sub->accum, 'ab', 'BUILD methods called in the correct order';
-- 
cgit v1.2.3-54-g00ecf