make the 'reset' delegation for Counter respect builders

[gitmo/Moose.git] / t / native_traits / trait_counter.t

diff --git a/t/native_traits/trait_counter.t b/t/native_traits/trait_counter.t
index ad2e70d..a314755 100644 (file)
--- a/t/native_traits/trait_counter.t
+++ b/t/native_traits/trait_counter.t
@@ -132,4 +132,41 @@ sub run_tests {
     $class;
 }
 
+{
+    package WithBuilder;
+    use Moose;
+
+    has nonlazy => (
+        traits  => ['Counter'],
+        is      => 'rw',
+        isa     => 'Int',
+        builder => '_builder',
+        handles => {
+            reset_nonlazy => 'reset',
+        },
+    );
+
+    has lazy => (
+        traits  => ['Counter'],
+        is      => 'rw',
+        isa     => 'Int',
+        lazy    => 1,
+        builder => '_builder',
+        handles => {
+            reset_lazy => 'reset',
+        },
+    );
+
+    sub _builder { 1 }
+}
+
+for my $attr ('lazy', 'nonlazy') {
+    my $obj = WithBuilder->new;
+    is($obj->$attr, 1, "built properly");
+    $obj->$attr(0);
+    is($obj->$attr, 0, "can be manually set");
+    $obj->${\"reset_$attr"};
+    is($obj->$attr, 1, "reset resets it to its default value");
+}
+
 done_testing;