From: Shawn M Moore <sartak@gmail.com>
Date: Fri, 27 Jun 2008 02:45:05 +0000 (+0000)
Subject: Add some more tests for lazy_build
X-Git-Tag: 0.19~276
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbf02164f96991f659df05853d0f12d86a8aabdb;hp=3652e8c0fbe7bb5140dbd4b9194a351a145df1a8;p=gitmo%2FMouse.git

Add some more tests for lazy_build
---

diff --git a/t/023-builder.t b/t/023-builder.t
index a72f900..82aed53 100644
--- a/t/023-builder.t
+++ b/t/023-builder.t
@@ -1,7 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 34;
+use Test::More tests => 37;
+use Test::Exception;
 
 my $builder_called = 0;
 my $lazy_builder_called = 0;
@@ -95,3 +96,37 @@ is($lazy_builder_called, 0, "lazy builder not called on clear");
 is($object4->age, 20, "lazy builder value");
 ok($object4->has_age, "predicate: have value after clear and get");
 is($lazy_builder_called, 1, "lazy builder called on get after clear");
+
+do {
+    package Class::Error;
+    use Mouse;
+
+    ::throws_ok {
+        has error => (
+            lazy_build => 1,
+            default => 1,
+        );
+    } qr/You can not use lazy_build and default for the same attribute error/;
+};
+
+my @calls;
+do {
+    package Class::CustomBuilder;
+    use Mouse;
+
+    has custom => (
+        is => 'ro',
+        lazy_build => 1,
+        builder => 'build_my_customs',
+    );
+
+    sub build_my_customs {
+        push @calls, 'build_my_customs';
+        return 'yo';
+    }
+};
+
+
+my $cb = Class::CustomBuilder->new;
+is($cb->custom, 'yo');
+is_deeply(\@calls, ['build_my_customs']);