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
+
