test for TT::Handle

1 files changed, 56 insertions, 0 deletions

diff --git a/t/lib/Test/Addition.pm b/t/lib/Test/Addition.pm
new file mode 100644
index 0000000..888bb78
--- /dev/null
+++ b/t/lib/Test/Addition.pm
@@ -0,0 +1,56 @@
+use 5.008003;
+use MooseX::Declare;
+
+class Test::Addition extends Thread::Task {
+    use MooseX::Types::Moose qw(Int);
+
+    has prepare_cnt => (
+        traits => ['Counter'],
+        isa => Int,
+        is => 'ro',
+        default => 0,
+        init_arg => undef,
+        handles => {
+            prepare => 'inc',
+        },
+    );
+
+    has finish_cnt => (
+        traits => ['Counter'],
+        isa => Int,
+        is => 'ro',
+        default => 0,
+        init_arg => undef,
+        handles => {
+            finish => 'inc',
+        },
+    );
+
+    has run_cnt => (
+        traits => ['Counter'],
+        isa => Int,
+        is => 'ro',
+        default => 0,
+        init_arg => undef,
+        handles => {
+            mark_run => 'inc',
+        },
+    );
+
+    has 'x' => (isa=>Int,is=>'ro',required=>1);
+    has 'y' => (isa=>Int,is=>'ro',required=>1);
+    has 'z' => (isa=>Int,is=>'rw',required=>0);
+
+    method run() {
+        $self->mark_run;
+        $self->z($self->x + $self->y);
+        return;
+    }
+
+    before from_string(ClassName $class: Str $serialization) {
+        warn "$class->from_string\n";
+    }
+
+}
+
+1;