cvs commit: modperl-2.0/t/response/TestAPR uuid.pm

[dougm]

dougm       02/05/21 17:55:40

  Modified:    t/response/TestAPR uuid.pm
  Log:
  apr_generate_random_bytes may block forever on /dev/random
  so disable APR::UUID->new test for the moment
  
  Revision  Changes    Path
  1.3       +5 -1      modperl-2.0/t/response/TestAPR/uuid.pm
  
  Index: uuid.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/uuid.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- uuid.pm   11 Apr 2002 11:08:44 -0000      1.2
  +++ uuid.pm   22 May 2002 00:55:40 -0000      1.3
  @@ -9,12 +9,16 @@
   
   use Apache::Const -compile => 'OK';
   
  +my $dummy_uuid = 'd48889bb-d11d-b211-8567-ec81968c93c6';
  +
   sub handler {
       my $r = shift;
   
       plan $r, tests => 3;
   
  -    my $uuid = APR::UUID->new->format;
  +#XXX: apr_generate_random_bytes may block forever on /dev/random
  +#    my $uuid = APR::UUID->new->format;
  +    my $uuid = $dummy_uuid;
   
       ok $uuid;