perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/xs/maps apr_functions.map modperl_functions.map
Date Tue, 29 Jan 2002 07:47:25 GMT
stas        02/01/28 23:47:25

  Modified:    xs/maps  apr_functions.map modperl_functions.map
  Added:       t/response/TestAPR string.pm
  Log:
  - implement APR::String::format_size as a wrapper to apr_strfsize
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPR/string.pm
  
  Index: string.pm
  ===================================================================
  package TestAPR::string;
  
  use strict;
  use warnings FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  use Apache::Const -compile => 'OK';
  
  use APR::String ();
  
  my %size_string = (
      '-1'            => "  - ",
      0               => "  0 ",
      42              => " 42 ",
      42_000          => " 41K",
      42_000_000      => " 40M",
  #    42_000_000_000   => "40G",
  );
  
  sub handler {
      my $r = shift;
  
      plan $r, tests => scalar keys %size_string;
  
      t_debug("size_string");
      while (my($k, $v) = each %size_string) {
          ok t_cmp($v, APR::String::format_size($k));
      }
  
      Apache::OK;
  }
  
  1;
  __END__
  
  
  
  1.30      +1 -1      modperl-2.0/xs/maps/apr_functions.map
  
  Index: apr_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- apr_functions.map	29 Jan 2002 05:32:39 -0000	1.29
  +++ apr_functions.map	29 Jan 2002 07:47:25 -0000	1.30
  @@ -260,7 +260,7 @@
    apr_strnatcasecmp
    apr_strnatcmp
   -apr_tokenize_to_argv
  - apr_strfsize
  +-apr_strfsize
   -apr_strtok
   -apr_itoa
   -apr_ltoa
  
  
  
  1.34      +4 -0      modperl-2.0/xs/maps/modperl_functions.map
  
  Index: modperl_functions.map
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/maps/modperl_functions.map,v
  retrieving revision 1.33
  retrieving revision 1.34
  diff -u -r1.33 -r1.34
  --- modperl_functions.map	21 Jan 2002 08:27:30 -0000	1.33
  +++ modperl_functions.map	29 Jan 2002 07:47:25 -0000	1.34
  @@ -98,3 +98,7 @@
   MODULE=Apache::SubProcess
    # ap_subprocess_ won't work
    modperl_spawn_proc_prog | MPXS_ | ... | spawn_proc_prog
  +
  +MODULE=APR::String
  + mpxs_APR__String_format_size
  +
  
  
  

Mime
View raw message