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