1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
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;
|
