From ecd91561e832c88e486856d7e40d0b940d1bde5c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 7 May 2010 23:24:06 -0500
Subject: copy mx-lazyrequire tests here, but use my implementation

---
 t/100-lazy-require.t | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 103 insertions(+)
 create mode 100644 t/100-lazy-require.t

(limited to 't')

diff --git a/t/100-lazy-require.t b/t/100-lazy-require.t
new file mode 100644
index 0000000..fbe2c81
--- /dev/null
+++ b/t/100-lazy-require.t
@@ -0,0 +1,103 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+
+{
+    package My::MooseX::LazyRequire;
+    use MooseX::Attribute::Shorthand ();
+
+    sub import {
+        my $class = caller;
+        MooseX::Attribute::Shorthand->import(
+            -for_class => $class,
+            lazy_required => {
+                lazy     => 1,
+                required => 1,
+                default  => sub {
+                    my $name = shift;
+                    sub {
+                        Carp::confess "Attribute $name must be provided before calling reader";
+                    }
+                },
+            },
+        );
+    }
+}
+
+{
+    package Foo;
+    use Moose;
+    BEGIN { My::MooseX::LazyRequire->import }
+
+    has bar => (
+        is            => 'ro',
+        lazy_required => 1,
+    );
+
+    has baz => (
+        is      => 'ro',
+        builder => '_build_baz',
+    );
+
+    sub _build_baz { shift->bar + 1 }
+}
+
+{
+    my $foo;
+    lives_ok(sub {
+        $foo = Foo->new(bar => 42);
+    });
+    is($foo->baz, 43);
+}
+
+{
+    my $foo;
+    lives_ok(sub {
+        $foo = Foo->new(baz => 23);
+    });
+    is($foo->baz, 23);
+}
+
+throws_ok(sub {
+    Foo->new;
+}, qr/must be provided/);
+
+{
+    package Bar;
+    use Moose;
+    BEGIN { My::MooseX::LazyRequire->import }
+
+    has foo => (
+        is            => 'rw',
+        lazy_required => 1,
+    );
+
+    has baz => (
+        is      => 'ro',
+        lazy    => 1,
+        builder => '_build_baz',
+    );
+
+    sub _build_baz { shift->foo + 1 }
+}
+
+{
+    my $bar = Bar->new;
+
+    throws_ok(sub {
+        $bar->baz;
+    }, qr/must be provided/);
+
+    $bar->foo(42);
+
+    my $baz;
+    lives_ok(sub {
+        $baz = $bar->baz;
+    });
+
+    is($baz, 43);
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf