From 565afc7a56c520e8bf20dd8415d72481e861ed31 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 2 Mar 2011 22:28:34 -0600
Subject: more useful handling of attributes with no services defined

---
 t/01-basic.t      |  4 ++--
 t/35-no-service.t | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 74 insertions(+), 2 deletions(-)
 create mode 100644 t/35-no-service.t

(limited to 't')

diff --git a/t/01-basic.t b/t/01-basic.t
index e978101..311583d 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -51,9 +51,9 @@ $i = 0;
     my $foo = Foo->new;
     isa_ok($foo, 'Bread::Board::Container');
     ok($foo->has_service($_), "has service $_")
-        for qw(bar baz quux);
+        for qw(foo bar baz quux);
     ok(!$foo->has_service($_), "doesn't have service $_")
-        for qw(foo baz2);
+        for qw(baz2);
     isa_ok($foo->get_service('bar'), 'Bread::Board::Declare::Literal');
     isa_ok($foo->get_service('baz'), 'Bread::Board::Declare::ConstructorInjection');
     isa_ok($foo->get_service('quux'), 'Bread::Board::Declare::BlockInjection');
diff --git a/t/35-no-service.t b/t/35-no-service.t
new file mode 100644
index 0000000..c6a9226
--- /dev/null
+++ b/t/35-no-service.t
@@ -0,0 +1,72 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Fatal;
+
+{
+    package Bar;
+    use Moose;
+}
+
+{
+    package Foo;
+    use Moose;
+    use Bread::Board::Declare;
+
+    has foo => (
+        is  => 'ro',
+        isa => 'Str',
+    );
+
+    has bar => (
+        is      => 'ro',
+        isa     => 'Bar',
+        service => 0,
+    );
+
+    has baz => (
+        is           => 'ro',
+        isa          => 'Str',
+        block        => sub { shift->param('foo') },
+        dependencies => ['foo'],
+    );
+
+    has quux => (
+        is           => 'ro',
+        isa          => 'Bar',
+        block        => sub { shift->param('bar') },
+        dependencies => ['bar'],
+    );
+}
+
+{
+    my $foo = Foo->new;
+    ok($foo->has_service($_), "has service $_") for qw(foo baz);
+    ok(!$foo->has_service($_), "doesn't have service $_") for qw(bar);
+}
+
+{
+    my $foo = Foo->new;
+    like(
+        exception { $foo->baz },
+        qr/^Attribute foo did not specify a service\. It must be given a value through the constructor or writer method before it can be resolved\./,
+        "got the right error when foo isn't set"
+    );
+}
+
+{
+    my $foo = Foo->new(foo => 'bar');
+    is($foo->baz, 'bar', "didn't get an error when foo is set");
+}
+
+{
+    my $foo = Foo->new;
+    like(
+        exception { $foo->quux },
+        qr/^Could not find container or service for bar in Foo/,
+        "can't depend on attrs with no service"
+    );
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf