2
use warnings FATAL => 'all';
5
use Apache::TestRequest;
10
my $base = "/TestFilter__in_str_bin_data";
11
my @locations = map {$base . $_ } ('', '_filter');
12
my $expected = "123\001456\000789";
14
# test the binary data read/print w/ and w/o pass through filter
15
for my $location (@locations) {
16
my $received = POST_BODY_ASSERT $location, content => $expected;
18
ok t_cmp(length($expected),
20
"$location binary response length");
24
"$location binary response data");