You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/04/13 03:11:28 UTC

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

dougm       01/04/12 18:11:28

  Added:       t/response/TestAPR base64.pm
  Log:
  add test for APR::Base64
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPR/base64.pm
  
  Index: base64.pm
  ===================================================================
  package TestAPR::base64;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Const -compile => 'OK';
  
  use Apache::Test;
  
  use APR::Base64 ();
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => 2;
  
      my $encoded = APR::Base64::encode("$r");
  
      ok $encoded;
  
      my $decoded = APR::Base64::decode($encoded);
  
      ok $decoded eq "$r";
  
      Apache::OK;
  }
  
  1;