perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR base64.pm
Date Thu, 15 Jul 2004 15:16:50 GMT
randyk      2004/07/15 08:16:50

  Modified:    t/response/TestAPR base64.pm
  Added:       t/apr-ext base64.t
               t/lib/TestAPRlib base64.pm
  Log:
  Reviewed by:	stas
  move common base64 tests into t/lib/TestAPRlib/, and
  call them from both t/apr/ and t/apr-ext/.
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/apr-ext/base64.t
  
  Index: base64.t
  ===================================================================
  use strict;
  use warnings FATAL => 'all';
  use Apache::Test;
  
  use TestAPRlib::base64;
  
  plan tests => TestAPRlib::base64::num_of_tests();
  
  TestAPRlib::base64::test();
  
  
  
  1.1                  modperl-2.0/t/lib/TestAPRlib/base64.pm
  
  Index: base64.pm
  ===================================================================
  package TestAPRlib::base64;
  
  # testing APR::Base64 API
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  
  use APR::Base64;
  
  sub num_of_tests {
      return 3;
  }
  
  sub test {
  
      my $str = '12345qwert!@#$%';
      my $encoded = APR::Base64::encode($str);
  
      t_debug("encoded string: $encoded");
      ok $encoded;
  
      ok t_cmp(APR::Base64::encode_len(length $str),
               length $encoded,
               "encoded length");
  
      ok t_cmp(APR::Base64::decode($encoded), $str, "decode");
  
  }
  
  1;
  
  
  
  1.5       +5 -16     modperl-2.0/t/response/TestAPR/base64.pm
  
  Index: base64.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/base64.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- base64.pm	8 Jul 2004 06:06:33 -0000	1.4
  +++ base64.pm	15 Jul 2004 15:16:50 -0000	1.5
  @@ -4,28 +4,17 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  -use Apache::TestUtil;
  -
  -use APR::Base64 ();
  -
   use Apache::Const -compile => 'OK';
   
  +use TestAPRlib::base64;
  +
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 3;
  -
  -    my $str = "$r";
  -    my $encoded = APR::Base64::encode($str);
  -
  -    t_debug("encoded string: $encoded");
  -    ok $encoded;
  -
  -    ok t_cmp(APR::Base64::encode_len(length $str),
  -             length $encoded,
  -             "encoded length");
  +    my $num_of_tests = TestAPRlib::base64::num_of_tests();
  +    plan $r, tests => $num_of_tests;
   
  -    ok t_cmp(APR::Base64::decode($encoded), $str, "decode");
  +    TestAPRlib::base64::test();
   
       Apache::OK;
   }
  
  
  

Mime
View raw message