added tests for attribute shortcuts

[gitmo/Moo.git] / t / accessor-shortcuts.t

diff --git a/t/accessor-shortcuts.t b/t/accessor-shortcuts.t
new file mode 100644 (file)
index 0000000..ef6e7fc
--- /dev/null
+++ b/t/accessor-shortcuts.t
@@ -0,0 +1,49 @@
+use strictures 1;
+use Test::More;
+use Test::Fatal;
+
+my $test         = "test";
+my $lazy_default = "lazy_default";
+
+{
+  package Foo;
+
+  use Moo;
+
+  has rwp  => (is => 'rwp');
+  has lazy => (is => 'lazy');
+  sub _build_lazy    { $test }
+  has lazy_default => (is => 'lazy', default => sub { $lazy_default });
+}
+
+my $foo = Foo->new;
+
+# rwp
+{
+  is $foo->rwp, undef, "rwp value starts out undefined";
+  like exception { $foo->rwp($test) }, qr/Usage: Foo::rwp\(self\)/, "rwp is read_only";
+  is exception { $foo->_set_rwp($test) }, undef, "rwp can be set by writer";
+  is $foo->rwp, $test, "rwp value was set by writer";
+}
+
+# lazy
+{
+  is $foo->{lazy}, undef, "lazy value storage is undefined";
+  is $foo->lazy, $test, "lazy value returns test value when called";
+  like exception { $foo->lazy($test) }, qr/Usage: Foo::lazy\(self\)/, "lazy is read_only";
+
+  my $foo_with_args = Foo->new(lazy => $test);
+  is $foo_with_args->{lazy}, undef, "lazy ignores constructor value";
+}
+
+# lazy + default
+{
+  is $foo->{lazy_default}, undef, "lazy_default value storage is undefined";
+  is $foo->lazy_default, $lazy_default, "lazy_default value returns test value when called";
+  like exception { $foo->lazy_default($test) }, qr/Usage: Foo::lazy\(self\)/, "lazy_default is read_only";
+
+  my $foo_with_args = Foo->new(lazy_default => $test);
+  is $foo_with_args->{lazy_default}, undef, "lazy_default ignores constructor value";
+}
+
+done_testing;