t/600_todo_tests/005_moose_and_threads.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 use Test::Exception;
  11
  12
  13 =pod
  14
  15 See this for some details:
  16
  17 http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=476579
  18
  19 Here is the basic test case, it segfaults, so I am going
  20 to leave it commented out. Basically it seems that there
  21 is some bad interaction between the ??{} construct that
  22 is used in the "parser" for type definitions and threading
  23 so probably the fix would involve removing the ??{} usage
  24 for something else.
  25
  26 use threads;
  27
  28 {
  29     package Foo;
  30     use Mouse;
  31     has "bar" => (is => 'rw', isa => "Str | Num");
  32 }
  33
  34 my $thr = threads->create(sub {});
  35 $thr->join();
  36
  37 =cut
  38
  39 {
  40     local $TODO = 'This is just a stub for the test, see the POD';
  41     fail('Mouse type constraints and threads dont get along');
  42 }
  43
  44 done_testing;