From: gfx <gfuji@cpan.org>
Date: Tue, 17 Nov 2009 02:24:09 +0000 (+0900)
Subject: Add threading tests
X-Git-Tag: 0.40_07~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=f259aaad8fd53f69a43ac932eb136cd77720c596

Add threading tests
---

diff --git a/t/001_mouse/060-threads.t b/t/001_mouse/060-threads.t
new file mode 100644
index 0000000..32eb2bc
--- /dev/null
+++ b/t/001_mouse/060-threads.t
@@ -0,0 +1,39 @@
+#!perl
+use strict;
+use warnings;
+use constant HAS_THREADS => eval{ require threads };
+
+use Test::More HAS_THREADS ? (tests => 6) : (skip_all => "This is a test for threads ($@)");
+
+{
+    package MyClass;
+    use Mouse;
+
+    has foo => (
+        is => 'rw',
+        isa => 'Int',
+    );
+}
+
+my $o = MyClass->new(foo => 42);
+threads->create(sub{
+    my $x = MyClass->new(foo => 1);
+    is $x->foo, 1;
+
+    $x->foo(2);
+
+    is $x->foo, 2;
+
+    MyClass->meta->make_immutable();
+
+    $x = MyClass->new(foo => 10);
+    is $x->foo, 10;
+
+    $x->foo(20);
+
+    is $x->foo, 20;
+})->join();
+
+is $o->foo, 42;
+ok !$o->meta->is_immutable;
+