stas        2003/11/21 23:38:48

  Modified:    ModPerl-Registry/t closure.t perlrun_require.t
                        special_blocks.t
               t/modperl cookie.t cookie2.t sameinterp.t
               t/response/TestAPR finfo.pm
  Log:
  fix calls to skip() in tests to work with older Test.pm, which
  requires a second argument to skip()
  
  Revision  Changes    Path
  1.11      +1 -1      modperl-2.0/ModPerl-Registry/t/closure.t
  
  Index: closure.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/closure.t,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -u -r1.10 -r1.11
  --- closure.t 22 Aug 2003 05:22:55 -0000      1.10
  +++ closure.t 22 Nov 2003 07:38:48 -0000      1.11
  @@ -152,7 +152,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.4       +1 -1      modperl-2.0/ModPerl-Registry/t/perlrun_require.t
  
  Index: perlrun_require.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/perlrun_require.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- perlrun_require.t 22 Aug 2003 05:22:55 -0000      1.3
  +++ perlrun_require.t 22 Nov 2003 07:38:48 -0000      1.4
  @@ -42,7 +42,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.8       +1 -1      modperl-2.0/ModPerl-Registry/t/special_blocks.t
  
  Index: special_blocks.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/special_blocks.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- special_blocks.t  22 Aug 2003 05:22:55 -0000      1.7
  +++ special_blocks.t  22 Nov 2003 07:38:48 -0000      1.8
  @@ -146,7 +146,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.2       +1 -1      modperl-2.0/t/modperl/cookie.t
  
  Index: cookie.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/cookie.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- cookie.t  22 Sep 2003 23:34:45 -0000      1.1
  +++ cookie.t  22 Nov 2003 07:38:48 -0000      1.2
  @@ -75,7 +75,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.2       +1 -1      modperl-2.0/t/modperl/cookie2.t
  
  Index: cookie2.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/cookie2.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- cookie2.t 22 Sep 2003 23:33:18 -0000      1.1
  +++ cookie2.t 22 Nov 2003 07:38:48 -0000      1.2
  @@ -65,7 +65,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.7       +1 -1      modperl-2.0/t/modperl/sameinterp.t
  
  Index: sameinterp.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modperl/sameinterp.t,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -u -r1.6 -r1.7
  --- sameinterp.t      22 Sep 2003 21:45:28 -0000      1.6
  +++ sameinterp.t      22 Nov 2003 07:38:48 -0000      1.7
  @@ -93,7 +93,7 @@
   sub skip_not_same_interp {
       my $skip_cond = shift;
       if ($skip_cond) {
  -        skip "Skip couldn't find the same interpreter";
  +        skip "Skip couldn't find the same interpreter", 0;
       }
       else {
           my($package, $filename, $line) = caller;
  
  
  
  1.4       +2 -2      modperl-2.0/t/response/TestAPR/finfo.pm
  
  Index: finfo.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -u -r1.3 -r1.4
  --- finfo.pm  19 Nov 2003 23:01:37 -0000      1.3
  +++ finfo.pm  22 Nov 2003 07:38:48 -0000      1.4
  @@ -66,7 +66,7 @@
               foreach my $method (qw(device inode nlink user group
                                      size atime mtime ctime)) {
                   if ($skip{$method}) {
  -                    skip "different file semantics";
  +                    skip "different file semantics", 0;
                   }
                   else {
                       ok t_cmp(${$method},
  @@ -87,7 +87,7 @@
                    '$r->finfo->protection() & APR::WWRITE');
   
           if (WIN32) {
  -            skip "different file semantics";
  +            skip "different file semantics", 0;
           }
           else {
               ok t_cmp($protection & S_IXOTH,
  
  
  

Reply via email to