t/600_todo_tests/005_moose_and_threads.t

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