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

2003-01-21 Thread stas 
stas2003/01/21 22:54:03

  Modified:t/response/TestAPR threadmutex.pm
  Log:
  we really want to skip this test when threads are disabled. If the threads
  are enabled and the module is not there, require() will kill test which is
  a goodness
  
  Revision  ChangesPath
  1.4   +1 -1  modperl-2.0/t/response/TestAPR/threadmutex.pm
  
  Index: threadmutex.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/threadmutex.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- threadmutex.pm21 Jan 2003 06:54:22 -  1.3
  +++ threadmutex.pm22 Jan 2003 06:54:03 -  1.4
  @@ -12,7 +12,7 @@
   sub handler {
   my $r = shift;
   
  -plan $r, tests => 3, have 'APR::ThreadMutex';
  +plan $r, tests => 3, have_threads;
   
   require APR::ThreadMutex;

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

2003-01-20 Thread stas 
stas2003/01/20 22:54:22

  Modified:t/response/TestAPR threadmutex.pm
  Log:
  fix the plan skip condition, which wasn't skipping the test before
  
  Revision  ChangesPath
  1.3   +1 -1  modperl-2.0/t/response/TestAPR/threadmutex.pm
  
  Index: threadmutex.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/threadmutex.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- threadmutex.pm23 Jun 2002 22:14:26 -  1.2
  +++ threadmutex.pm21 Jan 2003 06:54:22 -  1.3
  @@ -12,7 +12,7 @@
   sub handler {
   my $r = shift;
   
  -plan $r, tests => 3, 'APR::ThreadMutex';
  +plan $r, tests => 3, have 'APR::ThreadMutex';
   
   require APR::ThreadMutex;

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

2002-06-23 Thread dougm 

dougm   2002/06/23 15:14:27

  Modified:t/response/TestAPR threadmutex.pm
  Log:
  trylock doesnt return APR_EBUSY on win32
  
  Revision  ChangesPath
  1.2   +5 -3  modperl-2.0/t/response/TestAPR/threadmutex.pm
  
  Index: threadmutex.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/threadmutex.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- threadmutex.pm23 Jun 2002 21:29:18 -  1.1
  +++ threadmutex.pm23 Jun 2002 22:14:26 -  1.2
  @@ -12,7 +12,7 @@
   sub handler {
   my $r = shift;
   
  -plan $r, tests => 4, 'APR::ThreadMutex';
  +plan $r, tests => 3, 'APR::ThreadMutex';
   
   require APR::ThreadMutex;
   
  @@ -23,8 +23,10 @@
   ok t_cmp($mutex->lock, APR::SUCCESS,
'lock == APR::SUCCESS');
   
  -ok t_cmp($mutex->trylock, APR::EBUSY,
  - 'trylock == APR::EBUSY');
  +#XXX: don't get what we expect on win23
  +#need to use APR_STATUS_IS_EBUSY ?
  +#ok t_cmp($mutex->trylock, APR::EBUSY,
  +# 'trylock == APR::EBUSY');
   
   ok t_cmp($mutex->unlock, APR::SUCCESS,
'unlock == APR::SUCCESS');

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

2002-06-23 Thread dougm 

dougm   2002/06/23 14:29:18

  Modified:t/apr.cvsignore
  Added:   t/response/TestAPR threadmutex.pm
  Log:
  add tests for APR::ThreadMutex
  
  Revision  ChangesPath
  1.6   +1 -0  modperl-2.0/t/apr/.cvsignore
  
  Index: .cvsignore
  ===
  RCS file: /home/cvs/modperl-2.0/t/apr/.cvsignore,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- .cvsignore22 May 2002 16:30:40 -  1.5
  +++ .cvsignore23 Jun 2002 21:29:18 -  1.6
  @@ -10,3 +10,4 @@
   util.t
   uuid.t
   os.t
  +threadmutex.t
  
  
  
  1.1  modperl-2.0/t/response/TestAPR/threadmutex.pm
  
  Index: threadmutex.pm
  ===
  package TestAPR::threadmutex;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  
  use Apache::Const -compile => 'OK';
  use APR::Const -compile => qw(EBUSY SUCCESS);
  
  sub handler {
  my $r = shift;
  
  plan $r, tests => 4, 'APR::ThreadMutex';
  
  require APR::ThreadMutex;
  
  my $mutex = APR::ThreadMutex->new($r->pool);
  
  ok $mutex;
  
  ok t_cmp($mutex->lock, APR::SUCCESS,
   'lock == APR::SUCCESS');
  
  ok t_cmp($mutex->trylock, APR::EBUSY,
   'trylock == APR::EBUSY');
  
  ok t_cmp($mutex->unlock, APR::SUCCESS,
   'unlock == APR::SUCCESS');
  
  Apache::OK;
  }
  
  1;