package TestAPRlib::string; | |
use strict; | |
use warnings FATAL => 'all'; | |
use Apache::Test; | |
use Apache::TestUtil; | |
use APR::String (); | |
my %size_string = ( | |
'-1' => " - ", | |
0 => " 0 ", | |
42 => " 42 ", | |
42_000 => " 41K", | |
42_000_000 => " 40M", | |
# 42_000_000_000 => "40G", | |
); | |
sub num_of_tests { | |
return scalar keys %size_string; | |
} | |
sub test { | |
t_debug("size_string"); | |
while (my ($k, $v) = each %size_string) { | |
ok t_cmp($v, APR::String::format_size($k)); | |
} | |
} | |
1; |