This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the to-do mark from test 4 in threads-dirh.t
authorFather Chrysostomos <sprout@cpan.org>
Tue, 26 Oct 2010 00:56:48 +0000 (17:56 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Oct 2010 00:56:48 +0000 (17:56 -0700)
t/op/threads-dirh.t

index d207bc4..62e5ef7 100644 (file)
@@ -92,10 +92,13 @@ SKIP: {
 
  seekdir $toberead, $start_pos;
  readdir $toberead for 1 .. @first_2+@from_thread;
- is
-   async { readdir $toberead // 'undef' } ->join, 'undef',
-  'cloned dir iterator that points to the end of the directory'
- ;
+ {
+  local $::TODO; # This always passes when dir handles are not cloned.
+  is
+    async { readdir $toberead // 'undef' } ->join, 'undef',
+   'cloned dir iterator that points to the end of the directory'
+  ;
+ }
 
  # Make sure the cloning code can handle file names longer than 255 chars
  SKIP: {