From: Chip <chip@pobox.com>
Date: Sat, 8 Jan 2011 21:08:28 +0000 (-0800)
Subject: add test of cross-object augmentation
X-Git-Tag: 1.9903~32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8320d29274186e2869b0add98ec6e5ee1047cd15;p=gitmo%2FMoose.git

add test of cross-object augmentation
---

diff --git a/t/010_basics/004_inner_and_augment.t b/t/010_basics/004_inner_and_augment.t
index cbe96f5..d5281d3 100644
--- a/t/010_basics/004_inner_and_augment.t
+++ b/t/010_basics/004_inner_and_augment.t
@@ -62,6 +62,39 @@ is($foo->foo(), 'Foo::foo()', '... got the right value from &foo');
 is($foo->bar(), 'Foo::bar()', '... got the right value from &bar');
 is($foo->baz(), 'Foo::baz()', '... got the right value from &baz');
 
+# test saved state when crossing objects
+
+{
+    package X;
+    use Moose;
+    has name => (is => 'rw');
+    sub run {
+        "$_[0]->{name}.X", inner()
+    }
+
+    package Y;
+    use Moose;
+    extends 'X';
+    augment 'run' => sub {
+        "$_[0]->{name}.Y", ($_[1] ? $_[1]->() : ()), inner();
+    };
+
+    package Z;
+    use Moose;
+    extends 'Y';
+    augment 'run' => sub {
+        "$_[0]->{name}.Z"
+    }
+}
+
+is('a.X a.Y b.X b.Y b.Z a.Z',
+   do {
+       my $a = Z->new(name => 'a');
+       my $b = Z->new(name => 'b');
+       join(' ', $a->run(sub { $b->run }))
+   },
+   'State is saved when cross-calling augmented methods on different objects');
+
 # some error cases
 
 {